在线用户显示问题！

craft001wen 2007-03-09 08:55:03

表中主要字段：用户名（username），登入时间(intime)，退出时间(outtime)。是否在线(isonline,true为在线，False为不在线), sessionid(sess)

这是我的登入页面
<%
set conn=opendb("oabusy","conn","accessdsn")
username=request("username")
password=request("password")
ip=request.servervariables("REMOTE_ADDR")
intime=now()‘登入时间
session("useronline")="true"
sessionID = session.SessionID
session.Timeout=5
timeout =session.Timeout

set rs=server.createobject("adodb.recordset")
sql="select * from userinf where username=" & sqlstr(username) & " and password=" & sqlstr(password) & " and forbid='no'"
rs.open sql,conn,1,1
'
'如果有此用户就进入系统

if not rs.eof and not rs.bof then
'===============================================记录在线用户
set rs1=server.CreateObject("adodb.recordset")
str="select * from user_online where sess='" & sessionID & "'"
rscheck=conn.execute (str)
if rscheck.eof then
sql="insert into user_online (userid,intime,ip,online,sess)values('"&username&"','"&intime&"','"&ip&"','"&session("useronline")&"','"&sessionid&"')"
conn.Execute (sql)
‘这里意思有用户进入系统时，自动清除表中、登入时间小于timeout(问题也就出现在这，并没有执行)
aaa = dateadd("n", -timeout, now())
conn.Execute ("update online_user set online='false' where intime < #" & aaa & "#")
rscheck.close
set rscheck = nothing
end if
'=============================================

%>
帮看看问题出现在哪

...全文