1：把以后的在线IP地址和会见工夫存入ly数组中。
Set ThisFile=StreamF.OpenTextFile(CountFile,1,False)
Countly=0
do while not ThisFile.AtEndOfStream
Thisline = ThisFile.readline
'利用了 Preserve 关头字，就只能调剂数组最初维的巨细，而且不克不及改动数组的维数。
'数组只要一维,该维是最初的也是唯一的一维,就能够修正该数组的巨细.
Redim preserve ly(Countly)
ly(Countly) = Thisline
'Countly 记录这ThisFile的行数
Countly = Countly + 1
loop
ThisFile.Close
2：入手下手刷新会见以后网页IP地址
sj中存确当前的体系工夫
sameip=0
for i=1 to (Countly-1)/2
'获得 偶数列
'假如在方才统计的在线IP地址和以后的工夫超越了一分钟，则上出该IP
if DateDiff("s",ly(i*2),sj)>60 then
ly(i*2-1)=""
ly(i*2)=""
Countly=Countly-2
end if
'获得方才在线的IP地址，假如如今还在线
'Request.ServerVariables("REMOTE_ADDR") 取得收回恳求机械的IP
if Request.ServerVariables("REMOTE_ADDR")=ly(i*2-1) then
sameip=1
ly(i*2)=sj
end if
next
3：将最新的会见以后网页的IP地址存入People.asp
'入手下手向People.asp这个文件写数据
set OutFile=StreamF.CreateTextFile(CountFile)
for i=0 to Countly-1
if ly(i)<>"" then
outFile.WriteLine ly(i)
end if
next