利用XSLT来换XML的根-创新互联
写程序需要换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 & "
sXslt = sXslt & "
kmhx.b2b168.com
kmhuaxi.51sole.com
http://www.wenbing.cn/kmhx/
sXslt = sXslt & vbCrLf
sXslt = sXslt & "
sXslt = sXslt & "<" & name & ">"" & vbCrLf"
sXslt = sXslt & "
sXslt = sXslt & "" & name & ">" & vbCrLf
sXslt = sXslt & "
sXslt = sXslt & vbCrLf
sXslt = sXslt & "
sXslt = sXslt & "
sXslt = sXslt & "
sXslt = sXslt & "
sXslt = sXslt & "
sXslt = sXslt & "
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的根-创新互联
网站URL:http://myzitong.com/article/dhpgds.html