count.asp :
<%Server.ScriptTimeout=300
identifiant=Trim(Request.QueryString("id"))
fc=Trim(Request.QueryString("fc"))
si fc="" alors fc="FFFF00"
bg=Trim(Request.QueryString("bg"))
si bg="" alors bg="000000"
bc=Trim(Request.QueryString("bc"))
si bc="" alors bc="00FF00"
sername=Request.ServerVariables("SERVER_NAME")
scrname=Request.ServerVariables("SCRIPT_NAME")
linkurl="http://" & nom de serveur & nom d'utilisateur
%>
<html>
<tête>
<title>实时统计在线人数</title>
<META HTTP-EQUIV="Refresh" content="10; URL=<%=linkurl%>"> '每隔10秒刷新
<méta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style TYPE="texte/css">
<!--
P {TAILLE DE POLICE : 9 pt ; couleur de police : #eeeeee}
A {TEXTE-DÉCORATION : aucun}
R : lien {COULEUR : #0068A3}
R : visité {COULEUR : #0068A3}
A : survolez {COULEUR : #2f00ff ; TEXTE-DÉCORATION : souligner}
.ourfont {taille de police : 9pt }
CORPS { TAILLE DE LA POLICE : 9 pts}
TABLEAU { TAILLE DE LA POLICE : 9 pts}
-->
</style>
</tête>
<%
countfile=server.mappath("people.asp")
Définir fs=CreateObject("Scripting.FileSystemObject")
n=Année(date())
y=Mois(date())
r=Jour(date())
s=Heure(heure())
f=Minute(heure())
m=Seconde(temps())
si len(y)=1 alors y="0" & y
si len(r)=1 alors r="0" & r
si len(s)=1 alors s="0" & s
si len(f)=1 alors f="0" & f
si len(m)=1 alors m="0" & m
sj = n & "-" & y & "-" & r & " " & s & ":" & f & ":" & m
'格式化日期、时间
faiblement ()
Définir thisfile=fs.OpenTextFile(countfile,1,False)
décompte = 0
faire sans ce fichier.AtEndOfStream
thisline = cefichier.readline
Redim préserver ly (comté)
ly (countcount) = cette ligne
dénombrement = dénombrement + 1
boucle 'people.asp中内容读到数组中
cefichier.close
même ip=0
pour i=1 à (countly-1)/2
si DateDiff("s",ly(i*2),sj)>60 alors
ly(i*2-1)=""
ly(je*2)=""
décompte = décompte-2
finir si
si Request.ServerVariables("REMOTE_ADDR")=ly(i*2-1) alors
sameip=1 'IP de base
ly(i*2)=sj
finir si
suivant
set outfile = fs.CreateTextFile (countfile)
pour i=0 à count-1
si ly(i)<>"" alors
outfile.WriteLine ly(i)
finir si
suivant
si mêmeip=0 alors
outfile.WriteLine Request.ServerVariables("REMOTE_ADDR")
outfile.WriteLine sj '添加新记录
fichier de sortie.Fermer
finir si
Définir thisfile=fs.OpenTextFile(countfile,1,False)
décompte = 0
faire sans ce fichier.AtEndOfStream
thisline = cefichier.readline
Redim préserver ly (comté)
ly (countcount) = cette ligne
dénombrement = dénombrement + 1
boucle
cefichier.close
total=(countly-1)/2 '统计总人数
%>
<body>
<p><select name="En ligne" size="1">
<option selected value="En ligne"><%=total%>人在线上</option>
<%
pour i=1 au total
réponse.write "<option>"&ly(i*2-1)&"</option>"
suivant
%>
</sélectionner></p>
</corps>
</html>
people.asp :
<%Response.end%>
172.16.20.230' pour IP
2003-06-15 09:53:57'登录时间