禁止重复登录问题

[wwwdps1]

问一个很老但是很经典的问题，怎样禁止重复登录？我建了一个online表，但是不能解决非法退出问题？

[nosad]

学习了～～～～～

[孟子E章]

非法退出需要在 Session超时时清空该用户的online中的记录

[孟子E章]

关键点：
online必须存SessionID

[wwwdps1]

非法退出时，怎样通过sessionid清空online表，清空online表的代码放在什么地方呢

[wwwdps1]

非法退出后，session自动消失，sessionid也会消失，怎样查找所有用户的sessionid呢，代码应该放在什么地方？

[skangming]

帮顶，想听详解……

[wwwdps1]

sessionid每次都是随机生成的，不是固定的，所以不能通过sessionid来判断

[winnerzj]

你限定一个登陆次数，如果在该次数内没有登陆，则把账号和ip地址写到一个表中

[孟子E章]

清空online表的代码放在什么地方呢??
global.asa里的Session_OnEnd

[孟子E章]

例子

<Script LANGUAGE = VBScript RUNAT = Server>
Sub Session_OnStart
'清空LoginUser表
End Sub

Sub Session_OnStart
Response.Expires = -100
Server.ScriptTimeout = 10
Session.Timeout = 1
SET sqlConn = SERVER.CREATEOBJECT("ADODB.Connection")
sqlConn.Open "Provider=sqloledb;Data Source=.;Initial Catalog=phedu;User Id=sa;Password=;"

sSQL = "Insert LoginUser (SessionID) Values(" & Session.SessionID & ")"
SQLConn.Execute(sSQL)
sqlConn.Close
Set sqlConn = Nothing
End Sub

Sub Session_OnEnd
SET sqlConn = SERVER.CREATEOBJECT("ADODB.Connection")
sqlConn.Open "Provider=sqloledb;Data Source=.;Initial Catalog=phedu;User Id=sa;Password=;"

sSQL = "DELETE From LoginUser WHERE SessionID = " & Session.SessionID
SQLConn.Execute(sSQL)
sqlConn.Close
Set sqlConn = Nothing
End Sub
</Script>

[wwwdps1]

sessionid消失是在执行Session_OnEnd之前还是之后呢？

[wwwdps1]

我的问题解决了， net_lover(孟子E章) 说的非常正确，谢谢了！！

[wwwdps1]

怎么发分阿？

[好记忆不如烂笔头abc]

ok