祖先或自我的替代方案（或选择树中具有特定子节点的所有节点）

Question

我试图识别树中通向特定节点的所有节点。

我试图通过 MSSQL XML (2005) 或 ASP classic 中的 Microsoft.XMLDOM 来完成此任务。

我知道 XPATH 的逻辑，但 SQL Server 不支持 ancestor-or-self 轴，并且 XMLDOM 似乎因 :: 符号而窒息

。我在XPATH测试器中测试它是

//static[@id=6]/ancestor-or-self::static

我的XML（在sql server中递归生成）看起来像

<root>
  <static id="1" title="some title 1" />
  <static id="2" title="some title 2">
     <children>
        <static id="3" title="some title 3" />
        <static id="4" title="some title 4">
          <children>
            <static id="5" title="some title 5" />
            <static id="6" title="some title 6" />
          </children>
        </static>
     </children>
  </static>
  <static id="7" title="some title 7" />
</root>

XPATH应该以任何顺序选择id为（2,4,6）的节点，所以我可以向所有节点添加一个属性..

这是对于菜单系统，我只知道选定的叶子，并且需要将通向它的所有节点标记为 hilited..

我将不胜感激任何克服 XMLDOM 阻塞的帮助 （运行 xml.documentElement.selectNodes("//static[@id=6]/ancestor-or-self::static") 会产生以下错误：Expected token ' eof' 发现 ':'. //static[@id=6]/ancestor-or-self-->:<--:static)

或寻找替代解决方案。也许在任何深度找到包含特定节点（id = 6）的所有节点。

Answer 1

这是一种“收拾残局”之类的答案。

首先，您的主要问题是“Microsoft.XMLDOM”通常会加载版本 3.0 实现 (MSXML3.dll)。 MSXML3 确实支持完整的 XPATH 1.0 语言，但默认情况下不支持。以下应该足以修复：-

dom.SetProperty "SelectionLanguage", "XPath"

Marvin 的答案在使用 MSXML4 时包含这一行，但实际上并不是必需的，因为 XPath 是 4 及更高版本上的默认选择语言。

不过，我在上面使用了“应该”这个词，这是经过深思熟虑的。我经常遇到被第三方应用程序破坏的服务器，这些应用程序也包含 MSXML2 的分发版，但安装不正确。它们导致“Microsoft.XMLDOM”和非版本特定的“MSXML2.DOMDocument”返回 MSXML2.dll 实现而不是 MSXML3 实现。

因此，我通常建议使用的最佳 ProgID 是“MSXML2.DOMDocument.3.0”，因为您确切地知道自己会得到什么。此外，MSXML3.dll 保证可以开箱即用地安装在当前支持的所有 Windows 操作系统上。当使用旧的 progID 调用 DOM 文档时，MSXML3 仍然与 MSXML2 实现中的错误兼容。使用版本特定的 ProgID 会使 MSXML3 更严格地符合 XML 标准。

Answer 2

在 W2K3 上运行，使用 IIS6 我测试了 MSXML2.XMLDomDocument.4.0 版本。

Dim XMLDom ''# As MSXML2.DOMDocument40

Set XMLDom = CreateObject("MSXML2.DOMDocument.4.0")
Call XMLDom.setProperty("SelectionLanguage", "XPath")

Call XMLDom.loadXML( {document as described above - mistakes in original xml doc)
)


Dim originalQuery ''# As String
originalQuery = "//static[@id=6]/ancestor-or-self::static"

Dim replacementQuery ''# As String
replacementQuery = "//static[descendant::static[@id=6] or @id=6]"


Dim XmlElemList ''# As MSXML2.IXMLDOMNodeList
Set XmlElemList = XMLDom.documentElement.selectNodes(originalQuery)

Dim XmlElemList2 ''# As MSXML2.IXMLDOMNodeList
Set XmlElemList2 = XMLDom.documentElement.selectNodes(replacementQuery)

Dim XmlElem ''# As MSXML2.IXMLDOMElement
Call Response.Write("Using original query : '" & originalQuery & "' (" & XmlElemList.Length & ")<br>")
For Each XmlElem In XmlElemList
    Call Response.Write("XmlEntry : " & XmlElem.getAttribute("id") & "<br>")
    Call Response.Write("****<br>")
Next

Call Response.Write("Using replacement query : '" & replacementQuery & "' (" & XmlElemList2.Length & ")<br>")
For Each XmlElem In XmlElemList2
    Call Response.Write("XmlEntry : " & XmlElem.getAttribute("id") & "<br>")
    Call Response.Write("****<br>")
Next