可以统计在线人数可实现无Global.asa

可以统计在线人数可实现无Global.asa
<
session.sessionid SessionID =
timeout = 5
设定时间保持会话。

conn_string =司机= {微软Access Driver（* .mdb）}；DBQ =server.mappath（计数。mdb）
conn_string =activeuser
最好是建立DSN =activeuser因为我们需要包含该文件的所有ASP脚本。

集conncount = server.createobject（数据连接）
conn_string conncount。开放

AAA = DateAdd（n
conncount。执行（删除计数在过期# AAA# ）
删除会话。超时后

sql0 =选择成功，成功从数=保持SessionID SessionID。
集rscheck = conncount执行（sql0）。
如果rscheck.eof然后
SQL =插入计数（SESS，过期）值（，这现在（））。
conncount执行（SQL）。
最后如果
rscheck.close
集rscheck =没有

SQL2 =select count（SESS）从数计算的SessionID。
集= conncount执行（SQL2）。
数= RS（0）关闭
设置=无

SQL3 =SELECT * FROM计数
集rspredel = conncount执行（SQL3）。
直到rspredel.eof做
XXX = DateDiff（n
如果xxx超时
数= count-1
最后如果
rspredel.movenext
环
rspredel.close
集rspredel =没有

conncount。关闭
集conncount =没有

如果计数= 0然后
数= 1
最后如果
%>

现在有人在风中跳舞！{ 1 }