编辑 XML

本节为你讲解如何编辑 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>

接着，请看下面的样式表（"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 文件会循环遍历 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>

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

编辑 XML

打开、编辑并保存 XML

XML 文件和 XSL 文件

ASP 文件

选择支付方式：