替代祖先或自我(或选择树中具有特定子节点的所有节点)

我正在尝试识别树中通向特定节点的所有节点.

我正在尝试通过 MSSQL XML (2005) 或 ASP 经典中的 Microsoft.XMLDOM 来实现这一点.

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

当我在 XPATH 测试器中测试时有效的 xpath 是

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

我的 XML(在 sql server 中递归生成)看起来像

<static id="1" title="some title 1"/><static id="2" title="一些标题 2"><儿童><static id="3" title="some title 3"/><static id="4" title="some title 4"><儿童><static id="5" title="some title 5"/><static id="6" title="some title 6"/></儿童></静态></儿童></静态><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' found ':'.//static[@id=6]/ancestor-or-self-->:<--:static)

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

解决方案

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

Dim XMLDom ''# As MSXML2.DOMDocument40Set XMLDom = CreateObject("MSXML2.DOMDocument.4.0")调用 XMLDom.setProperty("SelectionLanguage", "XPath")调用 XMLDom.loadXML( {文档如上所述 - 原始 xml 文档中的错误))Dim originalQuery ''# As StringoriginalQuery = "//static[@id=6]/ancestor-or-self::static"Dim replacementQuery ''# As StringreplaceQuery = "//static[descendant::static[@id=6] or @id=6]"Dim XmlElemList ''# As MSXML2.IXMLDOMNodeList设置 XmlElemList = XMLDom.documentElement.selectNodes(originalQuery)Dim XmlElemList2 ''# As MSXML2.IXMLDOMNodeList设置 XmlElemList2 = XMLDom.documentElement.selectNodes(replacementQuery)Dim XmlElem ''# 作为 MSXML2.IXMLDOMElementCall Response.Write("Using original query : '" & originalQuery & "' (" & XmlElemList.Length & ")<br>")对于 XmlElemList 中的每个 XmlElem调用 Response.Write("XmlEntry : " & XmlElem.getAttribute("id") & "
")调用 Response.Write("****
")下一个Call Response.Write("使用替换查询:'" & replacementQuery & "' (" & XmlElemList2.Length & ")<br>")对于 XmlElemList2 中的每个 XmlElem调用 Response.Write("XmlEntry : " & XmlElem.getAttribute("id") & "
")调用 Response.Write("****
")下一个

I am trying to identify all the nodes in a tree that lead to a specific node.

I am trying to accomplish this through either MSSQL XML (2005) or by the Microsoft.XMLDOM in ASP classic.

I know the logic with XPATH but SQL Server does not support the ancestor-or-self axis and XMLDOM seems to choke on the :: notation..

The xpath that works when i test it in XPATH testers is

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

my XML (generated recursively in sql server) looks like

<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>

the XPATH should select nodes with id (2,4,6) in any order, so i can add an attribute to all of them ..

This is for a menu system, where i only know the selected leaf, and need to mark as hilited all the nodes leading to it..

I would appreciate any assistance in either overcoming the XMLDOM choking (running xml.documentElement.selectNodes("//static[@id=6]/ancestor-or-self::static") produces the following error: Expected token 'eof' found ':'. //static[@id=6]/ancestor-or-self-->:<--:static)

or with finding an alternative solution. Maybe finding all nodes that contain the specific node (with id = 6 ) at any depth..

解决方案

Running on W2K3, using IIS6 i tested the MSXML2.XMLDomDocument.4.0 version.

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