2013년 8월 13일 화요일

ASP에서DOM을 이용한 XML 문서 다루기(2)

-------------
asptest2.xml
-------------
<?xml version="1.0" encoding="euc-kr"?>
<도서>
<신청내역 number="1">
<신청인>홍길동</신청인>
<제목>OracleJava</제목>
<수량>2</수량>
<금액>14,000원</금액>
</신청내역>
<신청내역 number="2">
<신청인>이종철</신청인>
<제목>XML 5일완성</제목>
<수량>3</수량>
<금액>19,000원</금액>
</신청내역>
<신청내역 number="3">
<신청인>tatata</신청인>
<제목>Oracle 5일완성</제목>
<수량>4</수량>
<금액>49,000원</금액>
</신청내역>
</도서>


--------------
asptest2.asp
--------------
<%@ language=VBScript %>
<%
dim myDomObj, myRec, aHTML, bHTML, cHTML,  i
'XML DOM 객체를 생성
set myDomObj = Server.CreateObject("Microsoft.XMLDOM")
myDomObj.async=false

'DOM 객체에 asptest2.xml 파일을 로딩한다.
myDomObj.load Server.MapPath("asptest2.xml")

'현재노드의 위치를 루트엘리먼트에 위치시킴
set myRec = myDomObj.documentElement
%>

<html>
<meta-equiv="Content-Type" content="text/html; charset=euc-kr" />
<head><title>asptest2.asp</title></head>
<body>
<table border="1" cellspacing="1" cellpadding="1">
<tr>
<td bgcolor="pink" align="center" width="100" height="23"><b>
<font size="2" color="#666666">번호예제1</font></b></td>
<td bgcolor="pink" align="center" width="100" height="23"><b>
<font size="2" color="#666666">번호예제2</font></b></td>
<td bgcolor="pink" align="center" width="100" height="23"><b>
  <font size="2" color="#666666">내  용</font></b></td>
              </tr>
<%
'---------------------------------- Start for
for i=0 to myRec.childNodes.Length - 1
aHTML = myRec.childNodes(i).getAttribute("number")
bHTML = myRec.childNodes(i).Attributes(0).text
cHTML = myRec.childNodes(i).text
%>               
                                          <tr>
<td bgcolor="B8D7FC" align="center" width="100" height="23"><b>
<font size="2" color="#666666"><%=aHTML%></font></b></td>
<td bgcolor="B8D7FC" align="center" width="100" height="23"><b>
<font size="2" color="#666666"><%=bHTML%></font></b></td>
<td bgcolor="B8D7FC" align="center" width="300" height="23"><b>
<font size="2" color="#666666"><%=cHTML%></font></b></td>
</tr>
<%
next
'---------------------------------- End for
%>
</table></body></html>
<%  set myDomObj = nothing    %>

댓글 없음:

댓글 쓰기