レコードセットから色付きXMLファイルへの変換方法

<%@ 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です。

セット RS = Server.CreateObject( "ADODB.Recordset" )

' <スパン 作成・公開 レコードセット

RS.ActiveConnection = Con

RS.CursorType = adOpenStatic

RS.Open "select * from titles"

Response.Write "<?xml version='1.0' encoding='ISO-8859-1'? >" & vbCRLF

' <スパン 送信先 <スパン 応答 オブジェクト .

RS.レスポンス保存、adPersistXML

%>

[1]