当然你可以自己把Recordset编码为XML，不过挺麻烦的，效率也不高。这里介绍一种新的方法：
VB Code:
Dim objConn As New ADODB.Connection
Dim objRS As New ADODB.Recordset
Dim objStream As New ADODB.Stream 

objConn.Open "Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=sa;Initial Catalog=pubs;Data Source=(local)"
objRS.Open "select * from [Employee]", objConn, adOpenForwardOnly, adLockReadOnly, adCmdText
objRS.Save objStream, adPersistXML
objRS.Close
objConn.Close
Set objRS = Nothing
Set objConn = Nothing
objStream.Position = 0
Debug.Print objStream.ReadText
objStream.Close
Set objStream = Nothing
-------------------
ASP Code:
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")
objConn.Open "Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=sa;Initial Catalog=pubs;Data Source=(local)"
objRS.Open "select * from [Employee]", objConn, adOpenForwardOnly, adLockReadOnly, adCmdText
objRS.Save Response, adPersistXML
objRS.Close
objConn.Close
Set objRS = Nothing
Set objConn = Nothing

感谢原创者的辛勤劳动，希望对您有所帮助，转载请注明原出处。

您可能对 [XML] 的这些文章也感兴趣： XML技术系列讲座（3）XML的显示——XSL样式单(上) XML轻松学习手册（5）XML实例解析 用XML和JSP来创建动态站点 ASP.NET创建Web服务之发布和部署 亲密接触XML(5)---XML元素 使用XML+XSLT实现业务表单 决双下拉选单的连动问题 XSL基础教程第五章 XML技术上传文件 基于ASP.NET与XML的网络硬盘开发