8月30号IP库，148170条记录，附相關使用說明
由纯真QQIP库转换为ACCESS格式
適合動網6.0 OR 7.0等
每五天更新一次
下载地址：http://219.129.219.178/ipdb.rar
共分四個字段
转换后的起始IP，
转换后的结束IP，
省份（如果是外国则为国名）
城市（或具体地址）
使用方法：
<%
Rem 判断用户来源
function address(sip)
dim str1,str2,str3,str4
dim num
dim country,city
dim irs,ConnIp,IpConnStr,Sql
if isnumeric(left(sip,2)) then
if sip="127.0.0.1" then 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)
if isNumeric(str1)=0 or isNumeric(str2)=0 or isNumeric(str3)=0 or isNumeric(str4)=0 then
else
On Error Resume Next
IpConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("IPADDRESS.MDB")
SET ConnIp = Server.CreateObject("ADODB.Connection")
ConnIp.open IpConnStr
If Err Then
err.Clear
SET ConnIp = Nothing
Response.Write "数据库连接出错，请检查连接字串。"'注释，需要把这几个字翻译成英文。
Response.End
End If
num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
SQL="SELECT Top 1 country,city FROM address WHERE (ip1 <="&num&") AND (ip2 >="&num&")"
SET irs=server.createobject("adodb.recordset")
irs.open SQL,ConnIp,1,1
if irs.eof AND irs.bof then
country="亚洲"
city=""
else
country=irs(0)
city=irs(1)
end if
irs.close
SET irs=nothing
ConnIp.close
SET ConnIp=nothing
end if
address=country&city
else
address="未知"
end if
end function
response.write ""&address("202.103.176.22")&""
dim ip
ip=replace(Request.ServerVariables("REMOTE_ADDR"),"'","")
response.write ""&address(ip)&""%>
问题点数：0、回复次数：1Top
1 楼ynredriver（红河）回复于 2004-09-20 11:30:19 得分 0
楼主，顶死你！
^_^Top
