當前位置:
首頁 > 知識 > XSLT-編輯 XML

XSLT-編輯 XML

存儲在 XML 文件中的數據可通過網際網路瀏覽器進行編輯。



打開、編輯並保存 XML

現在,我們會為您展示如何打開、編輯及保存存儲於伺服器上的 XML 文件。

我們將使用 XSL 把 XML 文檔轉換到一個 HTML 表單中。XML 元素的值會被寫到 HTML 表單中的 HTML 輸入域。這個 HTML 表單是可編輯的。在被編輯完成後,數據會被提交回伺服器,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>

查看 XML 文件。

接著,請看下面的樣式表("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.html">

<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 文件。

上面這個 XSL 文件會循環遍歷 XML 文件中的元素,並為每個 XML "field" 元素創建一個輸入域。XML "field" 元素的 "id" 屬性的值被添加到每個 HTML 輸入域的 "id" 和 "name" 屬性。每個 XML "value" 元素的值被添加到每個 HTML 輸入域的 "value" 屬性。結果是,可以得到一個包含 XML 文件中值的可編輯的 HTML 表單。

然後,我們還有第二個樣式表:"tool_updated.xsl"。這個 XSL 文件會被用來顯示已更新的 XML 數據。這個樣式表不會輸出可編輯 HTML 表單,而是一個靜態的 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>

查看 XSL 文件。



ASP 文件

在上面 "tool.xsl" 文件中,HTML 表單的 action 屬性的值是 "edittool.asp" 。

"edittool.asp" 頁面包含兩個函數:loadFile() 函數載入並轉換 XML 文件,updateFile() 函數更新 XML 文件:

<%

function loadFile(xmlfile,xslfile)

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

%>

注意:我們正在轉換並更新位於伺服器上的 XML 文件。這是一個跨平台的解決方案。客戶端僅能獲得從伺服器返回的 HTML - 而 HTML 可運行於任何瀏覽器。

XSLT-編輯 XML

喜歡這篇文章嗎?立刻分享出去讓更多人知道吧!

本站內容充實豐富,博大精深,小編精選每日熱門資訊,隨時更新,點擊「搶先收到最新資訊」瀏覽吧!


請您繼續閱讀更多來自 程序員小新人學習 的精彩文章:

MongoDB 條件操作符
Mac OSX 平台安裝 MongoDB

TAG:程序員小新人學習 |