<%@ 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]
发表评论