统计在线丁香园数

<
sessid = session.sessionid
超时= 5分钟
朦胧的Conn，connstr，独立
mdbquot =在线.mdb
connstr =司机= {微软Access Driver（* .mdb）}；DBQ =server.mappath（独立）
connstr =商=微软。飞机。OLEDB数据源。4；=server.mappath（独立）
设置conn = server.createobject（数据连接）
conn.open connstr
删除已过期的会话
AA = DateAdd（n
response.write sessid
response.write AA
小青龙汤=删除过期的<< #计数在AA#
conn.execute（小青龙汤）

保存ID
选择sessid SQLC =从计数，sessid =sessid
集rscheck = conn.execute（SQLC）
如果rscheck.eof然后
sqla =插入计数（sessid，过期）值（sessid ，现在（））
conn.execute（sqla）
最后如果
rscheck.close
集rscheck =没有

计算人数
sqlall =select count（sessid）从计数
集= conn.execute（sqlall）
countsall = RS（0）
关闭
设置=无

从计数中选择*
集rspredel = conn.execute（SQL）
直到rspredel.eof做
XXX = DateDiff（n
如果xxx超时
countsall = countsall-1
最后如果
rspredel.movenext
环
rspredel.close
集rspredel =没有
conn.close
设置conn =没有
如果countsall = 0
countsall = 1
最后如果
%>
现在有人了。