recuento.asp:
<%Server.ScriptTimeout=300
id=Recortar(Request.QueryString("id"))
fc=Recortar(Solicitud.QueryString("fc"))
si fc="" entonces fc="FFFF00"
bg=Recortar(Solicitud.QueryString("bg"))
si bg="" entonces bg="000000"
bc=Recortar(Request.QueryString("bc"))
si bc="" entonces bc="00FF00"
sername=Request.ServerVariables("SERVER_NAME")
scrname=Request.ServerVariables("SCRIPT_NAME")
linkurl="http://" & nombre de usuario & nombre de usuario
%>
<html>
<cabeza>
<title>实时统计在线人数</title>
<META HTTP-EQUIV="Refresh" content="10; URL=<%=linkurl%>"> '每隔10秒刷新
<meta http-equiv="Tipo de contenido" content="text/html; charset=gb2312">
<tipo de estilo="texto/css">
<!--
P {TAMAÑO DE FUENTE: 9 puntos; color de fuente: #eeeeee}
A {TEXTO-DECORACIÓN: ninguna}
R: enlace {COLOR: #0068A3}
R:visitado {COLOR: #0068A3}
A: flotar {COLOR: #2f00ff; TEXTO-DECORACIÓN: subrayado}
.ourfont {tamaño de fuente: 9pt}
CUERPO { TAMAÑO DE FUENTE: 9pt}
TABLA {TAMAÑO DE FUENTE: 9pt}
-->
</estilo>
</cabeza>
<%
countfile=server.mappath("personas.asp")
Establecer fs=CreateObject("Scripting.FileSystemObject")
n=Año(fecha())
y=Mes(fecha())
r=Día(fecha())
s=Hora(hora())
f=Minuto(tiempo())
m=Segundo(tiempo())
si len(y)=1 entonces y="0" & y
si len(r)=1 entonces r="0" & r
si len(s)=1 entonces s="0" & s
si len(f)=1 entonces f="0" & f
si len(m)=1 entonces m="0" & m
sj = n & "-" & y & "-" & r & " " & s & ":" & f & ":" & m
'格式化日期、时间
débilmente()
Establezca este archivo = fs.OpenTextFile (countfile, 1, False)
recuento=0
hacerlo mientras no este archivo.AtEndOfStream
esta línea = este archivo.readline
Redim preservar ly (contado)
ly(conteo) = esta línea
contar = contar + 1
bucle '将people.asp中内容读到数组中
estearchivo.cerrar
mismaip=0
para i=1 a (cuenta-1)/2
si DateDiff("s",ly(i*2),sj)>60 entonces
ly(i*2-1)=""
ly(i*2)=""
conteo = conteo-2
terminar si
si Request.ServerVariables("REMOTE_ADDR")=ly(i*2-1) entonces
mismaip=1 'IP已经存在
ly(i*2)=sj
terminar si
próximo
establecer archivo de salida = fs.CreateTextFile (archivo de recuento)
para i=0 a countly-1
si ly(i)<>"" entonces
archivo de salida.WriteLine ly(i)
terminar si
próximo
si mismoip = 0 entonces
archivo de salida.WriteLine Request.ServerVariables("REMOTE_ADDR")
outfile.WriteLine sj '添加新记录
archivo de salida.Cerrar
terminar si
Establezca este archivo = fs.OpenTextFile (countfile, 1, False)
recuento=0
hacerlo mientras no este archivo.AtEndOfStream
esta línea = este archivo.readline
Redim preservar ly (contado)
ly(conteo) = esta línea
contar = contar + 1
bucle
estearchivo.cerrar
total=(cuenta-1)/2 '统计总人数
%>
<cuerpo>
<p><seleccione nombre="En línea" tamaño="1">
<opción valor seleccionado="Online"><%=total%>人在线上</option>
<%
para i=1 para totalizar
respuesta.escribir "<opción>"&ly(i*2-1)&"</option>"
próximo
%>
</select></p>
</cuerpo>
</html>
personas.asp:
<%Response.end%>
172.16.20.230'用户IP
2003-06-15 09:53:57'登录时间