asp에서 xml 출력(Access DB이용)
출처 : xml 교재
<xmlTest.asp>
<%
'DB 연결 개체 생성
Set objDBConn = Server.CreateObject("ADODB.Connection")
objDBConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\inetpub\xmlboard.mdb"
objDBConn.Open
'MSXML 개체 생성
Dim objDoc,objDocElement
Set objDoc = CreateObject("microsoft.xmldom")
' Document Element 생성.
Set objDocElement = objDoc.createElement("board")
objDoc.appendChild(objDocElement)
' DB로 부터 레코드셋을 구성한다.
Set objRS=objDBConn.Execute ("select * from visit" )
objRS.MoveFirst
' 반복되는 레코스셋을 하나의 엘리먼트로 구성한다.
Do While Not objRS.EOF
Set objLineElement = objDoc.createElement("line")
objLineElement.setAttribute "no", objRS.Fields("id")
Set objMsg = objDoc.createElement("msg")
objMsg.text = objRS.Fields("name")
objMsg.setAttribute "name","name"
objMsg.setAttribute "caption","이름"
objLineElement.appendChild(objMsg)
Set objMsg = objDoc.createElement("msg")
objMsg.text = objRS.Fields("email")
objMsg.setAttribute "name","email"
objMsg.setAttribute "caption","E-Mail"
objLineElement.appendChild(objMsg)
Set objMsg = objDoc.createElement("msg")
objMsg.text = objRS.Fields("homepage")
objMsg.setAttribute "name","homepage"
objMsg.setAttribute "caption","홈페이지"
objLineElement.appendChild(objMsg)
Set objMsg = objDoc.createElement("msg")
objMsg.text = objRS.Fields("subject")
objMsg.setAttribute "name","subject"
objMsg.setAttribute "caption","제목"
objLineElement.appendChild(objMsg)
Set objMsg = objDoc.createElement("msg")
objMsg.text = objRS.Fields("email")
objMsg.setAttribute "name","content"
objMsg.setAttribute "caption","내용"
objLineElement.appendChild(objMsg)
objDocElement.appendChild(objLineElement)
objRS.MoveNext
Loop
' 웹브라우저로 구성한 XML데이터를 보낸다.
Response.ContentType = "text/xml"
Response.Write("<?xml version=""1.0"" encoding=""euc-kr""?>")
Response.Write(objDoc.xml)
%>
------------------------------------------------------------------------------------
MSXML 없이 XML 데이터 구성하기
<testXM2.asp>
<%
'DB 연결 개체 생성
Set objDBConn = Server.CreateObject("ADODB.Connection")
objDBConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\inetpub\xmlboard.mdb"
objDBConn.Open
' DB로 부터 레코드셋을 구성한다.
Set objRS=objDBConn.Execute ("select * from visit" )
objRS.MoveFirst
' 웹브라우저로 구성한 XML데이터를 보낸다.
Response.ContentType = "text/xml"
%>
<?xml version="1.0" encoding="euc-kr"?>
<board>
<%
' 반복되는 레코스셋을 하나의 엘리먼트로 구성한다.
Do While Not objRS.EOF
%>
<line no="<% = objRS.Fields("id") %>">
<msg name="name" caption="이름"><% = objRS.Fields("name") %></msg>
<msg name="email" caption="E-Mail"><% = objRS.Fields("email") %></msg>
<msg name="homepage" caption="홈페이지"><% = objRS.Fields("homepage") %></msg>
<msg name="subject" caption="제목"><% = objRS.Fields("subject") %></msg>
<msg name="content" caption="내용"><% = objRS.Fields("content") %></msg>
</line>
<%
objRS.MoveNext
Loop
%>
</board>
