一个方便易用的网站页面数据统计器
来源：
互联网
日期：2008-10-13
下面是源码 存成一个asp文件
<%
a=0
b=0
s=Request.ServerVariables("path_translated")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
cName=Server.MapPath("01.txt")
dName=Server.MapPath("02.txt")
Set objCountFile = objFSO.OpenTextFile(cName,1,True)
If Not objCountFile.AtEndOfStream Then a=CLng(objCountFile.ReadAll)
objCountFile.Close
Set objCountFile=Nothing
a=a+1
Set objCountFile=objFSO.CreateTextFile(cName,True)
objCountFile.Write a
objCountFile.Close
Set objCountFile=Nothing
if application("bime")<=cint(hour(time())) then
Set objCountFile = objFSO.OpenTextFile(dName,1,True)
If Not objCountFile.AtEndOfStream Then b=CLng(objCountFile.ReadAll)
objCountFile.Close
Set objCountFile=Nothing
end if
application("bime")=cint(hour(time()))
b=b+1
Set objCountFile=objFSO.CreateTextFile(dName,True)
objCountFile.Write b
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
t=(cint(day(date()))*24+cint(hour(time())))*60+cint(minute(time()))
k=0
i=1
y=0
Do While application("ip"&i)<>""
if application("ip"&i)=Request.ServerVariables("REMOTE_ADDR") then
application("t"&i)=t
y=1
end if
if t-application("t"&i)>9 or t<application("t"&i) then
k=k+1
else
if k>0 then
application.lock
application("ip"&i-k)=application("ip"&i)
application("t"&i-k)=application("t"&i)
application.unlock
end if
end if
if k>0 then
application.lock
application("ip"&i)=""
application.unlock
end if
i=i+1
loop
if y=0 then
application("ip"&i)=Request.ServerVariables("REMOTE_ADDR")
application("t"&i)=t
else
i=i-1
end if%>
<div align="center">总访问：<b><%=a%></b>|今日访问：<b><%=b%></b>|当前在线<b><%=i%></b>人</div>
另外建两个文本文件01.txt & 02.txt放到程序的根目录下 分别保存总访问量和今日访问量 要是你光要当前在线的就把前面的访问量的代码去掉就可以了
更多的一个方便易用的网站页面数据统计器请到论坛查看: http://BBS.TC711.COM
【 双击滚屏 】 【 评论 】 【 收藏 】 【 打印 】 【 关闭 】
来源：
互联网
日期：2008-10-13
|
|
|
