ASP小偷(远程数据获取)程序入门教程(2)

' 首先,进行小偷程序的一些初始化设置,以上代码的作用分别是忽略掉所有非致命性错误,把小偷程序的运行超时时间设置得很长(这样不会出现运行超时的错误),转换原来默认的utf-8编码转换成gb2312编码,否则直接用xmlhttp组件调用有中文字符的网页得到的将是乱码。
10
11 Function Getbody(Url) 
12 On Error Resume Next
13 Set Retrieval = Createobject("Microsoft.Xmlhttp"
14 With Retrieval 
15 .Open "Get", Url, False"""" 
16 .Send 
17 Getbody = .Responsebody
18 End With 
19 Set Retrieval 

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/3497.html