首先，载入我们要进行编辑的xml文档，利用微软的文档对象模型（microsoft xmldom object）和xsl，xml文档就可以在服务器端转换成可以在客户端显示的html文件内容。下面先看看我们使用的xml和xsl文件是什么样子的。
xml文件：userdata.xml
<?xml version="1.0" encoding="gb2312"?>
<用户资料>
<field id="姓名" taborder="1">
<field_value>孟子</field_value>
</field>
<field id="性别" taborder="2">
<field_value>男</field_value>
</field>
<field id="单位名称" taborder="3">
<field_value>中国网络技术发展公司北京分公司</field_value>
</field>
<field id="详细地址" taborder="4">
<field_value>北京市嘉里中心102层</field_value>
</field>
<field id="电话" taborder="5">
<field_value>1391139136*</field_value>
</field>
<field id="电子邮件" taborder="6">
<field_value>amxh@21cn.com</field_value>
</field>
</用户资料>
www.csdn.com.cn
xsl文件：userdata.xsl
<?xml version="1.0" encoding="gb2312" ?>
<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>用户资料编辑：</h1>
<table border="1" cellpadding="2">
<xsl:for-each select="用户资料/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="field_value" /> </xsl:attribute></input>
</td>
</tr>
</xsl:for-each>
</table>
<br />
<input type="submit" id="btnsubmit" name="btnsubmit" value="完成编辑" />
</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 文件的路径和文件名字
www.csdn.com.cn
-----------------------------------------------------------
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) & "]/field_value")
把表单提交的数据和 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" ?>
<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>更新后的用户资料如下：</h1>
<table border="1" cellpadding="2">
<xsl:for-each select="用户资料/field">
<tr>
<td>
<xsl:value-of select="@id" />
</td>
<td>
<xsl:value-of select="field_value" />
</td>
</tr>
</xsl:for-each>
</table>
<form>
<input type="button" value="返回" onclick="history.go(-1)" />
</form>
</body>
</html>
</xsl:template>
</xsl:stylesheet>
以上只是xml跨平台应用的一个简单的例子，结合具体的需求，我们可以编写功能更强大的程序来完成我们更负杂的工作。所有程序在win98se+pws+ie5.5+netscape 4.75+netscape 6+msxml3.dll环境下调试通过。
文章整理：站长天空 网址：http://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
