使用:request . server variables(" remote _ addr ")。
然後根據IP查詢IP數據庫。
這是壹個根據IP檢查地址的功能，其中包含連接IP數據。可以根據自己的情況改變IP數據庫地址來使用。
公共函數LookAdd(Sip)
尺寸Str1，Str2，Str3，Str4
尺寸編號
Dim Irs
如果IsNumeric(Left(sip，2))則
如果Sip="127.0.0.1 "，則Sip = " 192.168 . 0 . 1 "
Str1=Left(Sip，InStr(Sip，" ")-1)
Sip=Mid(Sip，InStr(Sip，" ")+1)
Str2=Left(Sip，InStr(Sip，" ")-1)
Sip=Mid(Sip，InStr(Sip，" ")+1)
Str3=Left(Sip，InStr(Sip，" ")-1)
Str4=Mid(Sip，InStr(Sip，" ")+1)
如果IsNumeric(Str1)=0或isNumeric(Str2)=0或isNumeric(Str3)=0或isNumeric(Str4)=0，則
其他
num = CInt(str 1)* 256 * 256 * 256+CInt(str 2)* 256 * 256+CInt(str 3)* 256+CInt(str 4)-1
Dim adb，aConnStr，AConn
adb = "IPDATA/ipaddress.mdb "
aConnStr = " Provider = Microsoft。Jet . OLEDB.4.0數據源= " & amp服務器。地圖路徑(亞行)
設置AConn =服務器。CreateObject("ADODB。連接”)
阿康。打開壹個構造
sql="select country，city from dv _ address where ip1 & lt；= " & amp數字& amp和ip2 & gt= " & amp數字
設置irs = AConn。執行(sql)
如果irs.eof和irs.bof那麽
LookAdd= "數據庫中沒有記錄"
其他
做而不做
LookAdd = LookAdd & ampIrs(0)和amp國稅局(1)
國稅局。下壹步
環
如果…就會結束
國稅局。關閉
設置Irs =無
Set AConn=Nothing
如果…就會結束
如果…就會結束
結束功能