统计在线人数、每日访问人数和总人数-ASP教程,数据库相关-数据库其他-idc中文资讯站-客观公证的IDC产业权威媒体,关注域名、虚拟主机、服务器、网络、开源技术资讯，整合运营商资源，客观评价各地机房带宽线路质量、IDC企业名录等信息

统计在线人数、每日访问人数和总人数-ASP教程,数据库相关

来源：作者：发布时间:2007-12-26 02:11:20

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

"
　　next
　　response.write "
　　?????"
　　for i=1 to 4-len(dnt)
　　response.write "

"
　　next
　　for i=1 to len(dnt)
　　response.write "

"
　　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　　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 "

"
　　for j=1 to len(i)
　　response.write "