MSXML ASP 经典提要页面 - 超时且 ReadyState 停留在 1

MSXML ASP Classic feed page - timing out and ReadyState stuck on 1

我目前正在 Classic ASP (VB) 中使用 MSXML 阅读外部 XML 提要的页面。
虽然这在我的电脑上的本地主机上没有问题(达到 ReadyState 4),但一旦代码在服务器上,它就会超时,并出现此错误:

msxml3.dll error '80072ee2'

The operation timed out

我尝试过使用 setTimeouts,但无济于事。
我想知道它是否可能是 IIS 中的设置,或者可能是未安装的功能? 代码如下:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%' setup the URL
baseUrl ="http://w1.weather.gov/xml/current_obs/index.xml"

'/////Set http = Server.CreateObject("MSXML2.ServerXMLHTTP.6.0")
Set http = Server.CreateObject("MSXML2.ServerXMLHTTP")


Set myXML =Server.CreateObject("MSXML2.DOMDocument.3.0") 

myXML.Async=False  

http.open "GET", baseUrl, False

http.setRequestHeader "PREFIX", "prefix"

http.setTimeouts 30000, 60000, 30000, 240000


' send the HTTP data
http.send()

response.write("<BR>ReadyState is... "&http.ReadyState&"<BR>")

if http.ReadyState<>4 then 
    http.waitForResponse 3
response.write "server is down!"
response.End()
else


if Not myXML.load(http.responseXML) then 'an Error loading XML
        returnString = ""
        response.write("<br>error<br>")
    Else    'parse the XML 

Set nodesStationIndex=myXML.documentElement.selectNodes("//wx_station_index")


For each wx in nodesStationIndex

    Set nodesStation=wx.selectNodes("station")
    For each NS in nodesStation         

        Set nodesStatID=NS.selectNodes("station_id")    
        For each NS_ID in nodesStatID   
            response.write("<BR>"&NS_ID.text&"<BR>")
            'response.flush()

        next

    next 

next        


    End If  'end - XML load error check 



end if  'end - ReadyState check


%>

我想跟进此事。
事实证明,我们控制集中权限等的本地(中央)IT 部门确实阻止了 XML 提要所需的 URL。
现在已经解锁了,上面的代码可以正常运行了。

感谢大家的帮助。