西数超哥博客
运维经验教程分享

asp抓取网页源代码的方法

asp抓取网页源代码的前提条件有两个:一是服务器支持ADODB.STREAM组件,二是服务器安装了XMLHTTP组件并允许调用。

如果您使用的空间是国内的,那么不必担心,国内95%的空间都支持上面提到的两个组件;如果您使用的空间是国外的,那就要注意了,因为国外绝大部分空间都不支持ADODB.STREAM组件或者XMLHTTP组件。所以,如果您需要这方面的服务,那么购买空间前,就要弄清楚。可以通过如下方法进行测试:
===〉测试空间是否支持ADODB.STREAM/XMLHTTP组件

下面为asp获取网页源代码的程序代码:

下面为asp获取网页源代码的程序代码:
<%

url="http://www.webkaka.com"  '//定义要获取源代码的网址,一般是通过变量传递过来
HTMLCODE=getHTTPPage(url) '//获取源代码的函数

response.Write HTMLCODE '//输出HTML格式的网页内容

Function getHTTPPage(url) 
    dim objXML 
    set objXML=createobject("MSXML2.SERVERXMLHTTP.3.0")  '调用XMLHTTP组件,测试空间是否支持XMLHTTP
    objXML.open "GET",url,false 'false表示以同步的方式获取网页代码,了解什么是同步?什么是异步?
    objXML.send() '发送
    getHTTPPage=bBytesToBstr(objXML.responseBody)'返回信息,同时用函数定义编码 
    set objXML=nothing'关闭 
End Function


Function bBytesToBstr(body) 
    dim objstream 
    set objstream = CreateObject("adodb.stream") '//调用adodb.stream组件
    objstream.Type = 1 
    objstream.Mode =3 
    objstream.Open 
    objstream.Write body 
    objstream.Position = 0 
    objstream.Type = 2 
    objstream.Charset = "GB2312" '转换原来默认的UTF-8编码转换成GB2312编码,否则直接用XMLHTTP调用有中文字符的网页得到的将是乱码 
    bBytesToBstr = objstream.ReadText 
    objstream.Close 
    set objstream = nothing 
end Function


%>
赞(1)
声明:本站发布的内容(图片、视频和文字)以原创、转载和分享网络内容为主,若涉及侵权请及时告知,将会在第一时间删除。本站原创内容未经允许不得转载:西数超哥博客 » asp抓取网页源代码的方法