XSLT

XSLT - 教程 XSL - 语言 XSLT - 简介 XSLT - 浏览器 XSLT - 转换 XSLT <template> XSLT <xsl:value-of> XSLT <xsl:for-each> XSLT <xsl:sort> XSLT <xsl:if> XSLT <xsl:choose> XSLT <xsl:apply-templates> XSLT - 在客户端 XSLT - 在服务器端 XSLT - 编辑 XML XML - 编辑器 XSLT - 总结

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>

<value>HAMMER HG2606</value>

</field>

</field>

</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>

<h2>Tool Information (edit):</h2>

<xsl:for-each select="tool/field">

<tr>

<td>

<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 />

</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>

<xsl:for-each select="tool/field">

<tr>

</tr>

</xsl:for-each>

</table>

</body>

</html>

</xsl:template>

</xsl:stylesheet>

查看 XSL 文件。

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

'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 可运行于任何浏览器。

上一篇:XSLT - 在服务器端

下一篇:XML - 编辑器

我要发贴

XSLT

XSLT - 编辑 XML

打开、编辑并保存 XML

XML 文件和 XSL 文件

站内导航

联系我们

友情链接