1. Buat tabel database
Nama tabel online
Atur bidang berikut
ID 'digunakan untuk merekam sesi. Sesi dari setiap akses
Name'if itu adalah pengunjung, direkam sebagai pengunjung.
Online'if itu berkunjung, masing -masing adalah 0 jika itu adalah anggota 1
Event Datetime'Latest
Nama Pengguna Login Nama Pengguna, pengunjung kosong.
IP'Record Access ke semua IP login
head.asp 'menulis jumlah orang secara online ke tabel database, dan halaman harus dicari ke setiap halaman yang digunakan untuk menelusuri ASP.
<%
setRs = server.CreateObject ("adodb.recordset")
ifsession ("nama pengguna") = "" Kemudian menentukan bahwa pengguna tidak masuk
sql = "SELECT*fromlinewhereId = '" & session.SessionId & "' '' '"' Tentukan apakah sesi ini ada di tabel database.
rs.opensql, Conn, 1,3
Tampilan pertama IFRS.EOFTHEN'VISITOR
rs.addnew
rs ("id") = sessionId
rs ("name") = "tamu"
rs ("online") = 0'0 berarti bahwa pengguna tidak masuk dan merupakan identitas wisatawan
rs ("datetime") = now ()
userip = request.serverVariable ("http_x_forwarded_for")
Ifuserip = "" lalu
userip = request.serverVariable ("remote_addr")
endif
rs ("ip") = userip
lain tidak ada yang pertama kali dikeluarkan pengunjung
rs ("datetime") = now () 'Perbarui waktu aktivitas
rs.update
rs.close
endif
kalau tidak
sql = "SELECT*fromlinewhereId = '" & session.SessionId & "' oradmin = '" & session ("nama pengguna") & "' ''" '' Cukup tentukan bahwa Sesi atau catatan nama pengguna sudah ada di tabel data.
rs.opensql, Conn, 1,3
ifrs.eofthen
Anggota Rs.Addnew memasuki situs web untuk pertama kalinya (mungkin masuk langsung dari beranda situs web untuk memasuki forum).
rs ("id") = sessionId
rs ("name") = session ("show") 'tulis ke nama panggilan pengguna
rs ("nama pengguna") = sesi ("nama pengguna") 'Tulis untuk Masuk Nama Pengguna
rs ("online") = 1 'berarti bahwa pengguna telah masuk dan merupakan anggota
rs ("datetime") = now () 'Tetapkan waktu sistem saat ini sebagai waktu login pengguna
userip = request.serverVariable ("http_x_forwarded_for")
Ifuserip = "" lalu
userip = request.serverVariable ("remote_addr")
endif
rs ("ip") = userip
lain // Seorang anggota tidak menelusuri situs web untuk pertama kalinya, dan pengunjung masuk ke situs web.
rs ("name") = session ("show") perbarui nama panggilan pengguna