当前位置: 首页 > 图文教程 > 网络编程 > 编程10000问 > 如何把Recordset转换成彩色的XML文件

编程10000问
如何让用户再次访问我的网站时不需再提交相关信息?
如何用Cookie进行登录验证?
如何决定是否将登录内容保存到Cookie里?
如何在ASP中恰当地运用Cookies?
如何在Flash中处理Cookies?
怎样使用Cookie跟踪来访者?
可以在线创建文件夹吗?
如何一行行地读取文件?
如何读取文本文件的内容?
如何显示一个文本文件?
如何做一个文本书写器?
如何创建Word文件?
如何遍历目录及目录下的文件?
如何用表单在线建立目录?
如何创建一个PDF文件?
如何通过表单创建一个Word?
如何对文件进行操作?
如何对一个文件夹进行创建和删除?
如何获取文件的名称和扩展名?
如何获知并显示文件的大小?

编程10000问 中的 如何把Recordset转换成彩色的XML文件


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2010-01-10   浏览: 47 ::
收藏到网摘: n/a

<%@ codepage="65001" %>

<!-- #INCLUDE FILE="ADOVBS.INC" -->

<%

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 "<?xml version='1.0' encoding='ISO-8859-1'?>" & vbCRLF

' 发送给Response对象.

RS.Save Response, adPersistXML

%>

[1]