|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP脚本是采用明文(plain text)方式来编写的。ip地址|网页|显示|在线|在耳目数 功效:显示以后网页在耳目数和IP地址。
办法:把以后的网页在线IP地址存入People.asp中,每过一分钟主动刷新一次,用来统计以后网页的在耳目数和IP地址。
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
if sameip=0 then
outFile.WriteLine Request.ServerVariables("REMOTE_ADDR")
outFile.WriteLine sj
outFile.Close
end if
缺乏可以共同遵循的行业标准,ASP还处在发展初期,大家对它的理解不同,如产品和服务标准,收费标准等,不利于行业的健康发展。 |
|