请问怎样通过asp查询纯真版IP数据库？

来源：百度知道 编辑：UC知道 时间：2024/06/21 08:02:29
php的有了，但是偶想找asp的，谢谢。列出最高效的检索方式。
嘿嘿，感谢朋友的关注。你给的这个是已经转化为mdb的了，你仔细看程序便知道。继续顶.

引用别人的，太多广告和集成多无法满足要求。

<%
Dim ip,ipaddress
ip=request("ip")
If ip="" Then
ip=request.ServerVariables("REMOTE_HOST")
ipaddress="你的IP:"&ip &"来自:"&getaddress(ip)
else
ipaddress=getaddress(ip)
End If
Function getaddress(sip)'查询函数
Dim str1,str2,str3,str4
Dim num
Dim irs
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
num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
Dim adb,aConnStr,AConn
adb = &