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

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

统计在线人数、每日访问人数和总人数相关推荐

php 固定人数拼手气_独立统计在线人数和访问数代码分享（php）
代码有2张,和一个sql 1.conn_count.php < ?php $host="localhost"; //请在双引号内填写你的mysql数据库主机 $root=&q ...
已知每个部门有一个经理，统计输出部门名称、部门总人数、总工资和部门经理。
--已知每个部门有一个经理,统计输出部门名称.部门总人数. --总工资和部门经理. --1.一个游标select deptno,count(*),sum(sal) from emp group by ...
7-1 录入学生成绩并统计及格人数、不及格人数及平均分 (50分)----c++综合实验
定义学生类Student,其数据成员有:学号.成绩(整型数据)及若干成员函数.编写一个程序进行一个班某门课程成绩的录入,能够控制录入成绩总人数,对录入成绩统计其及格人数.不及格人数及该班的平均分. 要 ...
SQL 一条SQL语句统计各班总人数、男女各总人数、该班级男女比例
select sClass 班级,count(*) 班级学生总人数, sum(case when sGender=0 then 1 else 0 end) 该班级女生人数, sum(case w ...
统计在线人数和登录人数
思想: 1:统计在线人数. 只是访问了这个网页的人员. 一个session的创建就是一个在线人数+1.让所有人都可以看到.把在线人数到ServletContex ...
微信食堂就餐人数统计小程序开发，微信饭堂报餐人数，怎样统计公司每日就餐人数，就餐人数不固定如何统计，制作报餐微信小程序
单位食堂想控制成本 ,想弄个小程序 ,只要实现扫二维码预约第二天吃饭和扫二维码领餐 ,方便后厨统计预约人数做饭并统计就餐人头看看谁不来, 没预约就不让吃饭.如何实现每天用餐报数,统计就餐人数的小程序 ...
按照班级，统计班级的总人数，男生人数和女生人数分别是多少
有student表,按照班级,统计班级的总人数,男生人数和女生人数分别是多少. select stuClass,count(stuName) 班级人数,sum(case when stuSex='男' ...
计算机统计各职称人数,用公式计算出各年教师的总人数和各职称的百分比
非计算机专业计算机品级考试一级上机考试题 (第一套) 一.汉字录入(请在Word编制中录入如下形式,25分) 恳求:1.在表格中切确地录入考生姓名和学号. 2.切确录入表格后的文本,2012会考成绩 ...
点击次数、访问次数、访问者人数、综合浏览量和唯一浏览量有何区别？（转）...
因为不同的报告会使用许多类似字词,所以 Analytics(分析)帐户中的访问者数据可能很容易使人误解.针对最常引起疑问的字词,您可以在下面找到更加详细的解释. 点击次数与访问次数访问次数与访问 ...

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

统计在线人数、每日访问人数和总人数相关推荐

最新文章

热门文章