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://" & ユーザー名 & scrname
%>
<html>
<頭>
<title>实時统计在線人数</title>
<META HTTP-EQUIV="Refresh" content="10; URL=<%=linkurl%>"> '每間隔10秒刷新
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style TYPE="text/css">
<!--
P {FONT-SIZE: 9pt;フォントの色: #eeeeee}
A {テキスト装飾: なし}
A:リンク {カラー: #0068A3}
A: 訪問しました {COLOR: #0068A3}
A: ホバー {COLOR: #2f00ff;テキスト装飾: 下線}
.ourfont {font-size: 9pt }
本文 { FONT-SIZE: 9pt}
表 {フォントサイズ: 9pt}
-->
</スタイル>
</head>
<%
countfile=server.mappath("people.asp")
Set fs=CreateObject("Scripting.FileSystemObject")
n=年(日付())
y=月(日付())
r=日(日付())
s=時間(time())
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
'格式化日期、時间
薄暗い（）
thisfile=fs.OpenTextFile(countfile,1,False) を設定します。
カウント=0
thisfile.AtEndOfStream ではないときに実行します
thisline = thisfile.readline
Redim 保存 ly(郡)
ly(郡) = この行
国 = 国 + 1
ループ '将people.asp中の内容读到数集団中
このファイル.閉じる
同じip=0
i=1 から (county-1)/2 の場合
if DateDiff("s",ly(i*2),sj)>60 then
ly(i*2-1)=""
ly(i*2)=""
国=国-2
終了する場合
if Request.ServerVariables("REMOTE_ADDR")=ly(i*2-1) then
Sameip=1 'IP すでに存在します
ly(i*2)=sj
終了する場合
次
set outfile=fs.CreateTextFile(countfile)
i=0 から count-1 まで
if ly(i)<>"" then
outfile.WriteLine ly(i)
終了する場合
次
Sameip=0 の場合
outfile.WriteLine Request.ServerVariables("REMOTE_ADDR")
outfile.WriteLine sj '追加新记录
outfile.Close
終了する場合
thisfile=fs.OpenTextFile(countfile,1,False) を設定します。
カウント=0
thisfile.AtEndOfStream ではないときに実行します
thisline = thisfile.readline
Redim 保存 ly(郡)
ly(郡) = この行
国 = 国 + 1
ループ
このファイル.閉じる
total=(countly-1)/2 '统计总人員
%>
<本文>
<p><select name="オンライン" size="1">
<option selected value="Online"><%=total%>オンライン上の人</option>
<%
i=1 から合計まで
response.write "<オプション>"&ly(i*2-1)&"</option>"
次
%>
</select></p>
</body>
</html>
people.asp:
<%Response.end%>
172.16.20.230'用户IP
2003-06-15 09:53:57'登录時間间