今天小編跟大家分享一下怎麼限制同一用戶名同時登陸的方法介紹,感興趣的朋友跟小編一起來了解一下吧!
這個問題我的辦法是,用戶有個活躍時間間隔問題。超過這個活躍時間間隔的則可以認為是離線,後者可以登陸,如果無後者登陸,但並不是說前者就需要重新登陸了。因為他的session還在的。只能是這個時間設置的越小越精確,也是不能做到絕對的。
代碼貼出來給樓主參考下。
Function CheckOnline()DIM IP,rsPrv,Sql,PrvDbStatePrvDbState = FalseIf DBSTATE = False ThenDbOpen()PrvDbState = TrueEnd IfSet rsPrv=Server.CreateObject("ADODB.Recordset")If Session("UserName") = "" thenSql="select * from [Online] where SessionID='"& Session.Sessionid &"'"rsPrv.Open Sql,Conn,1,3If rsPrv.Eof thenrsPrv.AddNewrsPrv("SessionID") = Session.SessionIDrsPrv("GroupChargeLv") = -1rsPrv("LastActTime") = Now()rsPrv("UserIP") = GetIPrsPrv("OnLineTime") = 0rsPrv("UserWhere") = Request.ServerVariables("HTTP_REFERER")ElsersPrv("UserWhere") = Request.ServerVariables("HTTP_REFERER")rsPrv("OnLineTime") = rsPrv("OnLineTime") + DateDiff("n",rsPrv("LastActTime"),Now())rsPrv("LastActTime") = Now()End IfrsPrv.UpdatersPrv.Close()'response.Write "notlogin"Else'response.Write "logined"Sql="select * from [Online] where UserName='"& Session("UserName") &"'"rsPrv.Open sql,Conn,1,3If rsPrv.Eof thenrsPrv.AddNewrsPrv("SessionID") = Session.SessionIDrsPrv("UserName") = Session("UserName")rsPrv("GroupChargeLv") = Session("GroupChargeLv")rsPrv("LastActTime") = Now()rsPrv("OnLineTime") = 0rsPrv("UserIP")= GetIPrsPrv("UserWhere") = Request.ServerVariables("HTTP_REFERER")ElseIf rsPrv("SessionID") Session.SessionID And Application("LoginSet")(1) = False ThenInfoTo "LoginOut.asp","該帳戶已在其他地方登陸,網站設置1個ID只能有1個登陸/n你可以稍候嘗試登陸。"Response.End()End IfrsPrv("UserWhere") = Request.ServerVariables("HTTP_REFERER")rsPrv("OnLineTime") = rsPrv("OnLineTime") + DateDiff("n",rsPrv("LastActTime"),Now())rsPrv("LastActTime")=Now() End IfrsPrv.UpdatersPrv.Close()End IfSet rsPrv = NothingIf DateDiff("s",Application("OnLineLastDelete"),Now()) > Int(Application("DELETEONLINEDIFF")) ThenApplication.Lock()Application("OnLineLastDelete") = nowApplication.UnLock()Conn.ExeCute("delete from [Online] where datedIff('s',LastActTime,Now())>"&Int(Application("CHECKONLINEDIFF") &"")) '刪除x秒沒有活動的訪客End IfIf PrvDbState = True Then DbClose()End Function以上所述就是怎麼限制同一用戶名同時登陸的方法介紹的介紹,希望大家能夠喜歡,更多內容請繼續關注錯新技術頻道網站!