======Prinsip Produksi======
Metodenya adalah menambahkan informasi pengguna ke dalam database saat pengguna mengakses halaman web. Saat menambahkan, periksa apakah ada catatan online pengguna di database jadi, perbarui. Jika catatannya tidak ada, tambahkan ke database.
Dan hapus record online yang tidak ada aktivitas dalam waktu yang ditentukan (Mungkin itu!)
======Desain tabel data========
Buat tabel data baru bernama "Online"
Hapus kolom nomor otomatis dan buat kolom berikut. Nama kolom: ID Tipe: Nomor Nama kolom: GUESTNAME Tipe: Nama kolom teks: STATS Tipe: Nama kolom teks: VISITIME Tipe: Tanggal/Waktu Nama kolom: OUTTIME Tipe: Tanggal/Waktu
========Bagian kode sumber berikut ini untuk referensi ====== ===========
<%
sub activeonline()
dim ip
'////Hapus catatan online yang tidak aktif dalam 180 detik.
sql="Hapus DARI online WHERE DATEDIFF('s',outtime,now())>180"
Conn.Execute sql
if stats=""then'//Jika nilai stats kosong, maka akan ditampilkan sebagai
stats="Tidak tahu apa yang kamu lakukan?"
kalau tidak
statistik=statistik
end if
IP=replace(Request.ServerVariables("REMOTE_HOST"),".","")'////Dapatkan IP dan hapus "." di
IP '////Periksa apakah ini sudah ada di catatan IP tabel Online
sql="pilih id dari online di mana id='"&ip&"'"
set rs=conn.execute(sql)
if rs.eof atau rs.bof lalu'////Jika tidak ada catatan IP, tambahkan catatan online
sql="insert into online(id,guestname,stats,visitime,outtime ) nilai ("&ip&",'Tamu','"&stats&"',Sekarang(),Sekarang())"
else'////Jika catatan IP sudah ada di tabel Online, perbarui catatan
sql="update waktu set online =Sekarang(),stats='"&stats&"',nama tamu='tamu' di mana id='"&ip&"'"
berakhir jika
conn.execute(sql)
sub akhir
%>
==========Contoh========== ====
Ubah kode di atas dan simpan sebagai "Online.asp" dan sematkan di akhir setiap halaman web
<%
dim conn
konstr redup
pada kesalahan lanjutkan berikutnya
connstr="DBQ="+server.mappath("nama basis data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
setel koneksi=server.buat objek("ADODB.CONNECTION")
koneksi.buka koneksi
'Simpan sebagai file conn.asp
%>
<!--#INCLUDE FILE="sambungan.asp" -->
<%
dim stats
stats="Lihat online"
panggil activeonline()
Setel rs = Server.CreateObject("ADODB.Recordset")
sql="PILIH Id,Nama Tamu,Statistik,Wisitime,Outtime DARI PESANAN Online BERDASARKAN Desc Visittime"
rs.open sql,samb,1,3
total=rs.RecordCount
%>
<tabel border="1" cellpadding="2" cellpacing="0" style="border-collapse: collaps" bordercolor="#111111" width="100%" height="53">
<tr>
<td width="20%" height="16" align="center">Nama Panggilan</td>
<td width="20%" height="16" align="center">Tindakan</td>
<td width="20%" height="16" align="center">Kunjungi</td>
<td width="20%" height="16" align="center">Acara terakhir</td>
</tr>
<%lakukan selagi belum rs.eof%>
<tr>
<td width="20%" height="28" align="center"><%=rs(1)%></td>
<td width="20%" height="28" align="center"><%=rs(2)%></td>
<td width="20%" height="28" align="center"><%=rs(3)%></td>
<td width="20%" height="28" align="center"><%=rs(4)%></td>
</tr>
<%
rs.movenext
lingkaran
%>
</tabel>
Jumlah orang yang online:<%=total%>
<%
rs.tutup
setel rs=tidak ada
%><!--#INCLUDE FILE="Online.asp" -->
Itu tidak ditulis dengan baik, itu konyol. Jika Anda memiliki metode yang lebih baik, silakan kirimkan.