推荐：如何利用 DOM 进行 Web 响应程序员（使用后端应用程序）和 Web 程序员（编写 HTML、CSS 和 JavaScript）之间的分水岭是长久存在的。但是，Document Object Model (DOM) 弥补了这个裂缝，使得在后端使用 XML 同时在前端使用 HTML 切实可行，并成为极其有效的工具。在本文中，Brett McLau
写程序需要换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:copy><xsl:apply-templates select="@* | node()"/></xsl:copy></xsl:when>
<xsl:otherwise><xsl: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:copy><xsl:apply-templates select=""@* | node()""/></xsl:copy></xsl:when>"& vbCrLf
sXslt = sXslt& "< xsl:otherwise><xsl: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文件，这就要看你如何设计了。
分享：解析xslt的简单使用[xml-->html]XSLT命令[xml格式转换] 1.循环 xsl:for-each... xsl:for-each select=BookList/Item tr th align=left xsl:value-of select=.//title //th tdxsl:value-of select=.//categroy //td tdxsl:value-of select=.//release-date //td tdxsl:value-of se
。