多好客

url="www.913dh.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