利用XSLT来换XML的根

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

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

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

？xml version="1.0" encoding="gb2312" ？
xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
xsl:output method="xml" version="1.0" encoding="gb2312" omit-xml-declaration="yes" indent="yes" /

xsl:template match="/"
NEWNODENAME
xsl:apply-templates select="@* | node()" /
/NEWNODENAME
/xsl:template

xsl:template match="@* | node()"
xsl:choose
xsl:when test=".!=ancestor::node()"xsl:copyxsl:apply-templates select="@* | node()"//xsl:copy/xsl:when
xsl:otherwisexsl:apply-templates select="@* | node()"//xsl:otherwise
/xsl:choose
/xsl:template

/xsl:stylesheet

大致意思是，解析一个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 = "？xml version=""1.0"" encoding=""gb2312"" ？" & vbCrLf
sXslt = sXslt & "xsl:stylesheet version=""1.0"" xmlns:xsl=""http://www.w3.org/1999/XSL/Transform""" & vbCrLf
sXslt = sXslt & "xsl:output method=""xml"" version=""1.0"" encoding=""gb2312"" omit-xml-declaration=""yes"" indent=""yes"" /" & vbCrLf
sXslt = sXslt & vbCrLf
sXslt = sXslt & "xsl:template match=""/""" & vbCrLf
sXslt = sXslt & "" & name & """ & vbCrLf"
sXslt = sXslt & " xsl:apply-templates select=""@* | node()""/" & vbCrLf
sXslt = sXslt & "/" & name & "" & vbCrLf
sXslt = sXslt & "/xsl:template" & vbCrLf
sXslt = sXslt & vbCrLf
sXslt = sXslt & "xsl:template match=""@* | node()""" & vbCrLf
sXslt = sXslt & " xsl:choose" & vbCrLf
sXslt = sXslt & " xsl:when test="".!=ancestor::node()""xsl:copyxsl:apply-templates select=""@* | node()""//xsl:copy/xsl:when" & vbCrLf
sXslt = sXslt & " xsl:otherwisexsl:apply-templates select=""@* | node()""//xsl:otherwise" & vbCrLf
sXslt = sXslt & " /xsl:choose"" & vbCrLf"
sXslt = sXslt & "/xsl:template"" & vbCrLf"
sXslt = sXslt & vbCrLf
sXslt = sXslt & "/xsl:stylesheet" & 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文件，这就要看你如何设计了。