如何把Recordset轉(zhuǎn)換成彩色的XML文件
<%@ codepage="65001" %>
<!-- #INCLUDE FILE="ADOVBS.INC" -->
<%
Response.ContentType = "text/xml"
' 如果不在 adovbs.inc 里,則設(shè)置一個(gè)常量.
Set Con = Server.CreateObject( "ADODB.Connection" )
Con.Open "Provider=sqloledb;UID=sa;DATABASE=Pubs"
' 建立數(shù)據(jù)庫連接,如到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
' 發(fā)送給Response對(duì)象.
RS.Save Response, adPersistXML
%>
[1]
相關(guān)文章
如何動(dòng)態(tài)添加Form項(xiàng)?
如何動(dòng)態(tài)添加Form項(xiàng)?...2006-11-11問題解析:為什么數(shù)組下標(biāo)從0?開始而不是?1??
這篇文章主要為大家介紹了為什么數(shù)組下標(biāo)是從0?開始而不是?1?呢的問題解析,有需要的朋友可以借鑒參考下,希望能夠有所幫助,祝大家多多進(jìn)步,早日升職加薪2023-04-04