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

怎么用asp程序讀取url再用程序讀取出結果，求完整asp程序

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

原來不是發過了？知識變成數組了而且，方法都差不多

<script runat=server language=jscript>

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

function toarray(a) {//json對象數組格式的字符串

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進制數據流生成內容

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

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動態獲取

's=downpage()

s={resultcode:200,reason:return successd,result:[{id:1,province:陜西省,city:西安市,area:灞橋區,address:狄寨鎮南寨村},{id:2,province:陜西省,city:西安市,area:灞橋區,address:狄寨鎮潘村}

,{id:3,province:陜西省,city:西安市,area:灞橋區,address:狄寨鎮伍坊村}],error_code:0}

set o=getjson(s)

if o.resultcode=200 then

set result=toarray(o.result)

for i=0 to result.count-1

response.write result(i)(province)&-&result(i)(address)&<br/>

next

set result=nothing

end if

set o=nothing

%>

更多信息請查看IT技術專欄