选自 https://wenku.baidu.com/view/67352337e45c3b3567ec8bdd.html asp获取网页源代码的前提条件有两个：一是服务器支持ADODB.STREAM组件，二是服务器安装了XMLHTTP组件并允许调用。 如果您使用的空间是国内的，那么不必担心，国内95%的空间都支持上面提到的两个组件；如果您使用的空间是国外的，那就要注意了，因为国外绝大部分空间都不支持ADODB.STREAM组件或者XMLHTTP组件。所以，如果您需要这方面的服务，那么购买空间前，就要弄清楚。可以通过如下方法进行测试：
===〉测试空间是否支持ADODB.STREAM
===〉测试空间是否支持XMLHTTP 下面为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
%>
|
