脚本宝典收集整理的这篇文章主要介绍了如何限制同一用户名同时登陆,脚本宝典觉得挺不错的,现在分享给大家,也给大家做个参考。这个问题我的办法是,用户有个活跃时间间隔问题。超过这个活跃时间间隔的则可以认为是离线,后者可以登陆 ,如果无后者登陆,但并不是说前者就需要重新登陆了。因为他的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
以上是脚本宝典为你收集整理的如何限制同一用户名同时登陆全部内容,希望文章能够帮你解决如何限制同一用户名同时登陆所遇到的问题。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。