在 线 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
Java Asp PHP .Net XML C/C++ CGI VB Jsp J2ee J2se J2me EJB Servlet Tomcat Resin Struts Weblogic Eclipse ANT GUI JMS Web servise IDEA Webphere Hibernate Spring Jboss Applet Swing Socket Javamail Perl Ajax P2P 安全 模式 框架 测试 开源 游戏
Windows XP Windows 2000 Windows 2003 Windows Me Windows 9.x Linux UNIX 注册表 操作系统 服务器 应用服务器
