zxlcheckactiveuser.asp

来自「机票预定系统 各个模块的设计-ticket reservation system」· ASP 代码 · 共 24 行

<meta http-equiv='refresh' content='20'>
<!--#include file="../conn.asp"-->

<%

if session("login_name")<>"" then conn.execute "update UserOnline set ActiveTime='"&now()&"' where UserID='"&session("login_name")&"'"

mem_id=trim(request.cookies("mem_login"))

set rs=server.CreateObject("adodb.recordset")
sql="select * from tmember where mem_loginname ='"&mem_id&"'"

rs.open sql,conn,3,1
if not(rs.eof or rs.bof) then conn.execute "update UserOnline set ActiveTime='"&now()&"' where UserID='"&mem_id&"'"

rs.close
set rs=nothing

conn.execute "delete from UserOnline where datediff('n',ActiveTime,now())>2"
'conn.close
call conn_close()
%>