订阅本栏目 RSS您所在的位置: 深山工作室 > ASP > 正文

asp 当日访问量,全部访问量,当前在线人数统计

网络 2009/9/15 8:23:33 深山行者 字体: 浏览 17046

asp 当日访问量,全部访问量,当前在线人数统计
<%
imgurl="/UploadFiles/demo/num/1/" '图片路径
imgname="" '图片名字
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 "今日访问"
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 ""
%>

 

前一页:asp日历代码
相关阅读
松原市海航商务旅行社
双击文字后实现编辑文本功能
微信小程序直播组件live-player-plugin(wx2b03c6e691cd7370)
跳转菜单,跳转后用新窗口打开
页面里面的js和css的放的位置顺序与加载速度分析
利用正则替换生成html,经典的,可以用数组进行替换
旅行社网站管理系统商业版4.0发布
uni-app自定义组件调用
共有0条关于《asp 当日访问量,全部访问量,当前在线人数统计》的评论
发表评论
正在加载评论......
返回顶部发表评论
呢 称:
表 情:
内 容:
评论内容:不能超过 1000 字,需审核,请自觉遵守互联网相关政策法规。
验证码: 验证码 
网友评论声明,请自觉遵守互联网相关政策法规。

您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。

更多信息>>栏目类别选择
百度小程序开发
微信小程序开发
微信公众号开发
uni-app
asp函数库
ASP
DIV+CSS
HTML
更多>>同类信息
asp无限级调用分类显示
实现iis6与iis7环境下支持mp4视频随意拖动、预览播放、边下载边播放
做好的网站把http改成https申请SSL域名证书
纯asp根据当前日期计算出当前年份的属相
sql server中前缀为PK、UK、DF、CK、FK表的意思
ASP利用fso读取文件夹里所有文件的名字
更多>>最新添加文章
呼伦贝尔市北天草原旅行社有限公司
四川悠旅地旅游有限公司
连云港五洲旅行社有限公司
邓州市途鸿旅行社
连云港华夏国际旅行社有限公司
重庆长航江山国际旅行社
松原市海航商务旅行社
广西亚太国际旅行社有限公司
更多>>随机抽取信息
深山行者留言系统V2.3
对MD5加密方式使用者的建议
uni-app微信小程序分享微信好友与分享到朋友圈功能
告诉你一些GOOGLE搜索你不知道的东西
最新县及县以上1980年以来历史行政区划代码大全截止2018年3月31日
把网页中的电话号码生成图片的ASP程序