ASP下实现自动采集程序及入库的代码

近期互联网上涌现出许多采集程序，越来越多的人开始利用这些工具在网上进行买卖。许多对技术不太了解的人对这些程序感到羡慕，但如果你对ASP有所了解，并理解自动采集程序的原理，你会发现实现自动化其实并不困难。

这些采集程序的工作原理是通过XML中的XMLHTTP组件来调用其他网站上的网页。它们能够批量截取或替换原有信息，将其转化为变量后储存到数据库中。这种方式的最大优点是，不再需要手工添加大量信息，可以指定对某个网站的信息截取，实现批量录入，从而极大地节省时间和努力。

与传统的ASP小偷程序不同，这些采集程序不再依赖于目标网站。下面是一个简单的例子：

代码示例：

在ASP环境中，我们可以声明一个函数来获取目标信息，这个函数通过XML组件实现。例如：Geturl(/blog/url)。我们创建一个Microsoft.XMLHTTP对象来发送GET请求到目标。如果成功获取到响应，我们会将响应体从二进制转换为字符串，然后进行验证。

如果信息长度小于100，我们认为截取失败，并在页面上显示失败的提示信息。否则，我们就可以使用获取到的信息进行后续操作。以下是部分代码示例：

```asp

Set Retrieval = CreateObject("Microsoft.XMLHTTP")

With Retrieval

Open "GET", url, False

Send

GetURL = bytes2bstr(.responsebody) '将二进制响应转换为字符串

If len(.responsebody) < 100 Then

response.write "获取远程文件" & url & "失败。"

response.end

End If

End With

Set Retrieval = Nothing

```

字节转字符串函数（bytes2bstr）

在一个未知的世界里，字节跳跃着生命的旋律。我们的任务是将这些字节转化为可读的字符串，就像把神秘的音符转化为美妙的旋律。让我们进入字节的世界，执行这场精彩的转换。

在字节的海洋中，每一个字节都像一个神秘的符号，等待着被解读。函数bytes2bstr(vin)开始它的解码之旅。初始时，strreturn设置为空字符串。它遍历vin中的每一个字节，获取每个字节的ASCII码。

当遇到ASCII码小于&h80的字符时，它直接将其转化为对应的字符并添加到strreturn中。当遇到大于或等于&h80的字符时，它同时获取下一个字节的ASCII码，然后通过一个特定的公式进行转换，再添加到strreturn中。这个过程如同解码一段复杂的密码，揭示出隐藏在字节中的秘密。

与此天空软件的世界也在等待我们去。我们需要从软件的页面中提取出软件的名称。我们从URL中获取软件的ID，然后构造出完整的URL。通过Geturl函数获取页面的内容，然后使用GetKey函数提取出软件的名称。这个过程如同在茫茫人海中寻找特定的目标，精准而迅速。

然后，我们打开数据库，准备将获取的软件名称存入数据库中。我们定义了连接数据库的字符串、连接对象、记录集和SQL语句。如果数据库中不存在相同的软件名称，我们就将其添加到数据库中。这个过程如同守护者保护着数据库的完整性，确保每一个软件名称都是独一无二的。

当所有的工作完成后，我们向世界宣告：“采集完毕！”这一刻，我们如同完成了一项伟大的任务，感受到了成功的喜悦。

Cambrian的渲染世界也在期待着我们的。让我们走进Cambrian的世界，感受它的魅力与活力。在这个世界里，每一个细节都充满了生机与创意，等待着我们去发现、去欣赏。