mp;&用做计数器％％％％％％％％％％％％％％％％％
'Count.ini
'[访问量]
'开始年=2005
'开始月=2
'密码=49ba59abbe56e057
'URL=http://www.relaxlife.net
'Name=放松生活网
'今天日期=2005年5月5日
'总访问量=8000
'2005年访问量=60
'2005年2月访问量=1000
'2005年3月访问量=1800
'2005年4月访问量=3000
'2005年5月访问量=3140
'今天的访问量=300
'昨天的访问量=315
'前天的访问量=380
-----------------------显示访问量------------------------
DispNum.asp
<link href="Css/styles.css" rel="stylesheet" type="text/css">
<!--#include file="Function.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>由“放松生活网----访问量计数器”支持</title>
<meta name="DESCRIPTION" content="放松生活网----访问量计数器,Relaxlife.net,Relaxlife,放松生活网,放松生活">
<meta name="keywords" content="放松生活网----访问量计数器,Relaxlife.net,Relaxlife,放松生活网,放松生活">
<meta name="author" content="RelaxLife">
<meta name="robots" content="all">
<link href="styles.css" rel="stylesheet" type="text/css">
<%
Dim UserName
UserName = Request.QueryString("User")
myini = "/Count/Ini/" & UserName & ".ini"
Dim FSO
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
IF FSO.FileExists(Server.Mappath(myini)) then
'总
Response.Write "<br><font color=red><b>总访问量："& GetProfile(myini, "访问量", "总访问量") & "</b></font><br><br>"
'年
StartYear = GetProfile(myini, "访问量", "开始年")
For i = StartYear to Year(Date())
Response.Write i & "年访问量：" & GetProfile(myini, "访问量", i & "年访问量") & "<br>"
Next
Response.Write "<br>"
'月
StartMonth = GetProfile(myini, "访问量", "开始月")
For i = StartYear to Year(Date())
For j = 1 to 12
If GetProfile(myini, "访问量", i & "年" & j & "月" & "访问量") <> Empty Then
Response.Write i & "年" & j& "月" & &q
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页
