用asp+xmlhttp编写web采集程序

用ASP+XMLHTTP编写web采集程序主要分为以下几个步骤：

第一步：创建ASP网页

首先需要一个ASP网页来实现采集程序的逻辑，可以使用请求对象(Request)和响应对象(Response)来实现。

第二步：创建XMLHTTP对象

使用XMLHTTP对象向目标网站发送HTTP请求，获取目标网站的HTML代码，具体可以通过以下代码来实现：

Dim xmlHttp
Set xmlHttp = Server.CreateObject("MSXML2.XMLHTTP")
xmlHttp.Open "GET", "目标网址", False
xmlHttp.Send

第三步：解析HTML代码

采集程序需要从目标网站的HTML代码中提取所需的信息，可以借助ASP提供的ServerXMLHTTP对象和MSXML库来解析HTML代码，并提取出所需要的信息。

第四步：处理所需信息

获取到所需信息后，采集程序需要对这些信息进行处理和存储。可以使用ASP提供的数据库及处理机制，以及第三方类库对数据进行持久化存储和处理。

以下是两个示例：

示例1：采集天气信息

创建一个ASP页面，使用MSXML2.XMLHTTP获取天气预报的HTML代码，然后进行HTML解析，提取所需要的天气信息，并将其存储到数据库中。具体代码如下：

Dim xmlHttp, xmlDoc, xmlNode, item, weather, city
Set xmlHttp = Server.CreateObject("MSXML2.XMLHTTP")
xmlHttp.Open "GET", "http://www.weather.com.cn/weather/101010100.shtml", False
xmlHttp.Send

Set xmlDoc = Server.CreateObject("Msxml2.DOMdocument.6.0")
xmlDoc.async = False
xmlDoc.loadXML xmlHttp.responseText

Set xmlNode = xmlDoc.selectSingleNode("//ul[@class='t clearfix']")

For Each item in xmlNode.childNodes
    city = item.selectSingleNode("./h1").text
    weather = item.selectSingleNode("./p[@class='wea']").text
    ' 存储数据到数据库中
Next

示例2：采集豆瓣top250电影信息

创建一个ASP页面，使用MSXML2.XMLHTTP获取豆瓣top250电影的HTML代码，然后进行HTML解析，提取所需要的电影信息，并将其存储到数据库中。具体代码如下：

Dim xmlHttp, xmlDoc, xmlNodes, movie, name, score
Set xmlHttp = Server.CreateObject("MSXML2.XMLHTTP")
xmlHttp.Open "GET", "https://movie.douban.com/top250", False
xmlHttp.Send

Set xmlDoc = Server.CreateObject("Msxml2.DOMdocument.6.0")
xmlDoc.async = False
xmlDoc.loadXML xmlHttp.responseText

Set xmlNodes = xmlDoc.selectNodes("//div[@class='hd']")

For Each movie in xmlNodes
    name = movie.selectSingleNode("./a/span[@class='title']").text
    score = movie.nextSibling.selectSingleNode("./div[@class='star']/span[@class='rating_num']").text
    ' 存储数据到数据库中
Next

以上就是使用ASP+XMLHTTP编写web采集程序的攻略，希望能对你有所帮助。