利用XSLT来换XML的根-创新互联

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

首先觉得利用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许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。