ASP調用純真IP庫實例

推薦：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

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