ASP代碼擷取網頁原始碼

在使用ajax的時候，我們無法跨域擷取不屬於自己的伺服器的資料，故引出了這麼一種方法來輾轉擷取：

1、向本域中的網頁請求資料，包含一個網址資訊

2、被請求的本域的網頁中的asp代碼向跨域的伺服器請求資料，然後返回給本域中的asp檔案

代碼：

Function getHtml(url) '以HTML格式備份Set xh = CreateObject("Microsoft.XMLHTTP")xh.Open "GET",url,0xh.Send()Set MyStream=CreateObject("Adodb.Stream") MyStream.Type = 2MyStream.Open MyStream.WriteText xh.responseTextMyStream.Position = 0getHtml=MyStream.ReadTextMyStream.CloseEnd Function

以上的源碼是綜合網上關於Microsoft.XMLHTTP對象的說明和Adodb.Stream的說明自行編寫的，為原創代碼。

有問題歡迎提問