<[email protected]="65001"%>
<!--#INCLUDEFILE="ADOVBS.INC"-->
<%
Response.ContentType="text/xml"
'如果不在adovbs.inc里,则设置一个常量.
SetCon=Server.CreateObject("ADODB.Connection")
Con.Open"Provider=sqloledb;UID=sa;DATABASE=Pubs"
'建立数据库连接,如到SQL.
SetRS=Server.CreateObject("ADODB.Recordset")
'建立并打开Recordset.
RS.ActiveConnection=Con
RS.CursorType=adOpenStatic
RS.Open"select*fromtitles"
Response.Write"<?xmlversion='1.0'encoding='ISO-8859-1'?>"&vbCRLF
'发送给Response对象.
RS.SaveResponse,adPersistXML
%>
|