基本上，维护XML文档的技术有三种，第一种是使用DOM(Document Object Modal)接口，第二种是通过SAX(Simple API for XML),第三种是采用传统的字符串维护(NC:一直用第三种方式)。

所谓DOM就是把整个XML文档加载到一个树状结构的节点中，然后再通过维护树状结构的方式来改变XML文档，使用DOM时，整个XML文档必须先加载到内存中。

实际上，很多家公司都实现了DOM，包括IBM,Apache，Microsoft等，而Microsoft公司是把DOM的实现放在MSXML SDK内，而MS IE 也使用DOM 。下面我们就使用MSXML对象实现从ADO RecordSet 到XML文档的转化。

1．  取得ADO数据记录集：

<!--#include file ="conn.asp"-->

<%

    Dim strsql

    Dim objRecordset

   Dim fileObj

    strsql=" select  id,class_id,date, curriculum_name  from kecheng "                 

    set objRecordset=conn.execute (strsql)                 

 %>

2．  创建XMLDOM对象

<%

Set objXMLDOM = Server.CreateObject("MSXML2.DOMDocument.3.0")

    ''''''''创建根节点<xml>

    Set objRootNode = objXMLDOM.createElement("xml")

    objXMLDOM.documentElement = objRootNode

    ‘用createProcessingInstruction方法处理指令

objXMLDOM.appendChild(objXML.createProcessingInstruction("xml","version=""1.0"""))

%>

<%

objXMLDOM.save(server.MapPath("kecheng.xml"))

(NC:这种写入是否需要IIS中的写权限?如果需要,是否影响安全性?)

%>

5．  释放资源

<%

Set objNode = Nothing

Set objRowNode = Nothing

Set objRootNode = Nothing

Set objRecordset = Nothing

%>

您肯定发现了，第3步写得好罗嗦啊，完全可以用RecordSet得Fields属性，循环取出所有的字段，如下所示：

<%

Do While NOT objRecordset.EOF

        ''''''''创建子元素 row

        Set objRowNode = objXMLDOM.createElement("row")

        For Each varItem In objRecordset.Fields

           Set objNode = objXMLDOM.createElement(varItem.name)

           objNode.text =varItem.value

           objRowNode.appendChild(objNode)

        Next

   ''''''''    row 作为xml的子节点添加

        objRootNode.appendChild(objRowNode)

        objRecordset.MoveNext

Loop

%>

这样写即简洁又通用，实际上写程序的过程就是不断精益求精的过程啊。 (NC:赞,单纯的程序员应该是一个有洁癖的完美主义者)

方案二（NC：也是我以前用的方法）

实际上ADO的RecordSet对象中有一个Save方法，可以直接把数据保存为XML格式。下面我们看看是如何使用的：

1．  同方案一中第一步取得ADO数据记录集。

2．  创建DOMDocument对象，并调用RecordSet的Save方法，把数据保存到DOMDocument中去。

Save方法在ADODB 的RecordSet 的对象中是这样声明的：

Sub Save([FileName As String], _         [PersistFormat As PersistFormatEnum = adPersistADTG])

Save 方法的两个参数都是可选的，但若是第一次调用，必须指定文件名Filename。

Save 不关闭 Recordset 或 FileName，从而可以继续使用 Recordset 并保存最新的更改。在 Recordset 关闭之前 FileName将保持打开，在这段时间其它应用程序可以读取但不能写入 FileName。

PersistFormatEnum 值，指定保存 Recordset 所使用的格式。可以是如下的某个常量

以上是MSDN中对该方法的描述，据此，可以利用Save把RecordSet保存为XML文件：

objRecordset.save server.MapPath("ceshi.xml"), adPersistXML

需要注意的是，Filename并不一定是磁盘文件,也可以是内存流对象，比如DOMDocument。

下面把第二步中的代码列于此：

<%

Const adPersistXML = 1

Dim objXMLDOM

Set objXMLDOM = Server.CreateObject("MSXML2.DOMDocument.3.0")

objRecordset.save objXMLDOM, adPersistXML

%>

这样，数据记录就保存到了objXMLDOM对象中了，为什么不直接保存成XML文件呢？这是因为通过该方法保存成的XML文件附加了一些我们目标中不需要的信息：


图片一

这些信息是XML文档的架构（Schema）信息。它包含了RecordSet中记录的描述，其中<s:Schema> 定义了各字段的名称，类型及其它一些属性； <rs:data> 是RecordSet中的所有数据记录<z:row>则具体到每一条记录的信息。我们的任务下一步就是利用XSLT把该文档转化为目标中XML文档的格式。

3．  利用XSLT对XML文档进行转换。（NC：3、4步是以前没有想到也不会的，不过有必要比较一下与方案二的效率差异。之所以强调效率，因为这种利用xml作为中间数据层的方法一旦在站点内广为使用，就会代替原数据库成为耗用资源的主力）
那么什么是XSLT呢？它是Extensible Stylesheet Language Transformations的缩写，是一种专为XML设计的样式表语言，负责将XML源代码转化为另一种格式。XSLT转换必须由特定的软件来担任，这样的软件称为XSL处理器。XSL处理器在工作之前，得先借助XML解析器替它把XSLT样式表和待转换的XML文档中的节点和属性分离出来，分离的结果我们程之为源树，指的是转换前的XML结构。然后，XSL处理器根据XSL中的命令对XML文档的源树进行操作，得到转换的成品，我们称之为结果树。下图就是利用XSLT对XML进行转换的原理图。

图片二