IE无法打开**站点，已终止操作，怎么解决啊？

Function GetHttpPage(HttpUrl)
    On Error Resume Next 
If IsNull(HttpUrl)=True Then
Response.Write("123")
Exit Function
End If
Dim Http
Set Http=server.createobject("MSX"&"ML2.XML"&"HTTP")
Http.open "GET",HttpUrl,false
Http.Send()
If Http.Readystate<>4 then
Set Http=Nothing
response.Write("456")
Exit function
End if
GetHttpPage=bytesToBSTR(Http.responseBody,"GB2312")
Set Http=Nothing
If Err.number<>0 then
Err.Clear
Response.Write(SiteCloseStr)
Response.End()
End If
End FunctionFunction bytesToBstr(Body,Cset)
Dim Objstream
Set Objstream = Server.CreateObject("adod"&"b.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
IE无法打开**站点，已终止操作，怎么解决啊？