<!--#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

%>