您现在的位置: 365建站网 > 建站教程 > XSLT 教程 > XSLT - 编辑 XML

XSLT - 编辑 XML

此节有 167 人学习过     参与评论

存储在 XML 文件中的数据可通过因特网浏览器进行编辑。

打开、编辑并保存 XML

现在,我们会为您展示如何打开、编辑及保存存储于服务器上的 XML 文件。

我们将使用 XSL 把 XML 文档转换到一个 HTML 表单中。XML 元素的值会被写到 HTML 表单中的 HTML 输入域。此表单是可编辑的。在被编辑完成后,数据会被提交回服务器,XML 文件会得到更新(这部分由 ASP 完成)。

XML 文件和 XSL 文件

首先,请看将被使用的 XML 文档 ("tool.xml"):

</>code

  1. <?xml version="1.0" encoding="ISO-8859-1"?>
  2. <tool>
  3. <field id="prodName">
  4. <value>HAMMER HG2606</value>
  5. </field>
  6. <field id="prodNo">
  7. <value>32456240</value>
  8. </field>
  9. <field id="price">
  10. <value>$30.00</value>
  11. </field>
  12. </tool>

查看 XML 文件

接着,请看下面的样式表("tool.xsl"):

</>code

  1. <?xml version="1.0" encoding="ISO-8859-1"?>
  2. <xsl:stylesheet version="1.0"
  3. xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
  4. <xsl:template match="/">
  5. <html>
  6. <body>
  7. <form method="post" action="edittool.asp">
  8. <h2>Tool Information (edit):</h2>
  9. <table border="0">
  10. <xsl:for-each select="tool/field">
  11. <tr>
  12. <td>
  13. <xsl:value-of select="@id"/>
  14. </td>
  15. <td>
  16. <input type="text">
  17. <xsl:attribute name="id">
  18. <xsl:value-of select="@id" />
  19. </xsl:attribute>
  20. <xsl:attribute name="name">
  21. <xsl:value-of select="@id" />
  22. </xsl:attribute>
  23. <xsl:attribute name="value">
  24. <xsl:value-of select="value" />
  25. </xsl:attribute>
  26. </input>
  27. </td>
  28. </tr>
  29. </xsl:for-each>
  30. </table>
  31. <br />
  32. <input type="submit" id="btn_sub" name="btn_sub" value="Submit" />
  33. <input type="reset" id="btn_res" name="btn_res" value="Reset" />
  34. </form>
  35. </body>
  36. </html>
  37. </xsl:template>
  38. </xsl:stylesheet>

查看 XSL 文件

上面这个 XSL 文件会循环遍历 XML 文件中的元素,并为每个 XML "field" 元素创建一个输入域。field 元素的 id 属性的值被添加到每个 HTML 输入域的 id 和 name 属性。"value" 元素的值被添加到每个 HTML 输入域的 "value" 属性。结果是,可以得到一个包含 XML 文件中值的可编辑的 HTML 表单。

然后,我们还有第二个样式表:"tool_updated.xsl"。这个 XSL 文件会被用来显示已更新的 XML 数据。这个样式表不会输出可编辑 HTML 表单,而是一个静态的 HTML 表格:

</>code

  1. <?xml version="1.0" encoding="ISO-8859-1"?>
  2. <xsl:stylesheet version="1.0"
  3. xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
  4. <xsl:template match="/">
  5. <html>
  6. <body>
  7. <h2>Updated Tool Information:</h2>
  8. <table border="1">
  9. <xsl:for-each select="tool/field">
  10. <tr>
  11. <td><xsl:value-of select="@id" /></td>
  12. <td><xsl:value-of select="value" /></td>
  13. </tr>
  14. </xsl:for-each>
  15. </table>
  16. </body>
  17. </html>
  18. </xsl:template>
  19. </xsl:stylesheet>

查看 XSL 文件

ASP 文件

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

"edittool.asp" 页面包含两个函数:loadFile() 载入并转换 XML 文件,updateFile() 函数更新 XML 文件:

</>code

  1. <%
  2. function loadFile(xmlfile,xslfile)
  3. Dim xmlDoc,xslDoc
  4. '加载 XML 文件
  5. set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
  6. xmlDoc.async = false
  7. xmlDoc.load(xmlfile)
  8. '加载 XSL 文件
  9. set xslDoc = Server.CreateObject("Microsoft.XMLDOM")
  10. xslDoc.async = false
  11. xslDoc.load(xslfile)
  12. '转换文件
  13. Response.Write(xmlDoc.transformNode(xslDoc))
  14. end function
  15. function updateFile(xmlfile)
  16. Dim xmlDoc,rootEl,f
  17. Dim i
  18. '加载 XML 文件
  19. set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
  20. xmlDoc.async = false
  21. xmlDoc.load(xmlfile)
  22. '设置 rootEl 变量为根元素
  23. Set rootEl = xmlDoc.documentElement
  24. '循环遍历 form 集
  25. for i = 1 To Request.Form.Count
  26. '除去表单中的按钮元素
  27. if instr(1,Request.Form.Key(i),"btn_")=0 then
  28. 'selectSingleNode 方法可查询匹配某个查询的 XML 文件中的某个单一节点。
  29. '此查询会请求 value 元素,此 value 元素是 field 元素的子元素,
  30. '而此 field 元素拥有可匹配表单集中当前 key 值的 id 属性。
  31. '如果存在匹配,则设置 text 属性为表单集中当前域的值。
  32. set f = rootEl.selectSingleNode("field[@id='" & _
  33. Request.Form.Key(i) & "']/value")
  34. f.Text = Request.Form(i)
  35. end if
  36. next
  37. '保存已修改的 XML 文件
  38. xmlDoc.save xmlfile
  39. '释放所有的对象引用
  40. set xmlDoc=nothing
  41. set rootEl=nothing
  42. set f=nothing
  43. '通过一个样式表加载已修改的 XML 文件,这样客户端就可以看到所编辑的信息
  44. loadFile xmlfile,server.MapPath("tool_updated.xsl")
  45. end function
  46. '如果表单已被提交,则更新XML文件并显示结果,如果没有被提交,则转换此 XML 文件以供编辑
  47. if Request.Form("btn_sub")="" then
  48. loadFile server.MapPath("tool.xml"),server.MapPath("tool.xsl")
  49. else
  50. updateFile server.MapPath("tool.xml")
  51. end if
  52. %>

提示:假如您不了解如何编写 ASP,请学习我们的《ASP 教程》。

注释:我们正在转换并更新位于服务器上的 XML 文件。这是一个跨平台的解决方案。客户端仅能获得从服务器返回的 HTML - 而 HTML 可运行于任何浏览器。

如对本文有疑问,请提交到交流论坛,广大热心网友会为你解答!! 点击进入论坛

发表评论 (167人查看0条评论)
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
昵称:
最新评论
------分隔线----------------------------
XSLT 教程目录

快速入口

· 365软件
· 杰创官网
· 建站工具
· 网站大全

其它栏目

· 建站教程
· 365学习

业务咨询

· 技术支持
· 服务时间:9:00-18:00
365建站网二维码

Powered by 365建站网 RSS地图 HTML地图

copyright © 2013-2024 版权所有 鄂ICP备17013400号