count.asp:
<%Server.ScriptTimeout=300
id=Trim(Request.QueryString("id"))
fc=Trim(Request.QueryString("fc"))
wenn fc="" dann fc="FFFF00"
bg=Trim(Request.QueryString("bg"))
wenn bg="" dann bg="000000"
bc=Trim(Request.QueryString("bc"))
wenn bc="" dann bc="00FF00"
sername=Request.ServerVariables("SERVER_NAME")
scrname=Request.ServerVariables("SCRIPT_NAME")
linkurl="http://" & sername & scrname
%>
<html>
<Kopf>
<title>实时统计在线人数</title>
<META HTTP-EQUIV="Refresh" content="10; URL=<%=linkurl%>"> '每隔10秒刷新
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style TYPE="text/css">
<!--
P {FONT-SIZE: 9pt; Schriftfarbe: #eeeeee}
A {TEXT-DEKORATION: keine}
A:link {FARBE: #0068A3}
A:besucht {COLOR: #0068A3}
A:hover {COLOR: #2f00ff; TEXT-DEKORATION: unterstreichen}
.ourfont {Schriftgröße: 9pt}
KÖRPER { SCHRIFTGRÖSSE: 9pt}
TABELLE { SCHRIFTGRÖSSE: 9pt}
->
</style>
</head>
<%
countfile=server.mappath("people.asp")
Setze fs=CreateObject("Scripting.FileSystemObject")
n=Jahr(Datum())
y=Monat(Datum())
r=Tag(Datum())
s=Stunde(Zeit())
f=Minute(time())
m=Sekunde(Zeit())
wenn len(y)=1 dann y="0" & y
wenn len(r)=1 dann r="0" & r
wenn len(s)=1 dann s="0" & s
wenn len(f)=1 dann f="0" & f
wenn len(m)=1 dann m="0" & m
sj = n & "-" & y & "-" & r & " " & s & :: & f & :: & m
'格式化日期、时间
dim ly()
Setze thisfile=fs.OpenTextFile(countfile,1,False)
count=0
Tun Sie dies jedoch nicht thisfile.AtEndOfStream
thisline = thisfile.readline
Redim konservieren ly(countly)
ly(countly) = thisline
countly = count + 1
Die Schleife „people.asp“ ist eine neue Schleife
thisfile.close
sameip=0
für i=1 bis (countly-1)/2
wenn DateDiff("s",ly(i*2),sj)>60 dann
ly(i*2-1)=""
ly(i*2)=""
countly=countly-2
Ende wenn
wenn Request.ServerVariables("REMOTE_ADDR")=ly(i*2-1) dann
sameip=1 'IP-Adresse des Benutzers
ly(i*2)=sj
Ende wenn
nächste
set outfile=fs.CreateTextFile(countfile)
für i=0 bis count-1
wenn ly(i)<>"" dann
outfile.WriteLine ly(i)
Ende wenn
nächste
wenn sameip=0 dann
outfile.WriteLine Request.ServerVariables("REMOTE_ADDR")
outfile.WriteLine sj '添加新记录
outfile.Close
Ende wenn
Setze thisfile=fs.OpenTextFile(countfile,1,False)
count=0
Tun Sie dies jedoch nicht thisfile.AtEndOfStream
thisline = thisfile.readline
Redim konservieren ly(countly)
ly(countly) = thisline
countly = count + 1
Schleife
thisfile.close
total=(countly-1)/2 'wird nicht verwendet
%>
<body>
<p><select name="Online" size="1">
<option selected value="Online"><%=total%>Sie erhalten keine Informationen</option>
<%
für i=1 zur Summe
Response.write "<option>"&ly(i*2-1)&"</option>"
nächste
%>
</select></p>
</body>
</html>
people.asp:
<%Response.end%>
172.16.20.230'用户IP
2003-06-15 09:53:57'登录时间