Сегодня редактор поделится с вами представлением о том, как ограничить то же имя пользователя в то же время. Заинтересованные друзья узнают об этом с редактором!
Мое решение этой проблемы состоит в том, что у пользователя есть активная проблема с интервалом времени. Те, кто превышают этот активный интервал времени, можно считать в автономном режиме, и последний может войти в систему. Если последнее не входит в систему, это не означает, что первое необходимо снова войти в систему. Потому что его сессия все еще там. Может быть только то, что чем меньше настройка времени, тем точнее она, и она не может быть абсолютным.
Код размещен для справки автором.
Function chectonline () Dim ip, rsprv, sql, prvdbstateprvdbstate = falseif dbstate = false thendbopen () prvdbstate = trueend ifset rsprv = server.createobject ("adodb.recordset") if session ("username") = "" thenseblece = "sesenb.sessest"). & "'' rsprv.open sql, conn, 1,3if rsprv.eof thenrsprv.addnewsprv (" sessionId ") = session.sessionIdrsprv (" GroupChargelv ") = -1rsprv (" Lastacttime ") = теперь () rsprv (" userip ") = getiprvrvrsprvmeme ') = теперь () rsprv (" usip ") = getipr 0rsprv ("Пользовательский мир") = request.servervariables ("http_referer") elsersprv ("Пользовательский мир") = запрос.servervariables ("http_referer") rsprv ("onlinetime") = request.servervariables ("http_referer" () rsprvimables ("http_referer") rsprv ("onlinetime") + datediff ("n", rsprv ("lastacttime"), теперь ()) rsprv ("tastacttime") = now () end ifrsprv.updatersprv.close () 'response.write "notlogin" eless -response.write "sql =‘ select' orname 'orname' restrame "resline '" hold hous "squname =' select 'restame]" restrite "restrite" и "resline" и "resline". Session ("username") & "'" rsprv.open sql, conn, 1,3if rsprv.eof thenrsprv.addnewsprv ("sessionId") = session.sessionIdrsprv ("username") = session ("usermeme") rsprv ("GroupChelv") = Session ("GroupChelverv") rsprv ("GroupChelv") = Session ("GroupChelverv") rsprv -') rsprv -') rsprv -') rsprv -') rsprv ("GroupChelv") = SessionChelVlowerVlower "). Теперь () rsprv ("onlinetime") = 0rsprv ("userip") = getiprsprv ("userwhere") = request.servervariables ("http_referer") elseif rsprv ("sessionId"). Веб -сайт имеет 1 ID и может иметь только 1 логин/n Вы можете попробовать входить в систему позже. Datediff ("n", rsprv ("tastacttime"), теперь ()) rsprv ("lastacttime") = now () end ifrsprv.updatersprv.close () end ifset rsprv = ничто Thenapplication.lock () application ("onlineLastDelete") = nowapplication.unlock () conn.execute ("Удалить из [онлайн], где dateiff ('s', lastacttime, now ())>" & int ("checkonledifinediff") & "") 'Удалить гость без действия x seconds end provdbstate = dbcla en end in end infiftate = dbclasВыше приведено введение в то, как ограничить одно и то же имя пользователя в системе входа в систему одновременно. Надеюсь, вам это понравится. Для получения дополнительного контента, пожалуйста, продолжайте обращать внимание на веб -сайт неправильного нового технологического канала!