写程序需要换XML的根，感觉很不便，于是写了一个函数，大致思路及实现如下：
创新互联公司是一家专注于
成都做网站、网站建设与策划设计,桥西网站建设哪家好?
创新互联公司做网站,专注于网站建设十余年,网设计领域的专业建站公司;建站业务涵盖:桥西等地区。桥西做网站价格咨询:18982081108
首先觉得利用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
kmhx.b2b168.com
kmhuaxi.51sole.com
http://www.wenbing.cn/kmhx/
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文件，这就要看你如何设计了。
另外有需要云服务器可以了解下创新互联scvps.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。
本文题目：利用XSLT来换XML的根-创新互联
分享链接：
http://cdkjz.cn/article/dhpgds.html
