|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
由于ASP还是一种Script语言所没除了大量使用组件外,没有办法提高其工作效率。它必须面对即时编绎的时间考验,同时我们还不知其背后的组件会是一个什么样的状况;在线IP地址
功效:显现以后网页在耳目数和IP地点。
办法:把以后的网页在线IP地点存进People.asp中,每过一分钟主动革新一次,用来统计以后网页的在耳目数和IP地点。
1:把以后的在线IP地点和会见工夫存进ly数组中。
SetThisFile=StreamF.OpenTextFile(CountFile,1,False)
Countly=0
dowhilenotThisFile.AtEndOfStream
Thisline=ThisFile.readline
利用了Preserve关头字,就只能调剂数组最初维的巨细,而且不克不及改动数组的维数。
数组只要一维,该维是最初的也是唯一的一维,就能够修正该数组的巨细.
Redimpreservely(Countly)
ly(Countly)=Thisline
Countly纪录这ThisFile的行数
Countly=Countly+1
loop
ThisFile.Close
2:入手下手革新会见以后网页IP地点
sj中存确当前的体系工夫
sameip=0
fori=1to(Countly-1)/2
获得偶数列
假如在方才统计的在线IP地点和以后的工夫凌驾了一分钟,则上出该IP
ifDateDiff("s",ly(i*2),sj)>60then
ly(i*2-1)=""
ly(i*2)=""
Countly=Countly-2
endif
猎取方才在线的IP地点,假如如今还在线
Request.ServerVariables("REMOTE_ADDR")取得收回哀求呆板的IP
ifRequest.ServerVariables("REMOTE_ADDR")=ly(i*2-1)then
sameip=1
ly(i*2)=sj
endif
next
3:将最新的会见以后网页的IP地点存进People.asp
入手下手向People.asp这个文件写数据
setOutFile=StreamF.CreateTextFile(CountFile)
fori=0toCountly-1
ifly(i)""then
outFile.WriteLinely(i)
endif
next
ifsameip=0then
outFile.WriteLineRequest.ServerVariables("REMOTE_ADDR")
outFile.WriteLinesj
outFile.Close
endif
</p>asp,jsp,php是web开发的三大技术,asp简单易用且有microsoft做靠山,jsp功能强大是因为有java支持,php则开源跨平台.在国内,asp应用范围最广,jsp发展势头最猛,php则处于劣势.这可能与公司的支持以及技术的培训有关. |
|