关于登陆的问题!
Sub Logout_Click(Src As Object, E As EventArgs)
dim sqlcon as new sqlconnection(DBConnectionString)
sqlcon.open
Dim strsql as string
If Session("U_Role")="系统管理员" Then
strsql="update ADMIN_INFO set LOGIN=0 where ADMIN_NAME='"& Session("U_Name").trim() &"'"
Else
strsql="update USER_INFORMATION set LOGIN=0 where USER_NAME='"& Session("U_Name").trim() &"'"
End If
Dim sqlcom as new sqlcommand
sqlcom.connection=sqlcon
sqlcom.commandtext=strsql
sqlcom.executenonquery
sqlcon.close
sqlcon=nothing
sqlcom=nothing
Session.Clear()
Response.Redirect("index.aspx")
End Sub
我用了这段代码,只有别人注销时才能set LOGIN = 0,而别人通过直接关闭流览器或者关机等其他手段就不能set LOGIN = 0,以至于下次登陆时,登陆不了,因为LOGIN没有set为0 .
问题点数：20、回复次数：2Top
1 楼afxucamd（西门吹炭）回复于 2003-11-02 10:42:19 得分 10
在global.asax中的Session_End事件中加入set Login=0的代码Top
2 楼zsww（）回复于 2003-11-02 15:34:23 得分 10
同意！
-------努力学习 不断实践 虚心讨教--------
Top
