国产免费av片在线观看-国产免费av观看-国产免费av电影-国产免费a-四虎网站在线观看-四虎网站在线

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

asp利用sina提供的ip庫端口來獲得當(dāng)前IP所有的地區(qū),所在國(guó),所在省,所在市,在線解析json

網(wǎng)絡(luò) 2018/3/20 15:13:15 深山工作室 字體: 瀏覽 4148
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%
'asp利用sina提供的ip庫端口來獲得當(dāng)前IP所有的地區(qū),所在國(guó),所在省,所在市,在線解析json
this_ip = Request.ServerVariables("REMOTE_ADDR")
get_ip_url = "http://int.dpool.sina.com.cn/iplookup/iplookup.php?format=json&ip=" & g_ip
UserInfo=GetURL(get_ip_url)
Call InitScriptControl:Set objTest = getJSONObject(UserInfo)

response.write "當(dāng)前IP:" & this_ip & "____<br>"
response.write "當(dāng)前解析地址:" & get_ip_url & "____<br>"
response.write "獲得的json內(nèi)容:" & UserInfo & "____<br>"
response.write "解析IP所在國(guó):" & objTest.country & "____<br>"
response.write "當(dāng)前IP所在省:" & objTest.province & "____<br>"
response.write "當(dāng)前IP所在市:" & objTest.city & "____<br>"


'解析json
'Call InitScriptControl
'Set objTest = getJSONObject(strTest) 
Dim sc4Json  
Sub InitScriptControl   
Set sc4Json = Server.CreateObject("MSScriptControl.ScriptControl")   
sc4Json.Language = "JavaScript"   
sc4Json.AddCode "var itemTemp=null;function getJSArray(arr, index){itemTemp=arr[index];}"   
End Sub
Function getJSONObject(strJSON)   
sc4Json.AddCode "var jsonObject = " & strJSON   
Set getJSONObject = sc4Json.CodeObject.jsonObject   
End Function
Sub getJSArrayItem(objDest,objJSArray,index)   
On Error Resume Next   
sc4Json.Run "getJSArray",objJSArray, index   
Set objDest = sc4Json.CodeObject.itemTemp   
If Err.number=0 Then Exit Sub   
objDest = sc4Json.CodeObject.itemTemp   
End Sub

Dim scriptCtrl
Function parseJSON(str)
If Not IsObject(scriptCtrl) Then
   Set scriptCtrl = Server.CreateObject("MSScriptControl.ScriptControl")
   scriptCtrl.Language = "JavaScript"
   scriptCtrl.AddCode "function ActiveXObject() {}" ' 覆蓋 ActiveXObject
   scriptCtrl.AddCode "function GetObject() {}" ' 覆蓋 ActiveXObject
   scriptCtrl.AddCode "Array.prototype.get = function(x) { return this[x]; }; var result = null;"
End If
On Error Resume Next
scriptCtrl.ExecuteStatement "var result = " & str & ";"
Set parseJSON = scriptCtrl.CodeObject.result
If Err Then
   Err.Clear
   Set parseJSON = Nothing
End If
End Function

'Get內(nèi)容
Function GetURL(url)
dim http
set http=server.createobject("Msxml2.ServerXMLHTTP")
http.open "GET",url,false
http.setRequestHeader "If-Modified-Since","0"
http.send()
GetURL=http.responsetext
set http=nothing
End Function
%>
相關(guān)閱讀
ul,li設(shè)置新聞列表,超出范圍對(duì)象,自動(dòng)隱藏
sql語句中怎么按照in語句里的id原有的順序進(jìn)行排序輸出,可以做成瀏覽記錄、查看、觀看記錄
微信公眾號(hào)生成帶參數(shù)的二維碼asp源碼下載
一行內(nèi)文本超出指定寬度后用省略號(hào)代替
uni-app三目運(yùn)算class和style
啟用新版文章管理系統(tǒng)
在未知圖片的寬度與高度時(shí)利用div+css將圖片居中
JavaScript的40種網(wǎng)頁常用小技巧
共有0條關(guān)于《asp利用sina提供的ip庫端口來獲得當(dāng)前IP所有的地區(qū),所在國(guó),所在省,所在市,在線解析json》的評(píng)論
發(fā)表評(píng)論
正在加載評(píng)論......
返回頂部發(fā)表評(píng)論
呢 稱:
表 情:
內(nèi) 容:
評(píng)論內(nèi)容:不能超過 1000 字,需審核,請(qǐng)自覺遵守互聯(lián)網(wǎng)相關(guān)政策法規(guī)。
驗(yàn)證碼: 驗(yàn)證碼 
網(wǎng)友評(píng)論聲明,請(qǐng)自覺遵守互聯(lián)網(wǎng)相關(guān)政策法規(guī)。

