采集程序设计经验交流（二）——下载网页

采集程序设计经验交流(二)——下载网页(1)

“小网站本不需要维护，只是因为你的程序太笨了，所以你成了无休止的网站维护者。”

网页下载方法1(XMLHTTP应用)

用到的对象：XMLHTTP，只需三行代码，即可完成网页下载：

第一步：创建对象

Set ms = CreateObject("Microsoft.XMLHTTP")

这行代码用于创建一个xmlhttp对象，其中ms为创建对象的名称，ASP编程经常用到，可以随便写，不再赘述。

第二步：设置参数

ms.open "GET",url,False

其中url是要下载网页的网址，把它换成你的目标网页网址即可，格式为：，一定要写完整，不可省略http://;

“GET”是打开的方法，当然也可以用POST，产生的效果和HTML里的表单提交方式是一样的。

第三步：发送数据

ms.Send()

此行代码用于发送数据并下载，下载后的数据储存在变量responsebody里。

下面我们以下载“点点机票网()”首页为例进行一下说明

代码：

Set ms = CreateObject("Microsoft.XMLHTTP")

ms.Open "GET","

ms.Send()

response.write ms.responseBody

运行以上代码大家可以发现，我们已经成功下载了

这里有个问题需要注意一下，有时候网址很长，直接加在第二行代码里会显得很乱，那么，我们可以用一个变量来代替一下，如下：

url=";

Set ms = CreateObject("Microsoft.XMLHTTP")

ms.Open "GET",url ,False

ms.Send()

response.write ms.responseBody

这样以来代码就变得整齐多了。