asp查询ip地址源代码

'=====================================
'功能:根据ip地址输出地区
'参数:ipdata ip地址
'design by jason 2006-5-4
'=====================================
Function IPLocation(ipdata)
dim IPDataArr,IPQuery,IPDataStr
IPDataArr=Split(ipdata,".")
IPDataStr=Cint(IPDataArr(0))*16777216 + Cint(IPDataArr(1))*65536 + Cint(IPDataArr(2))*256 + Cint(IPDataArr(3))
set IPQuery=conn.execute("Select * FROM [t_IpData] Where ip1<="&IPDataStr&" AND ip2>="&IPDataStr&"")
If IPQuery.EOF AND IPQuery.BOF Then
IPLocation=""
Else
IPLocation=IPQuery("country")&IPQuery("city")
End IF
END FUNCTION

优点：简单易用

缺点：此函数效率较低，适用于查询较少的场合，需要专门的数据库支持，网上的数据库较少，不方便更新