count.asp:
<%Server.ScriptTimeout=300
id=Trim(Request.QueryString("id"))
fc=Trim(Request.QueryString("fc"))
если fc="", то fc="FFFF00"
bg=Trim(Request.QueryString("bg"))
если bg="", то bg="000000"
bc=Trim(Request.QueryString("bc"))
если bc="", то bc="00FF00"
sername=Request.ServerVariables("SERVER_NAME")
scrname=Request.ServerVariables("SCRIPT_NAME")
linkurl="http://" и имя пользователя и имя пользователя
%>
<html>
<голова>
<title>实时统计在线人数</title>
<META HTTP-EQUIV="Refresh" content="10; URL=<%=linkurl%>"> '每隔10秒刷新
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<стиль ТИП="текст/css">
<!--
P {РАЗМЕР ШРИФТА: 9 пт; цвет шрифта: #eeeeee}
{ТЕКСТ-УКРАШЕНИЕ: нет}
A: ссылка {ЦВЕТ: #0068A3}
А: посетил {COLOR: #0068A3}
A:наведите {ЦВЕТ: #2f00ff; ТЕКСТ-УКРАШЕНИЕ: подчеркивание}
.ourfont {размер шрифта: 9pt }
BODY { РАЗМЕР ШРИФТА: 9pt}
ТАБЛИЦА { РАЗМЕР ШРИФТА: 9 пт}
-->
</стиль>
</голова>
<%
countfile=server.mappath("people.asp")
Set fs=CreateObject("Scripting.FileSystemObject")
n=Год(дата())
y=Месяц(дата())
r=День(дата())
s=Час(время())
f=Минута(время())
м = Секунда (время())
если len(y)=1, то y="0" & y
если len(r)=1, то r="0" & r
если len(s)=1, то s="0" & s
если len(f)=1, то f="0" & f
если len(m)=1, то m="0" & m
sj = n & "-" & y & "-" & r & " " & s & ":" & f & ":" & m
'格式化日期、时间
тусклый свет()
Установите thisfile=fs.OpenTextFile(countfile,1,False)
количество=0
делайте пока не thisfile.AtEndOfStream
эта строка = этот файл.readline
Редим сохранить ли (графство)
ly(количество) = эта строка
количество = количество + 1
цикл '将people.asp中内容读到数组中
этотфайл.закрыть
тот жеIP=0
для i=1 до (количество-1)/2
если DateDiff("s",ly(i*2),sj)>60, то
ly(i*2-1)=""
ly(i*2)=""
количество = количество-2
конец, если
если Request.ServerVariables("REMOTE_ADDR")=ly(i*2-1), то
Sameip=1 'IP-адрес
ly(i*2)=sj
конец, если
следующий
установить outfile=fs.CreateTextFile(countfile)
для i=0 до count-1
если ly(i)<>"" тогда
outfile.WriteLine ly(i)
конец, если
следующий
если тот же IP=0, то
outfile.WriteLine Request.ServerVariables("REMOTE_ADDR")
outfile.WriteLine sj '添加新记录
выходной файл.Закрыть
конец, если
Установите thisfile=fs.OpenTextFile(countfile,1,False)
количество=0
делайте пока не thisfile.AtEndOfStream
эта строка = этот файл.readline
Редим сохранить ли (графство)
ly(количество) = эта строка
количество = количество + 1
петля
этотфайл.закрыть
итого=(количество-1)/2 '统计总人数
%>
<body>
<p><select name="Online" size="1">
<option selected value="Online"><%=total%>Доступно</option>
<%
для i=1 до итога
response.write "<option>"&ly(i*2-1)&"</option>"
следующий
%>
</select></p>
</тело>
</html>
люди.asp:
<%Response.end%>
172.16.20.230'用户IP
2003-06-15 09:53:57'登录时间