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://" & Sername & scrname
%>
<html>
<头>
<title>实时统计在线人数</title>
<META HTTP-EQUIV="Refresh" content="10; URL=<%=linkurl%>"> '每隔10秒刷新
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<样式类型=“文本/CSS”>
<!--
P {字体大小：9pt；字体颜色：#eeeeee}
A {文本装饰：无}
答：链接{颜色：#0068A3}
答：访问过{颜色：#0068A3}
A：悬停{颜色：#2f00ff;文本修饰：下划线}
.ourfont {字体大小：9pt }
正文 { 字体大小：9pt}
表{字体大小：9pt}
-->
</风格>
</头>
<%
countfile=server.mappath("people.asp")
设置 fs=CreateObject("Scripting.FileSystemObject")
n=年份(日期())
y=月（日期（））
r=日(日期())
s=小时(时间())
f=分钟(时间())
m=秒(时间())
如果 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
' 格式化日期、时间
昏暗ly()
设置此文件=fs.OpenTextFile(countfile,1,False)
计数=0
当不是 thisfile.AtEndOfStream 时执行
这行 = thisfile.readline
Redim 保存 ly（计数）
ly(countly) = 这条线
计数 = 计数 + 1
Loop '将people.asp中内容读取到备份中
这个文件.关闭
相同ip=0
对于 i=1 到 (count-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)
结束如果
下一个
如果 Sameip=0 那么
outfile.WriteLine Request.ServerVariables("REMOTE_ADDR")
outfile.WriteLine sj '添加新记录
输出文件.关闭
结束如果
设置此文件=fs.OpenTextFile(countfile,1,False)
计数=0
当不是 thisfile.AtEndOfStream 时执行
这行 = thisfile.readline
Redim 保存 ly（计数）
ly(countly) = 这条线
计数 = 计数 + 1
环形
这个文件.关闭
Total=(countly-1)/2 '统计总人数
%>
<body>
<p><select name="在线" size="1">
<option selected value="在线"><%=total%>人在线上</option>
<%
对于 i=1 总计
response.write "<选项>"&ly(i*2-1)&"</选项>"
下一个
%>
</选择></p>
</正文>
</html>
people.asp:
<%Response.end%>
172.16.20.230'用户IP
2003-06-15 09:53:57'登录时间