VBScript getAttribute不是MSXML.IXMLDOMNode的成员

Question

将一个传统的.ASP应用程序转换为.ASPX，下面的函数接受一个XML片段。它在asp中运行良好，但在.ASPX中出现"error BC30456: getAttribute is not a member of MSXML.IXMLDOMNode“错误。

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

attributes是IXMLDOMNamedNodeMap类型的IXMLDOMNode的属性

所以我会使用Node.selectSingleNode("response-result").attributes.getNamedItem("code")