【下载文档:  统计在线人数__dxy.txt 】

---

统计在线人数 dxy
<%sessid=session.sessionidtimeout=5 '分钟dim conn,connstr,dbpathdbpath="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'删除过期的sessionaa=dateadd("n",-timeout,now())response.write sessid&"
"response.write aasqld="delete * from counts where postdate<#"&aa&"#"conn.execute(sqld)
'保存idsqlc="select sessid from counts where sessid='"&sessid&"'"set rscheck=conn.execute(sqlc)if rscheck.eof thensqla="insert into counts(sessid,postdate)values('"&sessid&"','"&now()&"')"conn.execute(sqla)end ifrscheck.closeset rscheck=nothing
'计算人数sqlall="select count(sessid) from counts"set rs=conn.execute(sqlall)countsall=rs(0)rs.closeset rs=nothing
sql="select * from counts"set rspredel=conn.execute(sql)do until rspredel.eofxxx=datediff("n",rspredel("postdate"),now())if xxx>timeout thencountsall=countsall-1end ifrspredel.movenextlooprspredel.closeset rspredel=nothingconn.closeset conn=nothingif countsall=0 thencountsall=1end if%>当前有<%=countsall%>人