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

这个程序难一点，特点在于，因为他是分别的传送每个图片，所以不像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>"

补充：asp教程,数据库相关