中文字幕免费精品_亚洲视频自拍_亚洲综合国产激情另类一区_色综合咪咪久久

怎么用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進制數(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")'注意你那個頁面的編碼，要不可能出亂碼

end function

's改為用Microsoft.XMLHTTP動態(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ù)專欄