ASP調(diào)用純真IP庫實例_ASP教程

      編輯Tag賺U幣
      教程Tag:暫無Tag,歡迎添加,賺取U幣!

      推薦:ASP實例:ASP實現(xiàn)空間的最近訪客
      由于工作關(guān)系,在做一個用戶空間。要用到空間的最近訪客,見ASP代碼: % username=request.QueryString(username) '地欄中的username,就是自己的用戶名了 if trim(request.Cookies(user_name)) Then '首頁要判斷該訪問是否登陸,只有登陸的訪問才能記

      做項目的時候遇到了ASP調(diào)用純真IP庫的問題,現(xiàn)在說一下解決方法
      <%
      ' ============================================
      ' 返回IP信息 Disp_IPAddressData(IP,0)
      ' ============================================
      Function Look_Ip(IP)
      Dim Wry, IPType, QQWryVersion, IpCounter
      ' 設(shè)置類對象
      Set Wry = New TQQWry
      ' 開始搜索,并返回搜索結(jié)果
      ' 您可以根據(jù) QQWry(IP) 返回值來判斷該IP地址在數(shù)據(jù)庫中是否存在,如果不存在可以執(zhí)行其他的一些操作
      ' 比如您自建一個數(shù)據(jù)庫作為追捕等,這里我就不詳細說明了
      IPType = Wry.QQWry(IP)
      ' Country:國家地區(qū)字段
      ' LocalStr:省市及其他信息字段
      Look_Ip =Wry.Country & "" & Wry.LocalStr
      '''''Look_Ip = Wry.Country & ""
      End Function
      ' ============================================
      ' 返回IP信息 JS調(diào)用
      ' ============================================
      Function Disp_IPAddressData(IP, sType)
      Dim Wry, IPType
      Set Wry = New TQQWry
      IPType = Wry.QQWry(IP)

      Select Case sType
      Case 1 Disp_IPAddressData = IP
      Case 2 Disp_IPAddressData = Wry.Country
      Case 3 Disp_IPAddressData = Wry.LocalStr
      'Case Else Disp_IPAddressData = Wry.Country & "" & Wry.LocalStr
      Case Else Disp_IPAddressData = Wry.Country
      End Select
      End Function
      ' ============================================
      ' 返回QQWry信息
      ' ============================================
      Function WryInfo()
      Dim Wry, IPType, QQWry_tem(0), QQWry_tem1(1)
      ' 設(shè)置類對象
      Set Wry = New TQQWry
      IPType = Wry.QQWry("255.255.255.254")
      ' 讀取數(shù)據(jù)庫版本信息
      QQWry_tem(0) = Wry.Country & " " & Wry.LocalStr
      ' 讀取數(shù)據(jù)庫IP地址數(shù)目
      QQWry_tem1(1) = Wry.RecordCount + 1
      WryInfo = QQWry_tem(0)& " " & QQWry_tem1(1)
      End Function

      分享:ASP防止GET,Post注入和防止服務(wù)器攻擊,并記錄IP
      % '防止GET,Post注入和防止服務(wù)器攻擊 '使用方法把本文件包含到需要防注的文件就OK了,說明下,這里的post攻擊和Get攻擊不一定是攻擊,在英文版本的時候請注意使用 '馮旭修改 session.Abandon() Dim fxjt111_Attack_post,fxjt111_Attack_Get,fxjt111_Attack_Sys

      共4頁上一頁1234下一頁
      來源:模板無憂//所屬分類:ASP教程/更新時間:2010-06-02
      相關(guān)ASP教程