统计在线人数 dxy
2018-09-06 11:40
<%
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)
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%>人
上一篇：ASP 自动采集实现代码
下一篇：asp代理采集的核心函数代码