·您的位置: 首页 » 资源教程 » 编程开发 » ASP » 统计在线人数、每日访问人数和总人数

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

类别: ASP教程  评论数:0 总得分:0
这个程序难一点,特点在于,因为他是分别的传送每个图片,所以不像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 "\');"%>
-= 资 源 教 程 =-
文 章 搜 索
关键词:
类型:
范围:
纯粹空间 softpure.com
Copyright © 2006-2008 暖阳制作 版权所有
QQ: 15242663 (拒绝闲聊)  Email: faisun@sina.com
 纯粹空间 - 韩国酷站|酷站欣赏|教程大全|资源下载|免费博客|美女壁纸|设计素材|技术论坛   Valid XHTML 1.0 Transitional
百度搜索 谷歌搜索 Alexa搜索 | 粤ICP备19116064号-1