保存網頁(Stream應用)
前面我們利用三行代碼完成了對網頁的下載，可是下載到的內容是亂碼，在這里我們來解決亂碼問題并把它保存成一個txt文件。
創建txt文件有兩種方法：一是FSO是一種常見的創建方法，但是在和xmlhttp配合使用時常會出現一些問題，這里不再詳細介紹。二是運用Stream，stream是xmlhttp的最佳拍檔，我們下來介紹下使用方法：
1、 創建stream對象
代碼：Set mss = CreateObject("ADODB.Stream")
2、 設置參數
代碼：
mss.Mode = 3
mss.Type = 1
其中Mode模式，當值為1時為讀取模式，2為寫入模式，3為讀寫模式，這里我們為了操作不受限制將其設置為3;type為返回數據類型，1為Binary，2為Text，我們設置為1
3、 打開對象
代碼：mss.open()
4、 寫入數據
代碼：mss.Write(“內容”)
Write是Stream的一個方法，用于寫入數據。
5、 保存到文件
mss.SaveToFile(FileName,[Options])
Savetofile方法，此方法用于將內容保存到文件中，其中filename為文件名，可以隨便寫，options為存取選項，必填，為了避免內容疊加我們設置為2。(請支持網站)
6、 關閉對象
代碼：set mss = nothing
關閉對象，并釋放內存。
以上為保存內容的幾個步驟，為了便于理解，我們舉例說明：
依然以“點點機票網;為例：
url=";
Set ms = CreateObject("Microsoft.XMLHTTP")
ms.Open "GET",url ,False
ms.Send()
上以為下載網頁的代碼
Set mss = CreateObject("ADODB.Stream")
mss.Mode = 3
mss.Type = 1
mss.open()
mss.Write(ms.responseBody)
mss.SaveToFile(“1.txt”,2)
set mss=nothing
set ms=nothing
運行以上代碼我們可以看到，程序已將 保存到了1.txt文件中，并且亂碼問題已經解決。
申請創業報道，分享創業好點子。點擊此處，共同探討創業新機遇！
