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。
现在已经解锁了,上面的代码可以正常运行了。
感谢大家的帮助。
我目前正在 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。
现在已经解锁了,上面的代码可以正常运行了。
感谢大家的帮助。