讓網站活起來(2)

來源:互聯網
上載者:User
 文 本 計 數 器
   功能:所有訪問過本網頁的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
    %>



相關文章

Cloud Intelligence Leading the Digital Future

Alibaba Cloud ACtivate Online Conference, Nov. 20th & 21st, 2019 (UTC+08)

Register Now >

11.11 Big Sale for Cloud

Get Unbeatable Offers with up to 90% Off,Oct.24-Nov.13 (UTC+8)

Get It Now >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。