XSLT 編輯 XML
儲存在 XML 檔案中的資料可透過網際網路瀏覽器編輯。
開啟、編輯並儲存 XML
現在，我們會為您展示如何開啟、編輯及儲存儲存於伺服器上的 XML 檔案。
我們將使用 XSL 把 XML 文件轉換到一個 HTML 表單中。 XML 元素的值會被寫入 HTML 表單中的 HTML 輸入網域。這個 HTML 表單是可編輯的。在編輯完成後，資料會提交回伺服器，XML 檔案會更新（這部分由 ASP 完成）。
XML 檔案與XSL 檔案
首先，請看將會被使用的XML 文件（"tool.xml"）：
<tool>
<field id="prodName">
<value>HAMMER HG2606</value>
<value>HAMMER HG2606</value> ;
</field>
<field id="prodNo">
<value>32456240</value>
</field>
<field id= "price">
<value>$30.00</value>
</field>
查看XML檔。 -8859-1"?>
<xsl:stylesheet version="1.0"xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<body>
<form method="post" action="edittool.html">
<h2>工具資訊（編）：</h2>
<table border="0">
<xsl:for-each select="tool/field">
<tr>
<td><xsl:value-of select="@id"/></td>
<td>
<輸入類型= "text" >
<xsl:attribute name="id">
<xsl:value-of select="@id" />
</xsl:attribute>
< ;xsl:屬性名稱=“名稱”>
<xsl:select的值=“@id”/>
</xsl:屬性>
<xsl:屬性名稱= “值”>
<xsl:value-of select=“值”/>
</xsl:屬性>
</input>
</ td>
<輸入類型=「提交」 id="btn_sub" name=" btn_sub" value="提交" //>
<輸入類型="重置" id="btn_res" name="btn_res" value="重置" //>
</form>
</body>
</html>
</xsl:template>
</xsl:stylesheet>
查看 XSL 檔案。
上面這個 XSL 檔案會循環遍歷 XML 檔案中的元素，並為每個 XML "field" 元素建立一個輸入域。 XML "field" 元素的 "id" 屬性的值會加到每個 HTML 輸入域的 "id" 和 "name" 屬性。每個 XML "value" 元素的值會加到每個 HTML 輸入域的 "value" 屬性。結果是，可以取得一個包含 XML 檔案中值的可編輯的 HTML 表單。
然後，我們還有第二個樣式表："tool_updated.xsl"。這個 XSL 檔案會被用來顯示已更新的 XML 資料。這個樣式表不會輸出可編輯HTML 表單，而是靜態的HTML 表格：
<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>
查看 XSL 檔案。
ASP 檔案
在上面 "tool.xsl" 檔案中，HTML 表單的 action 屬性的值是 "edittool.asp" 。
"edittool.asp" 頁麵包含兩個函數：loadFile() 函數載入並轉換XML 文件，updateFile() 函數更新XML 文件：
Dim xmlDoc,xslDoc
'Load XML file
set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.async = false##xmlDoc .load(xmlfile)
'Load XSL file
set xslDoc = Server.CreateObject("Microsoft.XMLDOM")
xslDoc.async = false
xslDoc.load(xslfile)
'Transform file
Response.Write(xmlDoc.transformNode(xslDoc))
end function
function updateFile(xmlfile)
Dim xmlDoc,rootEl,f
Dim i
#'Load XML file
set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.async = false
xmlDoc.load(xmlfile)
'Set the rootEl variable equal to the root element
Set rootEl = xmlDoc.documentElement
'Loop through the form collection
for i = 1 To Request.Form.Count
'Eliminate button elements in the form
if instr( 1,Request.Form.Key(i),"btn_")=0 then
'The selectSingleNode method queries the XML file for a single node
'that matches a query. This query requests the value element that is
'the child of a field element that has an id attribute which matches
'the current key value in the Form Collection. When there is a match -
'set the text property equal to the value of the current field in the
'Form Collection.
set f = rootEl.selectSingleNode("field[@id='" & _
Request.Form.Key(i) & "']/value")
f.Text = Request.Form(i)
end if
next
'Save the modified XML file
xmlDoc.save xmlfile
#'Release all object references
set xmlDoc=nothing
set rootEl=nothing
set f=nothing
'Load the modified XML file with a style sheet that
'allows the client to see the edited information
loadFile xmlfile,server.MapPath("tool_updated.xsl")
end function
'If the form has been submitted update the
'XML file and display result - if not ,
'transform the XML file for editing
if Request.Form("btn_sub")="" then
loadFile server.MapPath("tool.xml"),server.MapPath("tool.xsl ")
else
updateFile server.MapPath("tool.xml")
end if
%>
假如您不了解如何寫ASP，請學習我們的ASP 教學。
注意：我們正在轉換並更新位於伺服器上的 XML 檔案。這是一個跨平台的解決方案。客戶端僅能獲得從伺服器返回的 HTML - 而 HTML 可運行於任何瀏覽器。
