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

统计在线人数、每日访问人数和总人数
这个程序难一点，特点在于，因为他是分别的传送每个图片，所以不像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 "');"%>