欧美国产另类久热|951超碰伊人久久|伊人影视久久久久|色婷婷亚洲小电影|色东京热69XX|婷婷玖玖深爱网|加勒比东京热网站|无码A级毛片在线观看|一级a毛一级a看|中文字幕人妻欧美

怎么用asp程序讀取URL再用程序讀取出結(jié)果，求完整ASP程序

------解決方案--------------------

原來不是發(fā)過了？知識變成數(shù)組了而且，方法都差不多http://bbs.csdn.net/topics/390776429

<script runat="server" language="jscript">

function getJSON(v) { return eval('(' + v + ')'); }

function toArray(a) {//JSON對象數(shù)組格式的字符串

var dic = Server.CreateObject("Scripting.Dictionary");

for (var i = 0; i < a.length; i++) {

var obj = Server.CreateObject("Scripting.Dictionary");

for (x in a[i]) obj.Add(x, a[i][x]);

dic.Add(i, obj);

}

return dic;

}

</script>

<%

'==================================================

'從2進(jìn)制數(shù)據(jù)流生成內(nèi)容

'==================================================

Function BytesToBstr(strBody,CodeBase)

dim obj

set obj=Server.CreateObject("Adodb.Stream")

obj.Type=1

obj.Mode=3

obj.Open

obj.Write strBody

obj.Position=0

obj.Type=2

obj.Charset=CodeBase

BytesToBstr=obj.ReadText

obj.Close

set obj=nothing

End Function

function downpage(url)

set xhr=server.CreateObject("microsoft.xmlhttp")

xhr.open "get",url,false

xhr.send

downpage=BytesToBstr(xhr.responsebody,"gb2312")'注意你那個(gè)頁面的編碼，要不可能出亂碼

end function

's改為用Microsoft.XMLHTTP動(dòng)態(tài)獲取

's=downpage("

s="{""resultcode"":""200"",""reason"":""Return Successd"",""result"":[{""id"":""1"",""province"":""陜西省"",""city"":""西安市"",""area"":""灞橋區(qū)"",""address"":""狄寨鎮(zhèn)南寨村""},{""id"":""2"",""province"":""陜西省"",""city"":""西安市"",""area"":""灞橋區(qū)"",""address"":""狄寨鎮(zhèn)潘村""}

更多信息請查看IT技術(shù)專欄