让网站活起来(2)-ASP教程,ASP应用

 文 本 计 数 器
   功能：所有访问过本网页的ip地址
   实现方法：把所有访问过本网页的ip地址存放在count.asp中，每过一段时间，查看一下，登陆到本网站的ip地址，如果在count.asp中不存在，说明这个用户以前没有来过，加入到count.asp，如果已经存在，则说明该用户以前已经登陆过本网站，可以忽略。
  
  1：获得访问过本网页的ip地址，存入oldip数组中
  　　countfile=server.mappath(“count.asp”)
  　　set streamf=createobject(“scripting.filesystemobject”)
  　　dim oldip()
  
  　　set thisfile=streamf.opentextfile(countfile,1,false)
  　　do while not thisfile.atendofstream
  　　thisline = thisfile.readline
  　　使用了 preserve 关键字，就只能调整数组最后维的大小，并且不能改变数组的维数。
  　　数组只有一维,该维是最后的也是仅有的一维,就可以修改该数组的大小.
  　　redim preserve oldip(countly)
  　　oldip(countly) = thisline
  　　countly 记载这thisfile的行数
  　　countly = countly + 1
  　　loop
  　　thisfile.close
  
  2：开始检查当前访问者是否把当前的ip地址加入到count.asp中，用oldip数组来判断
  　　flage =1
  　　arriveip = request.servervariables(“remote_addr”)
  　　response.write arriveip
  　　for i = 1 to countly
  　　request.servervariables(“remote_addr”) 获得发出请求机器的ip
  　　if (arriveip = oldip(i-1)) then
  　　flage=0
  　　end if
  　　next
  
  3：如果当前的ip步在count.asp中，加入到count.asp，判断是否加入到count.asp是根据2中的flags来判断
  　　set writef = streamf.opentextfile(countfile, 8, 0)
  　　if flage=1 then
  　　countly = countly +1
  　　writef.writeline arriveip
  　　end if
  　　writef.close
  
  4：显示访问过本网页的ip地址
  　　<%
  　　set thisfile=streamf.opentextfile(countfile,1,false)
  　　do while not thisfile.atendofstream
  　　thisline = thisfile.readline
  　　response.write thisline&chr(13)
  　　loop
  　　thisfile.close
  　　%>