·您的位置: 首页 » 资源教程 » 编程开发 » ASP » 让网站活起来(2)

让网站活起来(2)

类别: ASP教程  评论数:0 总得分:0
     文 本 计 数 器
   功能:所有访问过本网页的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
    %>
  
  

-= 资 源 教 程 =-
文 章 搜 索
关键词:
类型:
范围:
纯粹空间 softpure.com
Copyright © 2006-2008 暖阳制作 版权所有
QQ: 15242663 (拒绝闲聊)  Email: faisun@sina.com
 纯粹空间 - 韩国酷站|酷站欣赏|教程大全|资源下载|免费博客|美女壁纸|设计素材|技术论坛   Valid XHTML 1.0 Transitional
百度搜索 谷歌搜索 Alexa搜索 | 粤ICP备19116064号-1