久久久久成人免费看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效果的跳动导航菜单
主站蜘蛛池模板: 亚洲日韩色在线影院性色 | 国产成人无码www免费视频播放 | 亚洲欧美综合日韩字幕v在线 | 午夜影院在线观看 | 精品香蕉99久久久久网站 | 久久综合久久自在自线精品自 | 欧美成人久久久免费播放 | 人妻在客厅被c的呻吟 | 国产无遮挡又黄又爽在线视频 | 午夜影院免费在线观看 | 国产成人精品日本亚洲999 | 欧美乱妇日本无乱码特黄大片 | 日韩精品无码一区二区视频 | 香蕉久久ac一区二区三区 | 日本一区二区不卡 | 国产在线一区观看 | 午夜视频在线观看免费视频 | 国内自拍欧美 | 伊伊人成亚洲综合人网香 | 伊人久久综合谁合综合久久 | 中文国产欧美在线观看 | 国产激情 | 欧美高清在线精品一区 | 亚洲α片| 国产精品美女网站在线看 | 欧美做受又硬又粗又大视频 | 日韩亚洲国产欧美精品 | 久草天堂 | 国产成人啪精品视频免费软件 | 看全色黄大色黄女片爽毛片 | 国产特黄特色的大片观看免费视频 | 人妻无码中文字幕免费视频蜜桃 | 久久国产精彩视频 | 色花堂国产精品原创第一页 | 久久久久成人网站 | 国产70老熟女重口小伙子 | 中文字幕一区二区三区精彩视频 | 一级片视频网站 | 天天草视频| 欧美极品少妇无套实战 | 国产精品1000部在线观看 |