online.asp

使用Asp+Access+FSO+Jmail+Servu开发

<%
sessionid = session.sessionid
timeout = 5 '设置统计在线人数的间隔时间,单位:分钟
aaa = dateadd("n", -timeout, Now())
conn.Execute ("delete from [online] where postdate < '"&aaa&"'")
' keep sessionID
sqlol1 = "select sess from [online] where sess='"&sessionid&"'"
set rscheck = conn.Execute (sqlol1)
if rscheck.eof then
sqlol1 = "insert into [online] (sess,postdate) values('"&sessionid&"', '"&now()&"')"
conn.Execute (sqlol1)
end if
rscheck.close
set rscheck = nothing
'count sessionID
sqlol2 = "select count(sess) from online"
set rsol2 = conn.Execute (sqlol2)
count = rsol2(0)
rsol2.close
set rsol2 = nothing
sqlol3 = "select * from online"
set rspredel = conn.Execute (sqlol3)
do until rspredel.eof
xxx=DateDiff("n", rspredel("postdate"), Now())
if xxx > timeout then
count = count-1
end if
rspredel.movenext
loop
rspredel.close
set rspredel = nothing
if count = 0 then
count = 1
end if
%>