南强小屋 Design By 杰米
<%@ 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]
南强小屋 Design By 杰米
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
南强小屋 Design By 杰米
暂无如何把Recordset转换成彩色的XML文件的评论...