ASP程式編寫完整的一個IP所在地搜尋類

程式

 修正了查詢方法，查詢的方法和追捕的一致；只是追捕會自動校正IP。
  還有個函數的書寫錯誤，也已經修正；
  包括增加了一個IP地址正確性的驗證函式。（只是從格式上判斷）
  <%
  '作者：蕭寒雪(S.F.)
  'QQ號：410000
  Server.ScriptTimeout = &HE10 '&H3C
  Response.Buffer = ("S.F." = "S.F.")
  Dim IpSearch
  '建立對象
  Set IpSearch = New clsIpSearch
  ' 該句建立SQL Server的IP地址庫的串連，可使用預設串連，但要保證存在wry.mdb
  IpSearch.ConnectionString = "DRIVER={SQL Server};SERVER=hostname:UID=sa;PWD=;DATABASE=Ip"
  ' 設定要查詢的IP，可用預設值，這裡設定的是 127.0.0.1
  IpSearch.IpAddress = &H7F & "." & &H00 & "." & &H00 & "." & &H01
  If Request.QueryString("IP")<>"" Then
   If IpSearch.Valid_IP(Request.QueryString("IP")) Then
   IpSearch.IpAddress = Trim(Request.QueryString("IP"))
   End If
  End If
  ' 取得IP 所在地，反饋值有三個，以逗號分割
  ' 格式為：所在國家或地區,當地上網地區,提供正確IP地址資訊的使用者名稱
  Response.Write ("所在地:" & IpSearch.GetIpAddrInfo() & "<br>")
  ' 取出IP地址
  Response.Write ("IP:" & IpSearch.IpAddress & "<br>")
  ' 將IP地址轉換為數值
  Response.Write ("IP轉換為數值:" & IpSearch.CLongIP(IpSearch.IpAddress) & "<br>")
  ' 將IP地址轉換為數值後還原成IP字串
  Response.Write ("數值還原成IP:" & IpSearch.CStringIP(IpSearch.CLongIP(IpSearch.IpAddress)) & "<br>")
  Response.Write ("<hr>")
  
  '這裡是測試代碼
  'dim a,b,c,d
  'for a = 0 to 255
  ' for b= 0 to 255 step 20
  ' for c=0 to 255 step 20
  ' for d = 0 to 255 step 20
  ' IpSearch.IpAddress = a & "." & b & "." & c & "." & d
  ' Response.Write ("所在地:" & IpSearch.GetIpAddrInfo() & "<br>")
  ' Response.Write ("IP:" & IpSearch.IpAddress & "<br>")
  ' Response.Write ("IP轉換為數值:" & IpSearch.CLongIP(IpSearch.IpAddress) & "<br>")
  ' Response.Write ("數值還原成IP:" & IpSearch.CStringIP(IpSearch.CLongIP(IpSearch.IpAddress)) & "<br>")
  ' Response.Write ("<hr>")
  ' next
  ' next
  ' next
  'next
  %>
  <%
  Class clsIpSearch
  '##################################################################
  '聲明：本程式採用的資料為網路上著名的IP工具軟體《追捕》作者“馮志宏”
  '先生所精心搜集整理。
  '《追捕》資料庫的轉換方法：
  '修改wry.DLL 檔案尾碼名稱為 wry.dbf
  '方法一：
  ' 啟動Access 資料，選擇開啟資料庫，選擇開啟的檔案類型為“dBASE 5 (*.dbf)”
  ' 開啟wry.dbf檔案，選擇《工具》菜單下的《資料庫工具 + 生產力》中的《轉換資料庫》
  ' 選擇《轉換為 Access 97 格式(版本可選)》功能，儲存檔案即可成為MDB格式。
  '方法二：
  ' 使用SQL Server提供的《匯入和匯出資料》嚮導。
  ' 方法簡要說明：在ODBC 控制台中設定指向wry.dbf的DSN。
  ' 使用《匯入和匯出資料》嚮導，選擇其正確的驅動程式和要匯入的庫即可。
  ' 或者直接匯入由方法一產生的MDB檔案入庫。
  '方法三：
  ' 使用Access 開啟wry.dbf 檔案後將自動通過MDB庫引用原庫資料。
  '
  '未安裝其他資料庫平台，其他方法欠考慮。
  '###################### 類說明 ####################################
  '# IP 所在地搜尋類
  '# ConnectionString 為資料庫連接聲明，預設聲明同級目錄的wry.mdb
  '# IpAddress 請設定為進行搜尋的IP 位址，預設取當前訪問者IP
  '# 類建立方法
  '# Dim objVal '聲明一個變數
  '# Set objVal = New clsIpSearch '建立類對象
  '# Response.Write (objVal.IpAddress) '顯示當前訪問者IP
  '# IP 搜尋類方法列表：
  '# .Valid_IP 'IP 位址正確性效驗
  '# 參數：IP 'IP 數值或者字串
  '# .CLongIP '將IP地址轉換為長整型的數值
  '# 參數：asNewIP '要轉換的IP地址字串
  '# .CStringIP '將長整型的數值轉換為IP
  '# 參數：anNewIP '要還原為IP地址的數值
  '# .GetClientIP '取訪問者的IP
  '# .GetIpAddrInfo '得到設定過IpAddRess屬性的IP所在地
  '# 屬性列表（自動初始化）：
  '# ConnEctionString 'ADo 訪問資料庫連接說明
  '# IpAddress '要操作的IP地址
  '# 內部錯誤處理：
  '# 欠缺，未做，請自行補充。
  '##################################################################
  

[1] [2] [3] 下一頁