推薦：如何利用 DOM 進(jìn)行 Web 響應(yīng)
程序員（使用后端應(yīng)用程序）和 Web 程序員（編寫(xiě) HTML、CSS 和 JavaScript）之間的分水嶺是長(zhǎng)久存在的。但是，Document Object Model (DOM) 彌補(bǔ)了這個(gè)裂縫，使得在后端使用 XML 同時(shí)在前端使用 HTML 切實(shí)可行，并成為極其有效的工具。在本文中，Brett McLau

寫(xiě)程序需要換XML的根，感覺(jué)很不便，于是寫(xiě)了一個(gè)函數(shù)，大致思路及實(shí)現(xiàn)如下：

　　首先覺(jué)得利用XSLT還能過(guò)濾一些東西，然后再發(fā)送回客戶端，所以決定采用XSLT
　　然后就是嘗試寫(xiě)一個(gè)換根的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>

大致意思是，解析一個(gè)XML中的所有結(jié)點(diǎn)及屬性，如果非根就直接拷貝，否則就查看是否存在子結(jié)點(diǎn)及屬性。具體資料請(qǐng)參照MSXML的SDK文檔。

　　然后寫(xiě)一個(gè)函數(shù)，使得NEWNODENAME可以指定：

這段代碼為VB.Net中的實(shí)現(xiàn)，ASP中實(shí)現(xiàn)時(shí)需要注意對(duì)象附值需要用Set，還有返回值的問(wèn)題

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

　　還有，當(dāng)然你也可以實(shí)現(xiàn)生成那個(gè)XSL的XSL文件，這就要看你如何設(shè)計(jì)了。

分享：解析xslt的簡(jiǎn)單使用[xml-->html]
XSLT命令[xml格式轉(zhuǎn)換] 1.循環(huán) 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