统计在线人数  dxy

发布时间:2022-04-17 发布网站:脚本宝典
脚本宝典收集整理的这篇文章主要介绍了统计在线人数  dxy脚本宝典觉得挺不错的,现在分享给大家,也给大家做个参考。

<%
sessid=session.sessionid
timeout=5 '分钟
dim conn,connstr,dbpath
dbpath="online.mdb"
'connstr="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &amp; 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全部内容,希望文章能够帮你解决统计在线人数  dxy所遇到的问题。

如果觉得脚本宝典网站内容还不错,欢迎将脚本宝典推荐好友。

本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。