asp獲取網(wǎng)頁(yè)源代碼的前提條件有兩個(gè)：一是服務(wù)器支持ADODB.STREAM組件，二是服務(wù)器安裝了XMLHTTP組件并允許調(diào)用。
如果您使用的空間是國(guó)內(nèi)的，那么不必?fù)?dān)心，國(guó)內(nèi)95%的空間都支持上面提到的兩個(gè)組件；如果您使用的空間是國(guó)外的，那就要注意了，因?yàn)閲?guó)外絕大部分空間都不支持ADODB.STREAM組件或者XMLHTTP組件。所以，如果您需要這方面的服務(wù)，那么購(gòu)買空間前，就要弄清楚。可以通過如下方法進(jìn)行測(cè)試：
===〉測(cè)試空間是否支持ADODB.STREAM
===〉測(cè)試空間是否支持XMLHTTP
下面為asp獲取網(wǎng)頁(yè)源代碼的程序代碼：
<%
url="http://www.gazebo2go.com" '//定義要獲取源代碼的網(wǎng)址，一般是通過變量傳遞過來
HTMLCODE=getHTTPPage(url) '//獲取源代碼的函數(shù)
response.Write HTMLCODE '//輸出HTML格式的網(wǎng)頁(yè)內(nèi)容
Function getHTTPPage(url)
dim objXML
set objXML=createobject("MSXML2.SERVERXMLHTTP.3.0") '調(diào)用XMLHTTP組件，測(cè)試空間是否支持XMLHTTP
objXML.open "GET",url,false 'false表示以同步的方式獲取網(wǎng)頁(yè)代碼，了解什么是同步？什么是異步？
objXML.send() '發(fā)送
getHTTPPage=bBytesToBstr(objXML.responseBody)'返回信息，同時(shí)用函數(shù)定義編碼
set objXML=nothing'關(guān)閉
End Function
Function bBytesToBstr(body)
dim objstream
set objstream = CreateObject("adodb.stream") '//調(diào)用adodb.stream組件
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "GB2312" '轉(zhuǎn)換原來默認(rèn)的UTF-8編碼轉(zhuǎn)換成GB2312編碼，否則直接用XMLHTTP調(diào)用有中文字符的網(wǎng)頁(yè)得到的將是亂碼
bBytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
end Function
%>
