订阅本栏目 RSS您所在的位置: 深山工作室 > ASP > 正文

通过阿里云服务接口获得ip地址详细信息

2022/7/25 9:17:54 字体: 浏览 1445

Dim ip,datatype,token,url


Function BytesToBstr(strBody,CodeBase)
dim objStream
set objStream = Server.CreateObject("Adodb.Stream")
objStream.Type = 1
objStream.Mode =3
objStream.Open
objStream.Write strBody
objStream.Position = 0
objStream.Type = 2
objStream.Charset = CodeBase
BytesToBstr = objStream.ReadText
objStream.Close
set objStream = nothing
End Function

'Get内容
Function geturl_diy(url,d_biaoqian,xml2)
dim http
set http=server.createobject("Msxml2.ServerXMLHTTP")
http.open "GET",url,false
http.setRequestHeader "If-Modified-Since","0"
http.setRequestHeader "Authorization","APPCODE b2519882bc354febb205fdd660dd4fbf" '增加特别标识
http.send()
geturl_diy=http.responsetext
'GetURL=bytesToBSTR(http.responseBody,"gb2312")
geturl_diy=BytesToBstr(http.responseBody,"utf-8")
set http=nothing
End Function

ip_url = "https://api01.aliyun.venuscn.com/ip?ip=44.227.127.2"   '阿里云用来解析IP信息的网址
strJson = geturl_diy(url,"ali_getip","")

'以下是获得的内容
'{"data":{"ip":"44.227.127.2","long_ip":"753106690","isp":"Amazon","area":"","region_id":"","region":"","city_id":"","city":"波特兰","country_id":"US","country":"美国"},"ret":200,"msg":"success","log_id":"4e00b3aeca8f4763ab26f0fbb6eee9d7"}

'测试演示使用的
'j_txtsrc = "iptest.txt"
'strJson = ReadFromTextFile(Server.MapPath(""& j_txtsrc &""),"utf-8")


Call InitScriptControl:Set objTest = getJSONObject(strJson)
if objTest.msg="success" then
guojia = objTest.data.country '国家
guojia_id = objTest.data.country_id '国家编号
shengfen = objTest.data.region '省份
chengshi = objTest.data.city '城市
diqu = objTest.data.area '地区
yunyingshang = objTest.data.isp 'isp
end if

Response.Write objTest.msg & "___<br>"
Response.Write strJson & "___<br>"
Response.Write guojia & "___<br>"
Response.Write guojia_id & "___<br>"
Response.Write shengfen & "___<br>"
Response.Write chengshi & "___<br>"
Response.Write diqu & "___<br>"
Response.Write yunyingshang & "___<br>"
response.end


相关阅读
深山旅行社网站管理系统 v1.7
ASP过滤SQL中的非法字符并格式化相关的html代码
Appium获取手机分辨率 & 自适应设备下滑刷新
微信小程序腾讯视频播放组件tencentvideo(wxa75efa648b60994b)
手动调节背景色:背景色能用按钮进行手动调节
微信公众平台
淘宝产品首字母类别效果
深山网吧留言板(激情穿越火线)v4.3
共有0条关于《通过阿里云服务接口获得ip地址详细信息》的评论
发表评论
正在加载评论......
返回顶部发表评论
呢 称:
表 情:
内 容:
评论内容:不能超过 1000 字,需审核,请自觉遵守互联网相关政策法规。
验证码: 验证码 
网友评论声明,请自觉遵守互联网相关政策法规。

您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。

更多信息>>栏目类别选择
百度小程序开发
微信小程序开发
微信公众号开发
uni-app
asp函数库
ASP
DIV+CSS
HTML
python
更多>>同类信息
ASP中Utf-8与Gb2312编码转换乱码问题的解决方法页面编码声明
asp显示随机密码
通过阿里云服务接口获得ip地址详细信息
iis点开后任务栏上有显示,但是窗口看不到的解决办法
RSA加密解密插件
微软Encoder加密解密函数
更多>>最新添加文章
aliyun阿里云续费域名优惠口令(注册、续费都可以使用)
windows7环境下安装配置jdk
python对微信操作要用到这两个库wxpy与itchat
ASP中Utf-8与Gb2312编码转换乱码问题的解决方法页面编码声明
DW设置之后更好用 DreamweaverCS编辑GB2312与UTF-8文件在代码视图中点击鼠标错位问题的解决办法
解决国内 github.com 打不开的准确方法
8种Python字符串拼接的方法,你知道几种
Python拼接字符串的几种方式
更多>>随机抽取信息
asp版图形验证码,可自定义点阵信息,支持字符扭曲、倾斜、倾斜
许愿墙页面设计完成,开始进行写相关的样式
网站内容中某个关键字相关右键菜单
曲阜中侨国际旅行社有限公司
photoshop cs 3D变换滤镜下载
微信小程序操作json与数组增加