Function getHTTPPage()

dim http

set http=Server.createobject("Msxml2.ServerXMLHTTP")

Http.open "GET","http://127.0.0.1/test.html",false

Http.send()

if Http.readystate<>4 then

exit function

end if

getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")

set http=nothing

if err.number<>0 then

Response.write(err.number)

End function

Function BytesToBstr(body,Cset)

dim objstream

set objstream = Server.CreateObject("adodb.stream")

objstream.Type = 1

objstream.Mode =3

objstream.Open

objstream.Write body

objstream.Position = 0

objstream.Type = 2

objstream.Charset = Cset

BytesToBstr = objstream.ReadText

objstream.Close

set objstream = nothing

End Function

Response.write(getHTTPPage)

%>

使用Msxml2.ServerXMLHTTP对象 错误提示是：

msxml3.dll 错误 '80072ee2'

The operation timed out

---------------------------------------------------------------------------

使用Microsoft.xmlhttp对象 错误提示是：

msxml3.dll: The download of the specified resource has

failed.

解决办法：

在IIS的设置中：

网站属性→主目录→配置→调试→两个√均去除