网络编程
位置:首页>> 网络编程>> Asp编程>> asp查询ip地址源代码

asp查询ip地址源代码

  发布时间:2009-07-27 17:51:00 

标签: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

优点:简单易用

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

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com