|
<%
Dim objXML, title, content
'// XML DOM 객체를 생성합니다.
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.async = False '//비동기 모드를 false 로 바꿔서 동기식 호출이 되게 합니다.
'// DOM 객체에 test.xml 파일을 로드합니다.
objXML.load (Server.MapPath("test.xml"))
If objXML.parseError.errorCode <> 0 Then
Response.Write "XML 페이지 로딩중 에러가 발생했습니다."
Response.End
End If
title = objXML.documentElement.childNodes(0).text
writer = objXML.documentElement.childNodes(1).text
content = objXML.documentElement.childNodes(2).text
Set objXML = Nothing '//생성된 객체를 해제합니다.
%>
<html>
<head>
<title>www.webmadang.net</title>
<meta http-equiv="Content-Type" content="text/html; charset=euc-kr">
</head>
<body>
<table width="450" cellspacing="0" cellpadding="0" border="1" bordercolor="#555555" style="border-collapse: collapse">
<tr>
<td width="105" bgcolor="#CCCCCC"> 제목</td>
<td width="339"> <%=title%></td>
</tr>
<tr>
<td bgcolor="#CCCCCC"> 작성자</td>
<td> <%=writer%></td>
</tr>
<tr bgcolor="#CCCCCC">
<td colspan="2" align="center">내용</td>
</tr>
<tr>
<td colspan="2"> <%=content%></td>
</tr>
</table>
</body>
</html> | 
오렌지
웹마당넷
