วันนี้บรรณาธิการจะแบ่งปันวิธีการแนะนำวิธีการ จำกัด ชื่อผู้ใช้เดียวกันจากการเข้าสู่ระบบในเวลาเดียวกัน เพื่อนที่สนใจจะได้เรียนรู้เกี่ยวกับเรื่องนี้กับบรรณาธิการ!
ทางออกของฉันสำหรับปัญหานี้คือผู้ใช้มีปัญหาช่วงเวลาที่ใช้งานอยู่ ผู้ที่เกินช่วงเวลาที่ใช้งานอยู่นี้สามารถพิจารณาออฟไลน์และหลังสามารถเข้าสู่ระบบได้หากหลังไม่เข้าสู่ระบบก็ไม่ได้หมายความว่าอดีตจำเป็นต้องเข้าสู่ระบบอีกครั้ง เพราะเซสชั่นของเขายังคงอยู่ที่นั่น อาจเป็นได้ว่าการตั้งค่าเวลาที่เล็กลงนั้นมีความแม่นยำมากขึ้นและไม่สามารถแน่นอนได้
รหัสถูกโพสต์สำหรับการอ้างอิงโดยผู้เขียน
ฟังก์ชั่น checkOnline () Dim IP, RSPRV, SQL, PRVDBSTATEPRVDBSTATE = TALTEIF DBSTATE = FALSE thendBopen () prvdbState = trueend ifset rsprv = server.createObject ("adodb.RecordSet") & "'" rsprv.open sql, conn, 1,3if rsprv.eof thenrsprv.addnewsprv ("sessionid") = session.sessionidrsprv ("groupchargelv") = -1rsprv ("LastActtime") = ตอนนี้ 0RSPRV ("userwhere") = request.ServerVariables ("http_referer") elsersprv ("userwhere") = request.serverVariables ("http_referer") rsprv ("onlinetime") = request.serverVaribles rsprv ("onlinetime") + datediff ("n", rsprv ("LastActtime"), ตอนนี้ ()) rsprv ("LastActtime") = ตอนนี้ () สิ้นสุด ifrsprv.updatersprv.close () [) เซสชัน ("ชื่อผู้ใช้") & "'" rsprv.open sql, conn, 1,3if rsprv.eof thenrsprv.addnewsprv ("sessionid") = session.sessionidrsprv ("ชื่อผู้ใช้") = เซสชัน ("username") ตอนนี้ () rsprv ("onlinetime") = 0rsprv ("userip") = getIprsprv ("ผู้ใช้") = request.serverVariables ("http_referer") elseif rsprv ("เซสชัน") session.sessionid และแอปพลิเคชัน ที่อื่นเว็บไซต์มี 1 ID และสามารถมี 1 ล็อกอิน/n คุณสามารถลองเข้าสู่ระบบในภายหลัง datediff ("n", rsprv ("LastActtime"), ตอนนี้ ()) rsprv ("LastActtime") = ตอนนี้ () สิ้นสุด ifrsprv.updatersprv.close () สิ้นสุด ifset rsprv = nothingiF datediff ("s", แอปพลิเคชัน ( แอปพลิเคชั่น THENAPPLICATION.LOCK () ("ONLINELASTDELETE") = NOWAPPLICATION.UNLOCK () cONN.EXECUTE ("ลบออกจาก [ออนไลน์] โดยที่ Dateiff ('S', LastActTime, Now ())>" & int ("CheckOnLinediff") & "")ข้างต้นเป็นการแนะนำวิธีการ จำกัด ชื่อผู้ใช้เดียวกันจากการเข้าสู่ระบบในเวลาเดียวกัน ฉันหวังว่าคุณจะชอบมัน สำหรับเนื้อหาเพิ่มเติมโปรดดำเนินการต่อเพื่อให้ความสนใจกับเว็บไซต์ของช่องทางเทคโนโลยีใหม่ที่ไม่ถูกต้อง!