ASP利用IP138获IP地理位置

可直接调用IP138数据来获取IP位置，可扩展使用淘宝地址库等数据进行应用

Function getipweizhi(ipstr)

dim url,html,dlwz
urlstr="http://www.ip138.com/ips1388.asp?ip="& ipstr &"&action=2" '要获取的网页地址
html=getHTTPPage(urlstr)
dlwz=getBody(html,"本站主数据：","</li>",false,false)
if dlwz="$False$" then
dlwz="未知区域"
end if
getipweizhi=dlwz

End Function

'==================================================
'函数名：GetBody
'作用：截取字符串
'参数：ConStr ------将要截取的字符串
'参数：StartStr ------开始字符串
'参数：OverStr ------结束字符串
'参数：IncluL ------是否包含StartStr
'参数：IncluR ------是否包含OverStr
'==================================================
Function GetBody(ConStr,StartStr,OverStr,IncluL,IncluR)
If ConStr="$False$" or ConStr="" or IsNull(ConStr)=True Or StartStr="" or IsNull(StartStr)=True Or OverStr="" or IsNull(OverStr)=True Then
GetBody="$False$"
Exit Function
End If
Dim ConStrTemp
Dim Start,Over
ConStrTemp=Lcase(ConStr)
StartStr=Lcase(StartStr)
OverStr=Lcase(OverStr)
Start = InStrB(1, ConStrTemp, StartStr, vbBinaryCompare)
'response.write Start&"<br>"&IncluL&"<br>"
'response.end
If Start<=0 then
GetBody="$False$"
Exit Function
Else
If IncluL=False Then
Start=Start+LenB(StartStr)
End If
End If
Over=InStrB(Start,ConStrTemp,OverStr,vbBinaryCompare)
If Over<=0 Or Over<=Start then
GetBody="$False$"
Exit Function
Else
If IncluR=True Then
Over=Over+LenB(OverStr)
End If
End If

GetBody=MidB(ConStr,Start,Over-Start)
End Function

ASP利用IP138获IP地理位置相关推荐

php获取用户ip地理位置利用淘宝IP库
利用淘宝IP库获取用户ip地理位置我们查ip的时候都是利用ip138查询的,不过那个有时候是不准确的,还不如自己引用淘宝的ip库来查询,这样准确度还高一些.不多说了,介绍一下: 淘宝IP地址库淘宝 ...
geoip php 获取城市,Laravel 中利用 GeoIP 获取用户地理位置信息
这篇文章主要介绍了关于Laravel 中利用 GeoIP 获取用户地理位置信息,有着一定的参考价值,现在分享给大家,有需要的朋友可以参考一下我最近需要一个用户地域检测来设置用户的默认区域和货币.由 ...
IP地理位置定位技术原理是什么
IP地理位置定位技术的原理是基于IP地址的网络通信原理和基础上的.它利用IP地址所包含的一些信息,如网络前缀和地址段,以及ISP的IP地址归属地数据库,来推测IP地址所对应的地理位置. 具体来说,IP ...
ASP.NET获取客户端IP及MAC地址
ASP.NET获取客户端IP及MAC地址 2008-12-01 14:50 ASP.NET获取客户端IP及MAC地址很多时候非常必要的,像做投票.留言.评论等系统的时候防止别人恶意操作,导致数据的虚 ...
asp利用dictionary创建二维数组
这是asp利用dictionary创建二维数组的例子,这样做的优点是: 1.数组下标可以是字符串 2.长度不是固定的 <% '================================== ...
flutter利用高德如何获取地理位置信息bug处理
flutter中对于利用高德如何获取地理位置信息, 1.在高德开发平台,注册成为开发者,并获取key 2.安装依赖对于如何安装第三方插件请点击此处pub.dev amap_location 3.修 ...
兼容IE和FF：获取Referer的JS和PHP方法及 PHP利用curl伪造IP和来路
发现一个关于浏览器兼容的问题,当用JS 执行代码 window.location.href="http://justcoding.iteye.com" 来进行跳转的时候,Firef ...
阿里云公布IP地理位置库抄袭调查结果；华为云电脑8月16日将停止服务和运营；Chrome 92发布|极客头条...
「极客头条」-- 技术人员的新闻圈! CSDN 的读者朋友们早上好哇,「极客头条」来啦,快来看今天都有哪些值得我们技术人关注的重要新闻吧. 整理 | 梦依丹出品 | CSDN(ID:CSDNnews ...
php模拟IP请求,如何在php中利用curl对ip进行模拟
如何在php中利用curl对ip进行模拟发布时间:2020-12-24 14:25:08 来源:亿速云阅读:71 作者:Leah 如何在php中利用curl对ip进行模拟?很多新手对此不是很清楚, ...
怎么选择靠谱的IP地理位置定位产品？
众所周知,市场中的"IP地理位置定位产品"种类繁多.很多公司声称自己能够提供最好的"IP地理位置定位产品".然而,每个提供商采用的技术和提供的服务模式存在着巨大 ...

ASP利用IP138获IP地理位置

ASP利用IP138获IP地理位置相关推荐

最新文章

热门文章