ASP网页编程之ASP显示以后网页在耳目数和IP地址

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还处在发展初期，大家对它的理解不同，如产品和服务标准，收费标准等，不利于行业的健康发展。