如何限制同一用户名同时登陆
2006-06-27 00:00
441 查看
这个问题我的办法是,用户有个活跃时间间隔问题。超过这个活跃时间间隔的则可以认为是离线,后者可以登陆 ,如果无后者登陆,但并不是说前者就需要重新登陆了。因为他的session还在的。只能是这个时间设置的越小越精确,也是不能做到绝对的。
代码贴出来给楼主参考下。
Function CheckOnline()
DIM IP,rsPrv,Sql,PrvDbState
PrvDbState = False
If DBSTATE = False Then
DbOpen()
PrvDbState = True
End If
Set rsPrv=Server.CreateObject("ADODB.Recordset")
If Session("UserName") = "" then
Sql="select * from [Online] where SessionID='"& Session.Sessionid &"'"
rsPrv.Open Sql,Conn,1,3
If rsPrv.Eof then
rsPrv.AddNew
rsPrv("SessionID") = Session.SessionID
rsPrv("GroupChargeLv") = -1
rsPrv("LastActTime") = Now()
rsPrv("UserIP") = GetIP
rsPrv("OnLineTime") = 0
rsPrv("UserWhere") = Request.ServerVariables("HTTP_REFERER")
Else
rsPrv("UserWhere") = Request.ServerVariables("HTTP_REFERER")
rsPrv("OnLineTime") = rsPrv("OnLineTime") + DateDiff("n",rsPrv("LastActTime"),Now())
rsPrv("LastActTime") = Now()
End If
rsPrv.Update
rsPrv.Close()
'response.Write "notlogin"
Else
'response.Write "logined"
Sql="select * from [Online] where UserName='"& Session("UserName") &"'"
rsPrv.Open sql,Conn,1,3
If rsPrv.Eof then
rsPrv.AddNew
rsPrv("SessionID") = Session.SessionID
rsPrv("UserName") = Session("UserName")
rsPrv("GroupChargeLv") = Session("GroupChargeLv")
rsPrv("LastActTime") = Now()
rsPrv("OnLineTime") = 0
rsPrv("UserIP")= GetIP
rsPrv("UserWhere") = Request.ServerVariables("HTTP_REFERER")
Else
If rsPrv("SessionID") <> Session.SessionID And Application("LoginSet")(1) = False Then
InfoTo "LoginOut.asp","该帐户已在其他地方登陆,网站设置1个ID只能有1个登陆\n你可以稍候尝试登陆。"
Response.End()
End If
rsPrv("UserWhere") = Request.ServerVariables("HTTP_REFERER")
rsPrv("OnLineTime") = rsPrv("OnLineTime") + DateDiff("n",rsPrv("LastActTime"),Now())
rsPrv("LastActTime")=Now()
End If
rsPrv.Update
rsPrv.Close()
End If
Set rsPrv = Nothing
If DateDiff("s",Application("OnLineLastDelete"),Now()) > Int(Application("DELETEONLINEDIFF")) Then
Application.Lock()
Application("OnLineLastDelete") = now
Application.UnLock()
Conn.ExeCute("delete from [Online] where datedIff('s',LastActTime,Now())>"& Int(Application("CHECKONLINEDIFF") &"")) '删除x秒没有活动的访客
End If
If PrvDbState = True Then DbClose()
End Function
代码贴出来给楼主参考下。
Function CheckOnline()
DIM IP,rsPrv,Sql,PrvDbState
PrvDbState = False
If DBSTATE = False Then
DbOpen()
PrvDbState = True
End If
Set rsPrv=Server.CreateObject("ADODB.Recordset")
If Session("UserName") = "" then
Sql="select * from [Online] where SessionID='"& Session.Sessionid &"'"
rsPrv.Open Sql,Conn,1,3
If rsPrv.Eof then
rsPrv.AddNew
rsPrv("SessionID") = Session.SessionID
rsPrv("GroupChargeLv") = -1
rsPrv("LastActTime") = Now()
rsPrv("UserIP") = GetIP
rsPrv("OnLineTime") = 0
rsPrv("UserWhere") = Request.ServerVariables("HTTP_REFERER")
Else
rsPrv("UserWhere") = Request.ServerVariables("HTTP_REFERER")
rsPrv("OnLineTime") = rsPrv("OnLineTime") + DateDiff("n",rsPrv("LastActTime"),Now())
rsPrv("LastActTime") = Now()
End If
rsPrv.Update
rsPrv.Close()
'response.Write "notlogin"
Else
'response.Write "logined"
Sql="select * from [Online] where UserName='"& Session("UserName") &"'"
rsPrv.Open sql,Conn,1,3
If rsPrv.Eof then
rsPrv.AddNew
rsPrv("SessionID") = Session.SessionID
rsPrv("UserName") = Session("UserName")
rsPrv("GroupChargeLv") = Session("GroupChargeLv")
rsPrv("LastActTime") = Now()
rsPrv("OnLineTime") = 0
rsPrv("UserIP")= GetIP
rsPrv("UserWhere") = Request.ServerVariables("HTTP_REFERER")
Else
If rsPrv("SessionID") <> Session.SessionID And Application("LoginSet")(1) = False Then
InfoTo "LoginOut.asp","该帐户已在其他地方登陆,网站设置1个ID只能有1个登陆\n你可以稍候尝试登陆。"
Response.End()
End If
rsPrv("UserWhere") = Request.ServerVariables("HTTP_REFERER")
rsPrv("OnLineTime") = rsPrv("OnLineTime") + DateDiff("n",rsPrv("LastActTime"),Now())
rsPrv("LastActTime")=Now()
End If
rsPrv.Update
rsPrv.Close()
End If
Set rsPrv = Nothing
If DateDiff("s",Application("OnLineLastDelete"),Now()) > Int(Application("DELETEONLINEDIFF")) Then
Application.Lock()
Application("OnLineLastDelete") = now
Application.UnLock()
Conn.ExeCute("delete from [Online] where datedIff('s',LastActTime,Now())>"& Int(Application("CHECKONLINEDIFF") &"")) '删除x秒没有活动的访客
End If
If PrvDbState = True Then DbClose()
End Function
相关文章推荐
- 如何限制同一用户名同时登陆
- 如何在ASP.net中实现限制一个用户名在多个客户端IE登陆的方法
- 如何在ASP.net中实现限制一个用户名在多个客户端IE登陆的方法
- 如何限制同一客户端登录的用户数量以及禁止同一用户同时在不同客户端登录
- 如何在同一台电脑上多个账户同时登陆MSN
- MA5200G中如何配置使用用户名密码登陆设备
- C# WinForm登陆窗体 限制用户名只输入字母 数字以及下划线
- SQL Server如何限制IP登陆:登陆触发器的运用
- ASP.NET中如何防止同一用户同时登陆。
- 服务程序中如何得到当前登陆用户名
- 如何不切换windows登陆用户,更换用户名访问共享文件夹
- [转] 如何获取Windows系统登陆用户名
- ASP.NET 2.0关于用户登录限制问题实例:防止同一用户同时登陆
- 如何限制IP,通过SSH登陆linux服务器
- 如何限制同一客户端登录的用户数量以及禁止同一用户同时在不同客户端登录?
- plsql如何部署登陆的用户名密码
- loadrunner录制webservice当,进入访问地址,限制了要输入用户名密码才能登陆时。出来方法:
- ASP.NET 2.0关于用户登录限制问题实例:防止同一用户同时登陆
- SQL Server如何限制IP登陆:登陆触发器的运用(2)
- WinForm:一个登陆窗体引发的问题系列(二):用户名文本框的输入限制