Mari kita buat database ACCESS baru terlebih dahulu
Isinya adalah
Nama tabel: zai
Bidangnya adalah
1.ip
2.waktu
Buat file sebagai index.asp
Kemudian ikuti prosedur di bawah ini!
<%
' ===== = ===== =
'
'************************ Bingling Program Menghitung Orang Online V2.0 ***************** *** **********
'
'Program situs web ini diproduksi secara independen oleh "Bingling Studio" - Pendekar Es Krim! Harap hargai hasil kerja Anda
'
' "Bingling Studio"─━╃→Ciptakan kepribadian dengan kekuatan
'
'* Penulis: Pendekar Es Krim
'* Situs web: http://www.blbcn.com
'*Email: [email protected]
'*QQ:68156987
'* Alamat: Wuxi, Jiangsu
'******************************************************* ******************************
'
'Hak Cipta · Plagiarisme dan penyalahgunaan akan diselidiki
'
' ===== = ===== =
'---------Definisikan variabel
redup
meredup
batas waktu redup
redup x
koneksi redup
jalur redup
'---------Akhir dari variabel penentu
'--------- Tautan basis data yang disarankan
setel koneksi=server.buat objek(adodb.koneksi)
DBPath = Server.MapPath(zai.mdb)
samb.Buka driver={Microsoft Access Driver (*.mdb)};dbq= & DBPath
'--------- Pembuatan tautan basis data selesai
'---------Buat objek RS database baru
set rs = server.createobject(adodb.recordset)
'---------Pembuatan objek RS database selesai
'---------Baca alamat IP klien
ip = Request.ServerVariables(HTTP_X_FORWARDED_FOR) 'Jika pihak lain menggunakan server proxy untuk mengakses Internet, gunakan Request.ServerVariables(HTTP_X_FORWARDED_FOR) untuk mendapatkan IP asli pihak lain , nilai IP kosong.
If ip = Then ip = Request.ServerVariables(REMOTE_ADDR) 'Jika nilai IP kosong, dapatkan alamat klien lokalnya
'---------Pembacaan IP selesai
'--------- Baca jumlah konten baru yang ditambahkan ke database dalam 20 menit terakhir, kelompokkan berdasarkan ip-table Nilai IP sama dengan 1
sql=pilih ip dari zai di mana waktu >= dateadd('n',-20,now()) kelompokkan berdasarkan ip
rs.Buka sql, samb., 1,1
zai=rs.RecordCount
rs.Tutup
'---------Dapatkan jumlah orang yang online
'--------- Periksa apakah sudah ada nilai yang sama di database, jika belum x=ya, jika belum x=tidak
sql=pilih ip dari zai di mana ip=' & ip & '
rs.Buka sql, samb., 1,1
jika rs.eof dan rs.bof maka
x= ya
kalau tidak
x=tidak
berakhir jika
rs.tutup
'-------- Keputusan selesai
'--------Jika tidak ada nilai yang sama dalam database, tambahkan nilai baru
jika x=ya maka' Jika tidak ada IP seperti itu, tambahkan catatan
sql=pilih 1 * teratas dari zai
rs.Buka sql, samb., 1,3
rs.TambahBaru
rs(ip)=ip
rs(waktu)=sekarang()
rs.update
rs.tutup
else 'Jika ada IP ini, ubah waktunya menjadi waktu saat ini
sql=pilih * dari zai di mana ip=' & ip & '
rs.Buka sql, samb., 1,3
rs(waktu)=sekarang()
rs.update
rs.tutup
berakhir jika
'-------- Menilai bahwa bergabung sudah selesai
'--------Hapus nilai tambah 20 menit yang lalu
batas waktu = tanggaltambahkan(n, -20, sekarang())
sql=hapus * dari zai di mana waktu < # & batas waktu & #
samb.Jalankan sql
'--------Penghapusan selesai
'--------Tutup objek data
atur rs=tidak ada
samb.Tutup
setel samb=tidak ada
%>
document.write(Total <%=zai%> orang online)
OKE!
Selesai!