VBScript getAttribute не является членом MSXML.IXMLDOMNode

Question

Преобразование классического приложения .ASP в .ASPX и приведенной ниже функции содержит фрагмент XML. Он отлично работает в жереха, но дает мне ошибки comipilation «BC30456 об ошибке: GetAttribute не является членом MSXML.IXMLDOMNode» в .aspx

Function ExtractDataFromXML(ByRef sInputXML As String) As String 
Dim XMLDom As MSXML.DOMDocument 
Dim currNode As MSXML.IXMLDOMNodeList 
Dim Node As MSXML.IXMLDOMNode 
Dim sError As String 
Dim sResult As String 

XMLDom = New MSXML.DOMDocument 
XMLDom.async = False 
If (XMLDom.loadXML(sInputXML) = False) Then 
    sResult = "XML Parse Error: " & XMLDom.parseError.reason & " code=" & XMLDom.parseError.errorCode & " " & Chr(13) & Chr(10) 
Else 
    currNode = XMLDom.selectNodes("//push-response") 
    For Each Node In currNode 
     sError = Node.selectSingleNode("response-result").getAttribute("code") 
     If sError = "1000" Then 
      sResult = Node.selectSingleNode("address").Text 
     Else 
      sResult = "Error " & sError & ": " & Node.selectSingleNode("response-result").getAttribute("desc") 
     End If 
    Next Node 
End If 
ExtractDataFromXML = sResult 
End Function 

я должен использовать неправильный тип интерфейса XML-документа, но я не уверен, какой интерфейс я должен использовать.

Может ли кто-нибудь дать мне понять, что мне нужно сделать для этого кода, чтобы заставить его работать в среде .ASPX/VBScript, пожалуйста ..?

Answer 1

атрибутов является свойством IXMLDOMNode типа IXMLDOMNamedNodeMap

, поэтому я хотел бы использовать Node.selectSingleNode("response-result").attributes.getNamedItem("code")