久久久久成人免费看a含羞草久色_91福利资源站_好色综合网_久久久久国产精品一区二区三区_一级片免费看_久久久久国产精品久久久久

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

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

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

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日历代码
相关阅读
css改变页面中的文字颜色与字体粗体
我的地盘我做主之留言板模板
一个不错的分页效果
httpd.ini中的RewriteRule、RewriteCond规则了解以有二级域名解析实例
倒计时广告/始终保持在网页中部
金岸国际旅行社
divcss范例下载
关于网页里面的DOCTYPE见解
共有0条关于《asp 当日访问量,全部访问量,当前在线人数统计》的评论
发表评论
正在加载评论......
返回顶部发表评论
呢 称:
表 情:
内 容:
评论内容:不能超过 1000 字,需审核,请自觉遵守互联网相关政策法规。
验证码: 验证码 
网友评论声明,请自觉遵守互联网相关政策法规。

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

更多信息>>栏目类别选择
百度小程序开发
微信小程序开发
微信公众号开发
uni-app
asp函数库
ASP
DIV+CSS
HTML
python
更多>>同类信息
ASP中Utf-8与Gb2312编码转换乱码问题的解决方法页面编码声明
asp显示随机密码
通过阿里云服务接口获得ip地址详细信息
iis点开后任务栏上有显示,但是窗口看不到的解决办法
RSA加密解密插件
微软Encoder加密解密函数
更多>>最新添加文章
dw里面查找替换使用正则删除sqlserver里面的CONSTRAINT
Android移动端自动化测试:使用UIAutomatorViewer与Selenium定位元素
抖音直播音挂载小雪花 懂车帝小程序
javascript获取浏览器指纹可以用来做投票
火狐Mozilla Firefox出现:无法载入您的Firefox配置文件 它可能已经丢失 或是无法访问 问题解决集合处理办法
在Android、iOS、Windows、MacOS中微信小程序的文件存放路径
python通过代码修改pip下载源让下载库飞起
python里面requests.post返回的res.text还有其它的吗
更多>>随机抽取信息
DIV与Table布局在大型网站的可用性比较
深山旅行社管理系统开源吗?
刘浏家俱
asp计算器
asp导出内容到excel表并自定义命名后下载(非打开)
模仿as效果的跳动导航菜单
主站蜘蛛池模板: 国产精品美女久久久久av爽 | 2021国产在线视频 | 欧美亚洲理伦电影毛片在线播放 | 亚洲中文字幕无码久久2020 | 99国产精品| 国产在线拍偷自揄拍无码 | 在线观看特色大片免费网站 | 欧美精品网站 | 精品精品国产高清a毛片牛牛 | 欧美男男大粗吊1069 | 色偷偷888欧美精品久久久 | 福利片网站| 免费视频成人欧美精品影院 | 国产二区视频在线观看 | 久久久精品国产免费观看同学 | 色橹橹欧美在线观看视频高清 | 日本一区精品 | 国产福利视频奶水在线 | 男人用嘴添女人下身免费视频 | 午夜免费看视频 | 国产av夜夜欢一区二区三区 | 99j久久精品久久久久久 | 国产精品99久久不卡 | 久久精品国产亚洲aa | 欧美怡春院一区二区三区 | 国产成+人+综合+欧美 亚洲 | 国产精品视频久久久久久 | 在线看国产 | 久久人妻夜夜做天天爽 | 欧洲精品码一区二区三区免费看 | 最新亚洲人成无码网站 | 91精品啪在线观看国产91九色 | 国产精品1 | 免费毛片电影 | 高清亚洲综合色成在线播放放 | 日韩精品久久一区二区三区 | 九九九九热精品免费视频 | 中文字幕无码不卡一区二区三区 | 七次郎在线视频永久地址 | 国产精品香蕉成人网在线观看 | 日本黄色影院在线观看 |