深圳网站建设技术博客

<%

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

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

 

设置后可以使用了，以前都不用这样设置都行，为什么安装sql2008+.net 4.0 后就出现这个但是为什么呢？ 研究中...