XSLT - 編輯 XML
存儲在 XML 文件中的數(shù)據(jù)可通過因特網(wǎng)瀏覽器進行編輯。
打開、編輯并保存 XML
現(xiàn)在,我們會為您展示如何打開、編輯及保存存儲于服務(wù)器上的 XML 文件。
我們將使用 XSL 把 XML 文檔轉(zhuǎn)換到一個 HTML 表單中。XML 元素的值會被寫到 HTML 表單中的 HTML 輸入域。此表單是可編輯的。在被編輯完成后,數(shù)據(jù)會被提交回服務(wù)器,XML 文件會得到更新(這部分由 ASP 完成)。
XML 文件和 XSL 文件
首先,請看將被使用的 XML 文檔 ("tool.xml"):
<?xml version="1.0" encoding="ISO-8859-1"?> <tool> <field id="prodName"> <value>HAMMER HG2606</value> </field> <field id="prodNo"> <value>32456240</value> </field> <field id="price"> <value>$30.00</value> </field> </tool>
接著,請看下面的樣式表("tool.xsl"):
<?xml version="1.0" encoding="ISO-8859-1"?> <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"> <xsl:template match="/"> <html> <body> <form method="post" action="edittool.asp"> <h2>Tool Information (edit):</h2> <table border="0"> <xsl:for-each select="tool/field"> <tr> <td> <xsl:value-of select="@id"/> </td> <td> <input type="text"> <xsl:attribute name="id"> <xsl:value-of select="@id" /> </xsl:attribute> <xsl:attribute name="name"> <xsl:value-of select="@id" /> </xsl:attribute> <xsl:attribute name="value"> <xsl:value-of select="value" /> </xsl:attribute> </input> </td> </tr> </xsl:for-each> </table> <br /> <input type="submit" id="btn_sub" name="btn_sub" value="Submit" /> <input type="reset" id="btn_res" name="btn_res" value="Reset" /> </form> </body> </html> </xsl:template> </xsl:stylesheet>
上面這個 XSL 文件會循環(huán)遍歷 XML 文件中的元素,并為每個 XML "field" 元素創(chuàng)建一個輸入域。field 元素的 id 屬性的值被添加到每個 HTML 輸入域的 id 和 name 屬性。"value" 元素的值被添加到每個 HTML 輸入域的 "value" 屬性。結(jié)果是,可以得到一個包含 XML 文件中值的可編輯的 HTML 表單。
然后,我們還有第二個樣式表:"tool_updated.xsl"。這個 XSL 文件會被用來顯示已更新的 XML 數(shù)據(jù)。這個樣式表不會輸出可編輯 HTML 表單,而是一個靜態(tài)的 HTML 表格:
<?xml version="1.0" encoding="ISO-8859-1"?> <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"> <xsl:template match="/"> <html> <body> <h2>Updated Tool Information:</h2> <table border="1"> <xsl:for-each select="tool/field"> <tr> <td><xsl:value-of select="@id" /></td> <td><xsl:value-of select="value" /></td> </tr> </xsl:for-each> </table> </body> </html> </xsl:template> </xsl:stylesheet>
ASP 文件
在上面 "tool.xsl" 文件中, HTML 表單的 action 屬性的值是 "edittool.asp" 。
"edittool.asp" 頁面包含兩個函數(shù):loadFile() 載入并轉(zhuǎn)換 XML 文件,updateFile() 函數(shù)更新 XML 文件:
<% function loadFile(xmlfile,xslfile) Dim xmlDoc,xslDoc '加載 XML 文件 set xmlDoc = Server.CreateObject("Microsoft.XMLDOM") xmlDoc.async = false xmlDoc.load(xmlfile) '加載 XSL 文件 set xslDoc = Server.CreateObject("Microsoft.XMLDOM") xslDoc.async = false xslDoc.load(xslfile) '轉(zhuǎn)換文件 Response.Write(xmlDoc.transformNode(xslDoc)) end function function updateFile(xmlfile) Dim xmlDoc,rootEl,f Dim i '加載 XML 文件 set xmlDoc = Server.CreateObject("Microsoft.XMLDOM") xmlDoc.async = false xmlDoc.load(xmlfile) '設(shè)置 rootEl 變量為根元素 Set rootEl = xmlDoc.documentElement '循環(huán)遍歷 form 集 for i = 1 To Request.Form.Count '除去表單中的按鈕元素 if instr(1,Request.Form.Key(i),"btn_")=0 then 'selectSingleNode 方法可查詢匹配某個查詢的 XML 文件中的某個單一節(jié)點。 '此查詢會請求 value 元素,此 value 元素是 field 元素的子元素, '而此 field 元素擁有可匹配表單集中當(dāng)前 key 值的 id 屬性。 '如果存在匹配,則設(shè)置 text 屬性為表單集中當(dāng)前域的值。 set f = rootEl.selectSingleNode("field[@id='" & _ Request.Form.Key(i) & "']/value") f.Text = Request.Form(i) end if next '保存已修改的 XML 文件 xmlDoc.save xmlfile '釋放所有的對象引用 set xmlDoc=nothing set rootEl=nothing set f=nothing '通過一個樣式表加載已修改的 XML 文件,這樣客戶端就可以看到所編輯的信息 loadFile xmlfile,server.MapPath("tool_updated.xsl") end function '如果表單已被提交,則更新XML文件并顯示結(jié)果,如果沒有被提交,則轉(zhuǎn)換此 XML 文件以供編輯 if Request.Form("btn_sub")="" then loadFile server.MapPath("tool.xml"),server.MapPath("tool.xsl") else updateFile server.MapPath("tool.xml") end if %>
提示:假如您不了解如何編寫 ASP,請學(xué)習(xí)我們的《ASP 教程》。
注釋:我們正在轉(zhuǎn)換并更新位于服務(wù)器上的 XML 文件。這是一個跨平臺的解決方案?蛻舳藘H能獲得從服務(wù)器返回的 HTML - 而 HTML 可運行于任何瀏覽器。