采集程序设计经验交流（三）——保存网页

        保存网页(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文件中，并且乱码问题已经解决。