[思路]
我原来有做一个聊天室是用一个定时刷新的帧来向数据库发送当前时间,如果超过最后刷新的时间比当时时间多于三分钟,就认为用户已经离开。
[例子]
Set RS = server.createobject("adodb.recordset")
sqltemp="select * from userlist"
set RS=cconn.execute(sqltemp)
do while not RS.eof
Userid=Rs("Userid")
LastTime=Rs("LastTime")
waitTime=DateDiff("s",lasttime,now)
If waitTime>1800 then
sqltemp="delete from userlist where userid="+cstr(userid)
Cconn.execute sqltemp
Application.lock
Application("number")=Application("number")-1
Application.unlock
End If
Rs.movenext
loop
< SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
...
End Sub
'=========================================================
SUB Application_OnEnd
...
End Sub
'=========================================================Sub Session_OnStart
Session.Timeout = 5
Application("visitors") = Application("visitors") + 1
Session("ID")=Session.SessionID
End Sub
'=========================================================Sub
session_OnEnd
Application("Visitors")=Application("visitors")-1
'在这块地方就是你注销它的绝佳位置,因为你已经知道了它的session("ID")
< /SCRIPT>
————————————————————————————————————
如果成功了,告诉一声,EMAIL:hblinux@163.net