hitungan.asp:
<%Server.ScriptTimeout=300
id=Trim(Permintaan.QueryString("id"))
fc=Trim(Permintaan.QueryString("fc"))
jika fc="" maka fc="FFFF00"
bg=Trim(Permintaan.QueryString("bg"))
jika bg="" maka bg="000000"
bc=Trim(Permintaan.QueryString("bc"))
jika bc = "" maka bc = "00FF00"
sername=Permintaan.ServerVariables("SERVER_NAME")
scrname=Permintaan.ServerVariables("SCRIPT_NAME")
linkurl="http://" & nama pengguna & nama scr
%>
<html>
<kepala>
<title>实时统计在线人数</title>
<META HTTP-EQUIV="Segarkan" content="10; URL=<%=linkurl%>"> '每隔10秒刷新
<meta http-equiv="Jenis Konten" content="teks/html; charset=gb2312">
<gaya TYPE="teks/css">
<!--
P {UKURAN FONT: 9pt; warna font: #eeeeee}
A {DEKORASI TEKS: tidak ada}
A:tautan {WARNA: #0068A3}
A: dikunjungi {COLOR: #0068A3}
A: arahkan kursor {WARNA: #2f00ff; DEKORASI TEKS: garis bawah}
.ourfont {ukuran font: 9pt }
TUBUH { UKURAN FONT: 9pt}
TABEL { UKURAN FONT: 9pt}
-->
</gaya>
</kepala>
<%
countfile=server.mappath("orang.asp")
Setel fs=CreateObject("Scripting.FileSystemObject")
n=Tahun(tanggal())
y=Bulan(tanggal())
r=Hari(tanggal())
s=Jam(waktu())
f=Menit(waktu())
m=Kedua(waktu())
jika len(y)=1 maka y="0" & y
jika len(r)=1 maka r='0' & r
jika len(s)=1 maka s="0" & s
jika len(f)=1 maka f='0' & f
jika len(m)=1 maka m="0" & m
sj = n & "-" & y & "-" & r & " " & s & ":" & f & ":" & m
'格式化日期、时间
redup ()
Setel file ini=fs.OpenTextFile(countfile,1,False)
terhitung=0
lakukan saat bukan file ini.DiEndOfStream
baris ini = file ini.readline
Redim pertahankan ly(hitungan)
ly(hitungan) = baris ini
hitungan = hitungan + 1
loop '将people.asp中内容读到数组中
file ini.tutup
samaip=0
untuk i=1 sampai (hitungan-1)/2
jika DateDiff("s",ly(i*2),sj)>60 maka
ly(i*2-1)=""
ly(i*2)=""
hitungan=hitungan-2
berakhir jika
jika Request.ServerVariables("REMOTE_ADDR")=ly(i*2-1) maka
sameip=1 'IP已经存在
ly(i*2)=sj
berakhir jika
Berikutnya
set outfile=fs.CreateTextFile(countfile)
untuk i=0 hingga hitungan ke-1
jika ly(i)<>"" maka
file keluar.WriteLine ly(i)
berakhir jika
Berikutnya
jika sameip=0 maka
file keluar.PermintaanWriteLine.ServerVariables("REMOTE_ADDR")
outfile.WriteLine sj '添加新记录
file keluar.Tutup
berakhir jika
Setel file ini=fs.OpenTextFile(countfile,1,False)
terhitung=0
lakukan saat bukan file ini.DiEndOfStream
baris ini = file ini.readline
Redim pertahankan ly(hitungan)
ly(hitungan) = baris ini
hitungan = hitungan + 1
lingkaran
file ini.tutup
total=(hitungan-1)/2 '统计总人数
%>
<body>
<p><pilih nama="Online" size="1">
<optionselect value="Online"><%=total%>人在线上</option>
<%
untuk i=1 total
respon.tulis "<option>"&ly(i*2-1)&"</option>"
Berikutnya
%>
</pilih></p>
</tubuh>
</html>
orang.asp:
<%Response.end%>
172.16.20.230'用户IP
15-06-2003 09:53:57'登录时间