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

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

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

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

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

function toArray(a) {//JSON對(duì)象數(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è)頁(yè)面的編碼，要不可能出亂碼

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)潘村""}

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