如何把Recordset转换成彩色的XML文件

ASP 代码示例：使用 Recordset 对象输出 XML 数据

这段代码展示了一个经典的 ASP 技术方案——如何将数据库查询结果直接以 XML 格式输出到客户端。本质上，它利用 ADO 的 Recordset 对象的 Sa ve 方法，配合 Response 对象，实现数据流的即时转换。

先看代码本体：

<%@ codepage="65001" %>

<%
Response.ContentType = "text/xml"
' 如果不在 adovbs.inc 里，则设置一个常量.

Set Con = Server.CreateObject( "ADODB.Connection" )
Con.Open "Provider=sqloledb;UID=sa;DATABASE=Pubs"
' 建立数据库连接,如到SQL.

Set RS = Server.CreateObject( "ADODB.Recordset" )
' 建立并打开 Recordset.
RS.ActiveConnection = Con
RS.CursorType = adOpenStatic
RS.Open "select * from titles"

Response.Write "" & vbCRLF
' 发送给 Response 对象.
RS.Sa ve Response, adPersistXML
%>

这个实现有几个关键点值得注意。

首先是 Response.ContentType = "text/xml" 这一行。它告诉浏览器后续内容将以 XML 格式解析，而不是默认的 HTML。如果漏掉这句，浏览器可能会把 XML 当作普通文本显示，导致格式混乱。

接着是数据库连接部分。这里使用了 SQLOLEDB 提供程序连接 SQL Server 的 Pubs 示例数据库，用户名为 sa。在实际生产环境中，这种硬编码的凭据需要替换为更安全的连接方式，比如使用 Windows 集成身份验证或加密连接字符串。

Recordset 的配置也很关键。这里设置了 adOpenStatic 游标类型，意味着数据是静态快照，适合只读的 XML 导出场景。如果需要实时更新或双向同步，就需要选择其他游标类型，比如 adOpenKeyset 或 adOpenDynamic。

最后，RS.Sa ve Response, adPersistXML 是核心操作。它将 Recordset 的当前内容序列化为 XML 格式，并直接写入 Response 对象。整个过程不需要手动循环遍历记录集，效率很高。但要注意，这个 XML 格式是 ADO 特定的持久化格式，包含完整的元数据（如字段名、数据类型），而不是简单的数据行。

整体来看，这个代码片段非常适合用于异构系统间的数据交换，或者作为 AJAX 请求的轻量级数据源。当然，在现代 Web 开发中，JSON 格式更为主流，但 XML 在特定场景下（比如需要严格模式验证或与旧系统集成时）仍有其不可替代的价值。

[1]