訂閱本欄目 RSS您所在的位置: 深山工作室 > ASP > 正文

通過阿里云服務接口獲得ip地址詳細信息

2022/7/25 9:17:54 字體: 瀏覽 1856

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


相關閱讀
利用java客戶端靜態頁面玩分頁
膠球清洗
nyfreetour.com
山西春秋國際旅行社
微信小程序打開客服提示:該小程序提供的服務出現故障,請稍后重試
Div+CSS布局應該注重語義、注重代碼的重用性
連云港酒店預訂網站
如何提高網站的PR值
共有0條關于《通過阿里云服務接口獲得ip地址詳細信息》的評論
發表評論
正在加載評論......
返回頂部發表評論
呢 稱:
表 情:
內 容:
評論內容:不能超過 1000 字,需審核,請自覺遵守互聯網相關政策法規。
驗證碼: 驗證碼 
網友評論聲明,請自覺遵守互聯網相關政策法規。

您發布的評論即表示同意遵守以下條款:
一、不得利用本站危害國家安全、泄露國家秘密,不得侵犯國家、社會、集體和公民的合法權益;
二、不得發布國家法律、法規明令禁止的內容;互相尊重,對自己在本站的言論和行為負責;
三、本站對您所發布內容擁有處置權。

更多信息>>欄目類別選擇
百度小程序開發
微信小程序開發
微信公眾號開發
uni-app
asp函數庫
ASP
DIV+CSS
HTML
python
更多>>同類信息
ASP中Utf-8與Gb2312編碼轉換亂碼問題的解決方法頁面編碼聲明
asp顯示隨機密碼
通過阿里云服務接口獲得ip地址詳細信息
iis點開后任務欄上有顯示,但是窗口看不到的解決辦法
RSA加密解密插件
微軟Encoder加密解密函數
更多>>最新添加文章
在Android、iOS、Windows、MacOS中微信小程序的文件存放路徑
python通過代碼修改pip下載源讓下載庫飛起
python里面requests.post返回的res.text還有其它的嗎
aliyun阿里云續費域名優惠口令(注冊、續費都可以使用)
windows7環境下安裝配置jdk
python對微信操作要用到這兩個庫wxpy與itchat
ASP中Utf-8與Gb2312編碼轉換亂碼問題的解決方法頁面編碼聲明
DW設置之后更好用 DreamweaverCS編輯GB2312與UTF-8文件在代碼視圖中點擊鼠標錯位問題的解決辦法
更多>>隨機抽取信息
微信公眾號回復文本消息或用客服接口推送文本消息
利用CSS制作的網站中新聞文章列表效果
ASP取出HTML里面的圖片地址的函數
利用javascript來靜態添加表格行
正則的常表達式
淺論網頁優化和網站優化的方式
日韩gv国产gv欧美旡码|伊人久久大香线AV五月天|亚洲精品无码永久在线|亚洲第一页自拍1414