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

    让网站活起来(2)

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

      核心提示:文 本 计 数 器功能:所有访问过本网页的IP地址实现方法:把所有访问过本网页的IP地址存放在Count.Asp中,每过一段时间,查看一下,登陆到本网站的IP地址,如果在Count.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
        %>

    作者:佚名 来源:不详

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

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