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'登入時間