1. สร้างตารางฐานข้อมูล
ชื่อตารางออนไลน์
ตั้งค่าฟิลด์ต่อไปนี้
ID 'ใช้เพื่อบันทึกเซสชัน sessionId ของการเข้าถึงแต่ละครั้ง
Name'if เป็นผู้เข้าชมมันถูกบันทึกเป็นผู้เยี่ยมชม
online'if กำลังเยี่ยมชมแต่ละคนคือ 0 ถ้าเป็นสมาชิก 1
เหตุการณ์ DateTime'latest
ชื่อผู้ใช้ชื่อผู้ใช้ชื่อผู้เยี่ยมชมจะว่างเปล่า
การเข้าถึง IP'Record ไปยัง IP ล็อกอินทั้งหมด
head.asp 'เขียนจำนวนคนออนไลน์ไปยังตารางฐานข้อมูลและต้องค้นหาหน้าในแต่ละหน้าที่ใช้ในการเรียกดู ASP
-
setRs = server.createObject ("adodb.recordset"))
ifsession ("ชื่อผู้ใช้") = "" จากนั้นกำหนดว่าผู้ใช้ไม่ได้เข้าสู่ระบบ
SQL = "SELECT*FRONLINEWHEREID = '" Session.sessionId & "' '' '' กำหนดว่าเซสชันนี้มีอยู่ในตารางฐานข้อมูลหรือไม่
Rs.opensql, Conn, 1,3
มุมมองแรกของ ifrs.eofthen'visitor
Rs.Addnew
rs ("id") = session.sessionid
RS ("ชื่อ") = "แขก"
RS ("ออนไลน์") = 0'0 หมายความว่าผู้ใช้ไม่ได้เข้าสู่ระบบและเป็นตัวตนของนักท่องเที่ยว
RS ("DateTime") = ตอนนี้ ()
userip = request.serverVariables ("http_x_forwarded_for")
ifuserip = "" แล้ว
userip = request.serverVariables ("remote_addr")
endif
RS ("IP") = USERIP
อื่นไม่ได้เป็นครั้งแรกที่ผู้เข้าชมเรียกดู
RS ("DateTime") = ตอนนี้ () 'เวลาอัปเดตกิจกรรม
Rs.update
Rs.close
endif
อื่น
sql = "select*fromlinewhereid = '" & session.sessionid & "' oradmin = '" & เซสชัน ("ชื่อผู้ใช้") & "' '' '' เพียงกำหนดว่าบันทึกเซสชันหรือชื่อผู้ใช้มีอยู่แล้วในตารางข้อมูล
Rs.opensql, Conn, 1,3
ifrs.eofthen
สมาชิก Rs.AddNew เข้าสู่เว็บไซต์เป็นครั้งแรก (อาจเข้าสู่ระบบโดยตรงจากหน้าแรกของเว็บไซต์เพื่อเข้าสู่ฟอรัม)
rs ("id") = session.sessionid
rs ("ชื่อ") = เซสชัน ("แสดง") 'เขียนชื่อเล่นของผู้ใช้
RS ("ชื่อผู้ใช้") = เซสชัน ("ชื่อผู้ใช้") 'เขียนถึงชื่อผู้ใช้เข้าสู่ระบบ
RS ("ออนไลน์") = 1 'หมายความว่าผู้ใช้ได้ลงชื่อเข้าใช้และเป็นสมาชิก
RS ("DateTime") = Now () 'ตั้งเวลาระบบปัจจุบันเป็นเวลาเข้าสู่ระบบของผู้ใช้
userip = request.serverVariables ("http_x_forwarded_for")
ifuserip = "" แล้ว
userip = request.serverVariables ("remote_addr")
endif
RS ("IP") = USERIP
อื่น // สมาชิกไม่ได้เรียกดูเว็บไซต์เป็นครั้งแรกและผู้เข้าชมจะลงชื่อเข้าใช้เว็บไซต์
rs ("ชื่อ") = เซสชัน ("แสดง") อัปเดตชื่อเล่นผู้ใช้