首先，载入我们要进行编辑的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"> &n> 
<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环境下调试通过。
bsp; <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> 
