当前位置：主页 > 查看内容

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

发布时间：2021-04-08 00:00| 有 位朋友查看

简介：%@ 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" '……

<%@ 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]


本文转载自网络，原文链接：https://m.jb51.net/article/4797.htm
本站部分内容转载于网络，版权归原作者所有，转载之目的在于传播更多优秀技术内容，如有侵权请联系QQ/微信：153890879删除，谢谢！
上一篇：如何把URL和邮件地址转换为超级链接？ 下一篇：可以让程序告诉我详细的页面错误和数据库连接错误吗？

推荐图文

  • 周排行
  • 月排行
  • 总排行

随机推荐