ASP membuat kode statistik akses, Contoh 1. Buat tabel database
Nama tabel sedang online
Tetapkan bidang berikut
id 'session.sessionid digunakan untuk mencatat setiap akses
name 'Jika itu pengunjung, maka akan dicatat sebagai pengunjung.
online 'jika pengunjung bernilai 0, jika anggota bernilai 1
datetime 'Waktu aktivitas terbaru
nama pengguna 'Nama pengguna login anggota, tamu kosong.
ip 'Catat IP login kunjungan
head.asp 'Tuliskan jumlah orang yang online ke tabel database. Halaman ini harus disertakan dalam setiap halaman ASP yang digunakan untuk menjelajah.
<%
set rs=Server.CreateObject(ADODB.Recordset)
if session(username)= maka menentukan bahwa pengguna tidak login
sql=pilih * dari online di mana id='&session.sessionid&' 'Tentukan apakah sessionid ini ada di tabel database.
rs.Buka sql, Sambung,1,3
jika rs.eof maka 'Kunjungan pertama pengunjung
rs.tambahkan baru
rs(id)=sesi.sessionID
rs(nama)=pengunjung
rs(online)=0 '0 berarti pengguna belum login dan merupakan pengunjung.
rs(tanggal waktu)=sekarang()
userip = Permintaan.ServerVariables(HTTP_X_FORWARDED_FOR)
Jika userip = Lalu
userip= Permintaan.Variabel Server(REMOTE_ADDR)
berakhir jika
rs(ip)=penggunarip
else 'Pengunjung tidak menjelajah untuk pertama kalinya
rs(datetime)=now() 'Perbarui waktu aktivitas
rs.update
rs.tutup
berakhir jika
kalau tidak
sql=pilih * dari online di mana id=' & session.sessionID & ' atau admin='&session(nama pengguna)&' 'Tentukan apakah record sessionid atau nama pengguna sudah ada di tabel data.
rs.Buka sql, Sambung,1,3
jika rs.eof maka
rs.addnew 'Anggota memasuki website untuk pertama kalinya (dapat login langsung dari beranda website untuk masuk ke forum).
rs(id)=sesi.sessionID
rs(nama)=sesi(tunjukkan) 'Tulis nama panggilan pengguna
rs(nama pengguna)=sesi(nama pengguna) 'Tulis nama pengguna login
rs(online)=1 'Menunjukkan bahwa pengguna telah login dan menjadi anggota
rs(datetime)=now() 'Atur waktu sistem saat ini ke waktu login pengguna
userip = Permintaan.ServerVariables(HTTP_X_FORWARDED_FOR)
Jika userip = Lalu
userip= Permintaan.Variabel Server(REMOTE_ADDR)
berakhir jika
rs(ip)=penggunarip
else //Ini bukan pertama kalinya anggota menelusuri situs web, dan pengunjung masuk ke situs web.
rs(name)=session(show) memperbarui nama panggilan pengguna
rs(nama pengguna)=sesi(nama pengguna)
rs(online)=1 'Menunjukkan bahwa pengguna telah login dan menjadi anggota
rs(tanggal waktu)=sekarang()
berakhir jika
rs.update
rs.tutup
berakhir jika
atur rs=tidak ada
%>
conn.execute(hapus dari online di mana tanggaliff('s',datetime,now())>60) 'Hapus pengunjung yang tidak aktif selama 60 detik.