Heute wird der Herausgeber die Einführung mit Ihnen mitteilen, wie der gleiche Benutzername gleichzeitig angemeldet wird. Interessierte Freunde werden mit dem Herausgeber erfahren!
Meine Lösung für dieses Problem ist, dass der Benutzer ein aktives Zeitintervallproblem hat. Diejenigen, die dieses aktive Zeitintervall überschreiten, können offline betrachtet werden, und letztere können sich anmelden. Wenn sich letzteres nicht anmeldet, bedeutet dies nicht, dass sich das erstere erneut anmelden muss. Weil seine Sitzung noch da ist. Es kann nur sein, dass je kleiner die Zeiteinstellung ist, desto genauer ist es und kann nicht absolut sein.
Der Code wird vom Autor als Referenz veröffentlicht.
Funktion CheckOrline () Dim IP, RSPRV, SQL, prvdbstatprvdbState = falseif dbstate = false thendbopen () prvdbstate = trueend ifset rSprv = servers.createObject ("adodb.Recordset") if Session ("Username") = "theSsql =" "thensScl =" von ["". & "'' rSprv.open SQL, Conn, 1,3if RSprv.eof thenrsprv.addNewsprv (" SessionID ") = Session 0RSPRV ("Userwhere") = Request.Servervariables ("http_referer") ElSersprv ("Benutzerwhere") = Request.Servervariables ("http_referer") rSprv ("onLinetime") = Request.Servervariables ("http_referer") ° Cables ("http_referer") ° Clables ("http_referer") ° Clables ("HTTP_REFERER") ° C. 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='"& Sitzung ("Benutzername") & "'' 'rSprv.open SQL, Conn, 1,3if rSprv.eof thenrsprv.addNewsprv (" sessionID ") = Session Jetzt () rSprv ("onLinetime") = 0rsprv ("userIP") = getiprSprv ("Benutzerwhere") = Request.Servervariables ("http_refererer") Elseif RSprv ("SessionID") Session Die Website hat 1 ID und kann nur 1 Login/n haben. Sie können sich später anmelden. 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 ("Löschen von [Online] WobDas obige ist eine Einführung, wie der gleiche Benutzername gleichzeitig daran gehindert wird, sich anzumelden. Ich hoffe es kann dir gefallen. Für weitere Inhalte achten Sie bitte weiterhin auf die Website des falschen neuen Technologiekanals!