日韩天天综合网_野战两个奶头被亲到高潮_亚洲日韩欧美精品综合_av女人天堂污污污_视频一区**字幕无弹窗_国产亚洲欧美小视频_国内性爱精品在线免费视频_国产一级电影在线播放_日韩欧美内地福利_亚洲一二三不卡片区

利用XSLT來換XML的根_Xml教程

編輯Tag賺U幣
教程Tag：暫無Tag,歡迎添加,賺取U幣!

推薦：讀取XML為行記錄
以下為引用的內(nèi)容： 1 declare @x xml 2 set @x='<book genre="security" publicationdate="2002" ISBN="0-7356-1588-2&

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

首先覺得利用XSLT還能過濾一些東西，然后再發(fā)送回客戶端，所以決定采用XSLT

然后就是嘗試寫一個(gè)換根的XSL，如下

以下為引用的內(nèi)容：

<?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)及屬性。具體資料請參照MSXML的SDK文檔。

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

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

以下為引用的內(nèi)容：

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ì)了。

分享：XML 2007年度回顧
對 XML 來說，2007 年又是發(fā)展較為平緩的一年。但是在這一年中，一些重要的規(guī)范都升級到了 1.0 版，XML 在信息發(fā)布(Web 和傳統(tǒng)形式)方面得到持續(xù)發(fā)展。更重要的是，REST 與 Web 服務(wù)的碰撞引起

來源：模板無憂//所屬分類：Xml教程/更新時(shí)間：2008-08-22
相關(guān)Xml教程：