统计在线人数、每日访问人数和总人数

来源：互联网发布：国内云计算服务提供商编辑：程序博客网时间：2024/04/24 04:34

统计在线人数、每日访问人数和总人数

这个程序难一点，特点在于，因为他是分别的传送每个图片，所以不像CGI产生的图片那样大。而且图片可以重复的利用所以较率高速度快。只是没有JavaScript就不行了。

程序原代码：
　　<%
　　imgurl="http://xxx.xxx.xxx/xxxx/"; '图片路径
　　imgname="xxx" '图片名字
　　cnt=0
　　dnt=0
　　s=Request.ServerVariables("path_translated")
　　cName = left(s,instrrev(s,"\",len(s)))&"chy.cnt"
　　dName = left(s,instrrev(s,"\",len(s)))&"dchy.cnt"
　　Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
　　Set objCountFile = objFSO.OpenTextFile(cName,1,True)
　　If Not objCountFile.AtEndOfStream Then cnt=CLng(objCountFile.ReadAll)
　　objCountFile.Close
　　Set objCountFile=Nothing
　　cnt=cnt+1
　　Set objCountFile=objFSO.CreateTextFile(cName,True)
　　objCountFile.Write cnt
　　objCountFile.Close
　　Set objCountFile=Nothing

if application("dntime")<=cint(hour(time())) then
　　Set objCountFile = objFSO.OpenTextFile(dName,1,True)
　　If Not objCountFile.AtEndOfStream Then dnt=CLng(objCountFile.ReadAll)
　　objCountFile.Close
　　Set objCountFile=Nothing
　　end if
　　application("dntime")=cint(hour(time()))
　　dnt=dnt+1
　　Set objCountFile=objFSO.CreateTextFile(dName,True)
　　objCountFile.Write dnt
　　objCountFile.Close
　　Set objCountFile=Nothing
　　Set objFSO = Nothing
　　Response.Write "document.write('99?7?10???"
　　for i=1 to len(cnt)
　　Response.Write "<img src="imgurl&imgname&Mid(cnt,i,1)&".gif>"
　　next
　　Response.Write "
　　?????"
　　for i=1 to 4-len(dnt)
　　Response.Write "<img src="&imgurl&"0.gif>"
　　next
　　for i=1 to len(dnt)
　　Response.Write "<img src="imgurl&imgname&Mid(dnt,i,1)&".gif>"
　　next
　　t=(cint(day(date()))*24+cint(hour(time())))*60+cint(minute(time()))
　　k=0
　　i=1
　　y=0
　　Do While application("zxip"&i)<>""
　　if application("zxip"&i)=Request.ServerVariables("REMOTE_ADDR") then
　　application("zxsj"&i)=t
　　y=1
　　end if
　　if t-application("zxsj"&i)>9 or t<application("zxsj"&i) then
　　k=k+1
　　else
　　if k>0 then
　　application.lock
　　application("zxip"&i-k)=application("zxip"&i)
　　application("zxsj"&i-k)=application("zxsj"&i)
　　application.unlock
　　end if
　　end if
　　if k>0 then
　　application.lock
　　application("zxip"&i)=""
　　application.unlock
　　end if
　　i=i+1
　　loop
　　if y=0 then
　　application("zxip"&i)=Request.ServerVariables("REMOTE_ADDR")
　　application("zxsj"&i)=t
　　else
　　i=i-1
　　end if
　　Response.Write " ?????"
　　if len(i)=1 then Response.Write "<img src="&imgurl&"0.gif>"
　　for j=1 to len(i)
　　Response.Write "<img src="imgurl&imgname&Mid(i,j,1)&".gif>"
　　next
　　Response.Write "');"%>

0 0