contagem.asp:
<%Server.ScriptTimeout=300
id=Trim(Request.QueryString("id"))
fc=Trim(Request.QueryString("fc"))
se fc="" então fc="FFFF00"
bg=Trim(Request.QueryString("bg"))
se bg="" então bg="000000"
bc=Trim(Request.QueryString("bc"))
se bc="" então bc="00FF00"
sername=Request.ServerVariables("SERVER_NAME")
scrname=Request.ServerVariables("SCRIPT_NAME")
linkurl="http://" & nome de ser & nome scr
%>
<html>
<cabeça>
<title>实时统计在线人数</title>
<META HTTP-EQUIV="Atualizar" content="10; URL=<%=linkurl%>"> '每隔10秒刷新
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<estilo TYPE="texto/css">
<!--
P {TAMANHO DA FONTE: 9pt; cor da fonte: #eeeee}
A {DECORAÇÃO DE TEXTO: nenhum}
R: link {COR: #0068A3}
R:visitou {COR: #0068A3}
A: passe o mouse {COR: #2f00ff; DECORAÇÃO DE TEXTO: sublinhado}
.ourfont {tamanho da fonte: 9pt}
CORPO {TAMANHO DA FONTE: 9pt}
TABELA {TAMANHO DA FONTE: 9pt}
-->
</estilo>
</head>
<%
countfile=server.mappath("pessoas.asp")
Definir fs=CreateObject("Scripting.FileSystemObject")
n=Ano(data())
y=Mês(data())
r=Dia(data())
s=Hora(tempo())
f = Minuto (tempo ())
m=Segundo(tempo())
se len(y)=1 então y="0" & y
se len(r)=1 então r="0" & r
se len(s)=1 então s="0" & s
se len(f)=1 então f="0" & f
se len(m)=1 então m="0" & m
sj = n & "-" & y & "-" & r & " " & s & ":" & f & ":" & m
'格式化日期、时间
fracamente()
Defina thisfile=fs.OpenTextFile(countfile,1,False)
contagem=0
faça enquanto não for thisfile.AtEndOfStream
esta linha = este arquivo.readline
Redim preservar ly (contagem)
ly(contagem) = esta linha
contagem = contagem + 1
loop '将people.asp中内容读到数组中
este arquivo.fechar
mesmoip = 0
para i=1 a (contagem-1)/2
se DateDiff("s",ly(i*2),sj)>60 então
apenas(i*2-1)=""
apenas(i*2)=""
contagem = contagem-2
terminar se
se Request.ServerVariables("REMOTE_ADDR")=ly(i*2-1) então
sameip=1 'IP已经存在
ly(i*2)=sj
terminar se
próximo
definir arquivo de saída = fs.CreateTextFile (arquivo de contagem)
para i = 0 para contar-1
se ly(i)<>"" então
arquivo de saída.WriteLine ly(i)
terminar se
próximo
se mesmoip=0 então
outfile.WriteLine Request.ServerVariables("REMOTE_ADDR")
outfile.WriteLine sj '添加新记录
arquivo de saída.Fechar
terminar se
Defina thisfile=fs.OpenTextFile(countfile,1,False)
contagem=0
faça enquanto não for thisfile.AtEndOfStream
esta linha = este arquivo.readline
Redim preservar ly (contagem)
ly(contagem) = esta linha
contagem = contagem + 1
laço
este arquivo.fechar
total=(contagem-1)/2 '统计总人数
%>
<body>
<p><select name="Online" size="1">
<opção selecionada valor="Online"><%=total%>人在线上</option>
<%
para i = 1 para total
resposta.write "<option>"&ly(i*2-1)&"</option>"
próximo
%>
</select></p>
</body>
</html>
pessoas.asp:
<%Response.end%>
172.16.20.230'用户IP
15/06/2003 09:53:57'登录时间