澳门二十一点游戏赌场 澳门二十一点游戏赌场
    您现在的位置:首页 >> 软件应用 >> ASP教程 >> 内容

    让网站活起来(4)

    时间:2012/7/23 20:44:01 点击:

      核心提示:在 线 IP 地 址功能:显示当前网页在线人数和IP地址。方法:把当前的网页在线IP地址存入People.asp中,每过一分钟自动刷新一次,用来统计当前网页的在线人数和IP地址。1:把当前的在线IP地...
    在 线 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

    作者:佚名 来源:不详

  • 上一篇:让网站活起来(3)
  • 下一篇:CSS滤镜
  • 共有评论 0相关评论
    发表我的评论
    • 大名:
    • 内容:
  • 澳门二十一点游戏赌场(www.0769online.com) © 2018 版权所有 All Rights Reserved. 邮箱:103150@qq.com 业务QQ:103150 手机:13549753683

    Power By Laoy8 SQL 3.0SP1 粤ICP备10098668号
  •