怎麼用asp程序讀取URL再用程序讀取出結果,求完整ASP程序
------解決方案--------------------
原來不是發過了?知識變成數組了而且,方法都差不多http://bbs.csdn.net/topics/390776429
<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("http://www.xxx.com/?no=710000")
s="{""resultcode"":""200"",""reason"":""Return Successd"",""result"":[{""id"":""1"",""province"":""陝西省"",""city"":""西安市"",""area"":""灞橋區"",""address"":""狄寨鎮南寨村""},{""id"":""2"",""province"":""陝西省"",""city"":""西安市"",""area"":""灞橋區"&q