<%
sessid=session.sessionid
timeout=5 '分钟
dim conn,connstr,dbpath
dbpath="online.mdb"
'connstr="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(dbpath)
connstr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath(dbpath)
set conn=server.createobject("adodb.connection")
conn.open connstr
'删除过期的session
aa=dateadd("n",-timeout,now())
response.write sessid&"<br />"
response.write aa
sqld="delete * from counts where postdate<#"&aa&"#"
conn.execute(sqld)
'保存id
sqlc="select sessid from counts where sessid='"&sessid&"'"
set rscheck=conn.execute(sqlc)
if rscheck.eof then
sqla="insert into counts(sessid,postdate)values('"&sessid&"','"&now()&"')"
conn.execute(sqla)
end if
rscheck.close
set rscheck=nothing
'计算人数
sqlall="select count(sessid) from counts"
set rs=conn.execute(sqlall)
countsall=rs(0)
rs.close
set rs=nothing
sql="select * from counts"
set rspredel=conn.execute(sql)
do until rspredel.eof
xxx=datediff("n",rspredel("postdate"),now())
if xxx>timeout then
countsall=countsall-1
end if
rspredel.movenext
loop
rspredel.close
set rspredel=nothing
conn.close
set conn=nothing
if countsall=0 then
countsall=1
end if
%>
当前有<%=countsall%>人
统计在线人数,,dxy
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
更新日志
- 范文芳.1996-FNNTASY【HYPE】【WAV+CUE】
- 纯音入心系列纯音乐《韵味古筝曲》1CD[MP3][146.2MB]
- 纯音入心系列纯音乐《古筝系列-传统乐曲》1CD[MP3][974.7MB]
- 纯音入心系列纯音乐《古筝系列-弦凝指咽声停处》1CD[MP3][656.5MB]
- 群星.1994-大烂片2辑【派森】【WAV+CUE】
- 吴倩莲.1997-望爱【EMI百代】【WAV+CUE】
- 杨千嬅.2002-万紫千红演唱会2CD(2024环球红馆40复刻系列)【环球】【WAV+CUE】
- 郭采洁.2015-Begin.Again爱造飞鸡【华纳】【FLAC分轨】
- 许志安.2011-ON.AND.ON【东亚】【WAV+CUE】
- 潘秀琼.1994-木兰从军【名将】【WAV+CUE】
- 纯音入心系列纯音乐《古筝系列-当流行乐遇到古筝》1CD[MP3][1.9GB]
- 纯音入心系列纯音乐《精选古筝名曲100首》1CD[MP3][388.7MB]
- 纯音入心系列纯音乐《天籁古筝》1CD[MP3][331MB]
- 男女对唱典藏天碟《发烧对唱·那个季节里的歌DSD》10CD[WAV]
- 群星2010-歌林精选辑[歌林][WAV+CUE]