<%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&"<br />"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%>人

　　推荐阅读

　　ASP采集入库生成本地文件的几个函数

'*****************************************************************' function' 作用 ：利用流保存文件' 参数 ：from（远程文件地址），tofile（保存文件位置）'*********************************************>>>详细阅读

本文标题：统计在线人数 dxy

地址：http://www.17bianji.com/kaifa2/ASP/33290.html

 1/2    1