统计在线人数、每日访问人数和总人数-会员卡,广州印刷,深圳印刷,印刷公司,名片,彩页,名片设计,设计教程,名片制作,彩色名片,名片模板,贵宾卡,pvc卡,设计欣赏,深圳名片,广州名片,business card design

首页	名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash

» 彩色名片
» PVC卡
» 彩色磁性卡
» 彩页/画册
» 个性印务
» 彩色不干胶
» 明信片
   » 明信片
   » 彩色书签
   » 门挂
» 其他产品与服务
   » 创业锦囊
   » 办公用品
   » 信封、信纸
   » 便签纸、斜面纸砖
   » 无碳复印纸
   » 海报
   » 大篇幅印刷
   » KT板
   » 海报
   » 横幅

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

返回类别: 教程
上一教程: 一个基于WEB的QQ程序 1(XML+ASP)
下一教程: 通过启动脚本来感受ASP的力量

您可以阅读与"统计在线人数、每日访问人数和总人数"相关的教程:
· 一个实用的FSO－实时统计在线人数
· 一个实用的FSO-实时统计在线人数
· 网页在线人数统计的做法
· 如何实现网页在线人数统计
· 用ASP设计网站在线人数统计程序


	快精灵印艺坊版权所有	首页会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店网站地图关于我们友情链接