activeuser.asp

医药进销存管理系统 全代码 很详细 可惜没有数据库 可供参考

<!--#include virtual="manage/include/conn.asp"-->
<%
sessionID = session.SessionID
timeout = 5
time_temp = dateadd("n", -timeout, now())
conn.Execute ("delete  from tb_Count where postdate < '" & time_temp & "'")

sql = "select sess from tb_Count where sess='" & sessionID & "'"
set rs_chk = conn.Execute (sql)
if rs_chk.eof then
sql = "insert into tb_Count (sess,postdate) values ('" & sessionID & "', '" & now() & "')"
conn.Execute (sql)
end if
rs_chk.close
set rs_chk = nothing

sql2 = "select count(sess) from tb_Count"
set rs = conn.Execute (sql2)
active_bbruser = rs(0)
rs.close
set rs = nothing


sql3 = "select * from tb_Count"
set rspredel = conn.Execute (sql3)
do until rspredel.eof
time_temp=DateDiff("n", rspredel("postdate"), now())
if time_temp > timeout then
active_bbruser = active_bbruser-1
end if
rspredel.movenext
loop
rspredel.close
set rspredel = nothing

conn.Close
set conn = nothing

if active_bbruser = 0 then
active_bbruser = 1
end if
%>