您發(fā)布的評(píng)論即表示同意遵守以下條款:
一、不得利用本站危害國(guó)家安全、泄露國(guó)家秘密,不得侵犯國(guó)家、社會(huì)、集體和公民的合法權(quán)益;
二、不得發(fā)布國(guó)家法律、法規(guī)明令禁止的內(nèi)容;互相尊重,對(duì)自己在本站的言論和行為負(fù)責(zé);
三、本站對(duì)您所發(fā)布內(nèi)容擁有處置權(quán)。

更多信息>>欄目類別選擇
百度小程序開發(fā)
微信小程序開發(fā)
微信公眾號(hào)開發(fā)
uni-app
asp函數(shù)庫
ASP
DIV+CSS
HTML
python
更多>>同類信息
ASP中Utf-8與Gb2312編碼轉(zhuǎn)換亂碼問題的解決方法頁面編碼聲明
asp顯示隨機(jī)密碼
通過阿里云服務(wù)接口獲得ip地址詳細(xì)信息
iis點(diǎn)開后任務(wù)欄上有顯示,但是窗口看不到的解決辦法
RSA加密解密插件
微軟Encoder加密解密函數(shù)
更多>>最新添加文章
dw里面查找替換使用正則刪除sqlserver里面的CONSTRAINT
Android移動(dòng)端自動(dòng)化測(cè)試:使用UIAutomatorViewer與Selenium定位元素
抖音直播音掛載小雪花 懂車帝小程序
javascript獲取瀏覽器指紋可以用來做投票
火狐Mozilla Firefox出現(xiàn):無法載入您的Firefox配置文件 它可能已經(jīng)丟失 或是無法訪問 問題解決集合處理辦法
在Android、iOS、Windows、MacOS中微信小程序的文件存放路徑
python通過代碼修改pip下載源讓下載庫飛起
python里面requests.post返回的res.text還有其它的嗎
更多>>隨機(jī)抽取信息
深圳市假日通國(guó)際旅行社有限公司
cookies
微信公眾號(hào)回復(fù)音樂消息或用客服接口推送音樂消息
巧妙運(yùn)用CSS樣式表立刻改變鼠標(biāo)的樣式
asp隨機(jī)顯示圖象
ASP漢字轉(zhuǎn)拼音,支持自定義特殊詞語
主站蜘蛛池模板: 刘浩存个人简介资料| 内蒙古电视台| ctv5| 保镖1993电视剧正版免费观看| yy五项滚刀骂人套词 | 麦当娜·西科尼| 在线免费污视频| 速度与激情18| 三级大片在线观看| 永刚| 第一财经现场直播| 莫恭明| 纵横欲海| 叶念琛| 第一财经直播电视直播今日股市| 豆包简历个人资料| 黄色网大全| yy直播是正经直播吗| 罗丽星克莱尔电影妄想症| 《杨贵妃淫史》三级| 豪门本色| 张韵| 布莱德·德尔森| 风月奇谭电影| 学籍证明| 庆余年2豆瓣| 必修一英语电子课本外研版| 何玲| naughty america| 游泳池play高h| 美女jj| free hd xxxx moms movie777| 楼下的房客 电影| 1769在线视频| 赵大勇| 浪客剑心星霜篇| 大胆艺术| 新娘大作战angelababy| 曹查理新剧《三姐妹》| 达科塔·高尤| 《魔》|