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

  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