< 文字列を折り返す・・・とか | 小さいアイコンのサイズ >

December 25, 2003

レコードセット→XML→HTMLなレシピ

時間なし。ソースのみ。

<%
Dim strSQL
Dim strCon
Dim adoRec
Dim xmlDocXml
Dim xmlDocXsl

	'接続文字列
	strCon	= "Provider=SQLOLEDB;"
	strCon	= strCon & "Data Source=(local);"
	strCon	= strCon & "User ID=sa;"
	strCon	= strCon & "Password=pass;"
	strCon	= strCon & "Initial Catalog=Master;"
	
	'SQLを実行
	strSQL	= "SELECT * FROM MYTABLE"
	Set adoRec		= Server.CreateObject("ADODB.Recordset")
	adoRec.CursorLocation	= adUseClient
	Call adoRec.Open(strSQL, strCon, adOpenForwardOnly, adLockReadOnly, adCmdText)
	Set adoRec.ActiveConnection	= Nothing
	
	'xml作成
	Set xmlDocXml		= Server.CreateObject("MSXML2.DOMDocument")
	xmlDocXml.async		= False
	Call adoRec.Save(xmlDocXml, adPersistXML)
	Call adoRec.Close()
	
	'xsl読み込み
	Set xmlDocXsl	= Server.CreateObject("MSXML2.DOMDocument")
	xmlDocXsl.async	= False
	Call xmlDocXsl.load("template.xsl")

	'出力する
	Call Response.Write(xmlDocXml.transformNode(xmlDocXsl))
%>

トラックバック

このエントリーにトラックバック:
http://frog.raindrop.jp/cgi-bin/mt/mt-tb.cgi/151

コメント

コメントする

※ コメントスパム対策のため、コメント本文はおはよう、こんにちわ、こんばんわのいずれかより始めるようにしてください。

name:
email:

※ 必要ですが、表示しません。

url:
情報を保存する ?