DDR爱好者之家

统计在线人数  dxy
站长资源 2024/11/25 佚名
16 1538
DDR爱好者之家 Design By 杰米

<%
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%>人

DDR爱好者之家 Design By 杰米
广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除！
DDR爱好者之家 Design By 杰米
ddrfans.com DDR爱好者之家
8,675无损音乐
1,324高清电影
213破解软件
70,141收录资讯

更新日志

友情链接

杰晶网络 DDR爱好者之家 南强小屋 黑松山资源网 白云城资源网
DDR爱好者之家 Design By 杰米