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

做項目的時候遇到了ASP調用純真IP庫的問題，現在說一下解決方法
<%
' ============================================
' 返回IP信息 Disp_IPAddressData(IP,0)
' ============================================
Function Look_Ip(IP)
Dim Wry, IPType, QQWryVersion, IpCounter
' 設置類對象
Set Wry = New TQQWry
' 開始搜索，并返回搜索結果
' 您可以根據 QQWry(IP) 返回值來判斷該IP地址在數據庫中是否存在，如果不存在可以執行其他的一些操作
' 比如您自建一個數據庫作為追捕等，這里我就不詳細說明了
IPType = Wry.QQWry(IP)
' Country：國家地區字段
' LocalStr：省市及其他信息字段
Look_Ip =Wry.Country & "" & Wry.LocalStr
'''''Look_Ip = Wry.Country & ""
End Function
' ============================================
' 返回IP信息 JS調用
' ============================================
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)
' 設置類對象
Set Wry = New TQQWry
IPType = Wry.QQWry("255.255.255.254")
' 讀取數據庫版本信息
QQWry_tem(0) = Wry.Country & " " & Wry.LocalStr
' 讀取數據庫IP地址數目
QQWry_tem1(1) = Wry.RecordCount + 1
WryInfo = QQWry_tem(0)& " " & QQWry_tem1(1)
End Function

分享：