網站建設| 數據庫類| 圖形圖象| 程序設計| 現代辦公| 操作系統| 考試認證| 網絡技術| 軟件工程| 電腦相關| 文學作品
網站開發| 網頁制作| 操作系統| 圖象圖形| 考試認證| 數據庫類| 程序設計| 硬件技術| 現代辦公| 網絡技術| 笑話頻道
 
您的位置: 電腦書庫首頁-> 電腦文摘-> 網站開發-> ASP/ASP.NET-> 讓網站活起來(2)

讓網站活起來(2)
作者:佚名 來源:www.ASPCool.com 加入時間:2005-4-4
相關文章 相關書籍:
文 本 計 數 器
   功能:所有訪問過本網頁的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
    %> 
  

[文章錄入員:sky365]

相關文章 相關書籍:
本站推薦內容

近期主機類熱搜關鍵詞:
美國服務器 美國服務器租用 海外服務器租用 國外服務器租用

ASP/ASP.NET
ASP/ASP.NET
PHP技術
JSP技術
XML技術
CGI/PERL
WEB服務器
WordPress專題
其它
電腦教程閱讀排行
·用ASP連接數據庫
·ASP基礎
·使用Database Acces...
·讓網站活起來(1)
·創建一個簡單的ASP頁
·創建HTML表格
·初學者必讀 ASP運行環境的搭建
·ASP中FSO的神奇功能
·VBScript 基礎 使用條件...
·VBScript 基礎 VBSc...
河南福彩快三玩法