首先，载入我们要进行编辑的xml文档，利用微软的文档对象模型（microsoft xmldom object）和xsl，xml文档就可以在服务器端转换成可以在客户端显示的html文件内容。下面先看看我们使用的xml和xsl文件是什么样子的。
xml文件：userdata.xml
| ＜?xml version="1.0" encoding="gb2312"?＞ ＜!-- edited with xmlspy v2004 rel. 4 u (http://www.xmlspy.com) by dicky (apples eden) --＞ ＜userinfo＞ ＜field id="name" taborder="1"＞ ＜fieldvalue＞dicky＜/fieldvalue＞ ＜/field＞ ＜field id="sex" taborder="2"＞ ＜fieldvalue＞male＜/fieldvalue＞ ＜/field＞ ＜field id="unitname" taborder="3"＞ ＜fieldvalue＞shanghai ateam company＜/fieldvalue＞ ＜/field＞ ＜field id="address" taborder="4"＞ ＜fieldvalue＞shanghai,zhongshan west road 1800#,room 26a＜/fieldvalue＞ ＜/field＞ ＜field id="tel" taborder="5"＞ ＜fieldvalue＞13800138000＜/fieldvalue＞ ＜/field＞ ＜field id="email" taborder="6"＞ ＜fieldvalue＞applebbs@gmail.com＜/fieldvalue＞ ＜/field＞ ＜/userinfo＞ |
xsl文件：userdata.xsl
| ＜?xml version="1.0" encoding="gb2312"?＞ ＜!-- edited with xmlspy v2004 rel. 4 u (http://www.xmlspy.com) by dicky (apples eden) --＞ ＜xsl:stylesheet xmlns:xsl="http://www.w3.org/tr/wd-xsl"＞ ＜xsl:template match="/"＞ ＜html＞ ＜meta http-equiv="content-type" content="text/html; charset=gb2312"/＞ ＜body＞ ＜form method="post" action="edituserdata.asp"＞ ＜h1＞edit userinfo：＜/h1＞ ＜table border="1" cellpadding="2"＞ ＜xsl:for-each select="userinfo/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="fieldvalue"/＞＜/xsl:attribute＞ ＜/input＞ ＜/td＞ ＜/tr＞ ＜/xsl:for-each＞ ＜/table＞ ＜br/＞ ＜input type="submit" id="btnsubmit" name="btnsubmit" value="edit"/＞ ＜/form＞ ＜/body＞ ＜/html＞ ＜/xsl:template＞ ＜/xsl:stylesheet＞ |
xsl文件使用了xsl：for-each元素的来遍历整个xml文件，xml文件里每个“field”元素的“id”属性和html表单的文本输入框的“id”和“name”相对应。这样，html表单的文本输入框就显示出了xml文件的元素值。此文件负责xml文档在服务器端的转换，以便能在各种浏览器上显示。
下面是关键的程序，它实现打开和更新xml文档的功能，并根据表单的提交与否，来决定是否进行更新。它包含了两个函数，loadxmlfile负责载入和转换要显示的xml文件；updatexml函数负责更新xml文件。
edituserdata.asp程序如下:
| ＜% ----------------------------------------------------------- 定义函数 loadxmlfile(),接收二个参数： strxmlfile - xml 文件的路径和文件名字 strxslfilee - xsl 文件的路径和文件名字 ----------------------------------------------------------- function loadxmlfile(strxmlfile, strxslfile) declare local variables dim objxml dim objxsl 实例化 xmldom 对象，以便载入 xml 文件。 set objxml = server.createobject("microsoft.xmldom") 关掉文件异步载入模式。 objxml.async = false 载入 xml 文件！ objxml.load(strxmlfile) 实例化 xmldom 对象，以便载入 xsl 文件。 set objxsl = server.createobject("microsoft.xmldom") 关掉文件异步载入模式。 objxsl.async = false 载入 xsl 文件！ objxsl.load(strxslfile) 利用 xmldom 的 transformnode 方法，把 xsl 样式表应用到 xml 文档，然后输出到客户端。 response.write(objxml.transformnode(objxsl)) end function ------------------------------------------------------------------ 函数 updatexml() 接收一个参数：strxmlfile - xml 文件的路径和文件名。 ------------------------------------------------------------------ function updatexml(strxmlfile) 声明局部变量。 dim objdom dim objroot dim objfield dim x 实例化 xmldom 对象。 set objdom = server.createobject("microsoft.xmldom") 关掉文件异步载入模式。 objdom.async = false 载入 xml 文件。 objdom.load strxmlfile 设定根元素。 set objroot = objdom.documentelement 遍历 form 集合，并把提交的数据写入 xml 文件。 for x = 1 to request.form.count 检查提交的数据是否包含按钮。如果是，忽略此数据。 if instr(1,request.form.key(x),"btn") = 0 then 按照 xsl 查询模式，建立 objfield 变量，把表单的元素对应到 xml 文档里的相应元素[field_value]。 set objfield = objroot.selectsinglenode("field[@id=" & request.form.key(x) & "]/fieldvalue") 把表单提交的数据和 xml 文档里的节点值对应起来。 objfield.text = request.form(x) end if next 保存编辑过的 xml 文件。 objdom.save strxmlfile 释放所有对对象的引用。 set objdom = nothing set objroot = nothing set objfield = nothing 调用 loadxmlfile 函数，把新编辑后的 xml 文件用 updateduserdata.xsl 样式单显示到客户端。 loadxmlfile strxmlfile,server.mappath("updateduserdata.xsl") end function 检查表单是否成功提交，如提交，更新 xml 文件；否则，转到编辑状态。 if request.form("btnsubmit") = "" then loadxmlfile server.mappath("userdata.xml"),server.mappath("userdata.xsl") else updatexml server.mappath("userdata.xml") end if %＞ |
当表单提交成功后，我们用updateduserdata.xsl来显示我们刚刚编辑的数据。
updateduserdata.xsl如下:
| ＜?xml version="1.0" encoding="gb2312"?＞ ＜!-- edited with xmlspy v2004 rel. 4 u (http://www.xmlspy.com) by dicky (apples eden) --＞ ＜xsl:stylesheet xmlns:xsl="http://www.w3.org/tr/wd-xsl"＞ ＜xsl:template match="/"＞ ＜html＞ ＜meta http-equiv="content-type" content="text/html; charset=gb2312"/＞ ＜body＞ ＜h1＞updated userinfo：＜/h1＞ ＜table border="1" cellpadding="2"＞ ＜xsl:for-each select="userinfo/field"＞ ＜tr＞ ＜td＞ ＜xsl:value-of select="@id"/＞ ＜/td＞ ＜td＞ ＜xsl:value-of select="fieldvalue"/＞ ＜/td＞ ＜/tr＞ ＜/xsl:for-each＞ ＜/table＞ ＜form＞ ＜input type="button" value="go back" onclick="history.go(-1)"/＞ ＜/form＞ ＜/body＞ ＜/html＞ ＜/xsl:template＞ ＜/xsl:stylesheet＞ |
以上只是xml跨平台应用的一个简单的例子，结合具体的需求，我们可以编写功能更强大的程序来完成我们更负杂的工作。所有程序在windows 2003 en+iis 6.0+ie6.0+msxml3.dll环境下调试通过。
文章整理：站长天空 网址：http://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
