利用XSLT来换XML的根

写程序需要换XML的根，感到很不便，于是写了一个函数，大致思路及实现如下：

首先感到利用XSLT还能过滤一些东西，然后再发送回客户端，所以决定采用XSLT

然后就是尝试写一个换根的XSL，如下

以下为引用的内容：

大致意思是，解析一个XML中的所有结点及属性，假如非根就直接拷贝，否则就查看是否存在子结点及属性。具体材料请参照MSXML的SDK文档。

然后写一个函数，使得NEWNODENAME可以指定：

这段代码为VB.Net中的实现，ASP中实现时需要留心对象附值需要用Set，还有返回值的标题

以下为引用的内容：

  Public Function ChangeXmlRootNodeName(ByRef oXml As MSXML2.DOMDocument, ByVal name As String) As String
    If oXml Is Nothing Then
      Return ""
    End If
    Dim sXslt As String
    sXslt = "" & vbCrLf
    sXslt = sXslt & "" & vbCrLf
    sXslt = sXslt & "" & vbCrLf
    sXslt = sXslt & vbCrLf
    sXslt = sXslt & "" & vbCrLf
    sXslt = sXslt & "<" & name & ">"" & vbCrLf"
    sXslt = sXslt & "  " & vbCrLf
    sXslt = sXslt & "" & vbCrLf
    sXslt = sXslt & "" & vbCrLf
    sXslt = sXslt & vbCrLf
    sXslt = sXslt & "" & vbCrLf
    sXslt = sXslt & "  " & vbCrLf
    sXslt = sXslt & "    " & vbCrLf
    sXslt = sXslt & "    " & vbCrLf
    sXslt = sXslt & "  "" & vbCrLf"
    sXslt = sXslt & """ & vbCrLf"
    sXslt = sXslt & vbCrLf
    sXslt = sXslt & "" & vbCrLf

    Dim oXsl As New MSXML2.DOMDocument
    oXsl.async = False
    oXsl.resolveExternals = False
    oXsl.loadXML(sXslt)

    Dim sXml As String

    sXml = oXml.transformNode(oXsl)

    sXml = AddXmlHeader(sXml)

　sXsl = Nothing

    Return sXml
  End Function

还有，当然你也可以实现天生那个XSL的XSL文件，这就要看你如何设计了。