<%
'设置数据文件路径
Const DATAFILE = "count.asp"
Set fs = Server.CreateObject("Scripting.FileSystemObject") '创建文件系统对象
path = Server.MapPath(DATAFILE) '获取文件绝对路径
'如果指定文件不存在则创建一个新文件
If fs.FileExists(path) = False Then
Set f = fs.CreateTextFile(path)
f.WriteLine(Date&", "&Date&", 0, 0, 0, 0, |")
'文件格式:0最初访问日期, 1最后访问日期, 2 IP 访问总量, 3页面访问总量, 4今日 IP 访问量,5 今日页面访问量, 6本日访问的所有IP(用“|”分隔)
f.Close
End If
'读取数据
Set f = fs.OpenTextFile(path)
data = Split(f.ReadLine, ", ")
f.Close
If DateValue(data(1)) = Date Then '如果最后访问日期是今天
If (Not (InStr(data(6),"|" & Session("ip") & "|") > 0)) Then '如果是新的 IP
data(2) = data(2) + 1
data(4) = data(4) + 1
data(6) = data(6) & Session("ip") & "|"
End If
data(5) = data(5) + 1
Else '如果是新的一天
data(1) = Date
data(2) = data(2) + 1
data(4) = 1
data(5) = 1
data(6) = "|" & Session("ip") & "|"
End If
data(3) = data(3) + 1
'显示数据
days = DateDiff("y", data(0), data(1)) + 1
%>
页面流量:今日:<%=data(5)%> 总量:<%=data(3)%> 平均:<%=data(3) \ days%>
IP 流量:今日:<%=data(4)%> 总量:<%=data(2)%> 平均:<%=data(2) \ days%>
<%
'写回数据
Set f = fs.CreateTextFile(path, True)
f.WriteLine data(0) & ", " & data(1) & ", " & data(2) & ", " & data(3) & ", " & data(4) & ", " & data(5) & ", " & data(6)
f.Close
'销毁对象
Set data = Nothing
Set days = Nothing
Set f = Nothing
Set path = Nothing
Set fs = Nothing
%>
[snapback]265991[/snapback]