XML File Load

Class XMLDOMClass
   Private m_DOM ' XMLDOM 객체

   ' ---------------------- 생성자 -----------------------
   Private Sub Class_Initialize()
      Set m_DOM = Server.CreateObject("Microsoft.XMLDOM")
   End Sub
 
   ' ---------------------- 소멸자 -----------------------
   Private Sub Class_Terminate()
      Set m_DOM = Nothing
   End Sub

   ' ------------------- Property Get --------------------
   Public Property Get TagText(tagName, index)
      Dim Nodes
      Set Nodes = m_DOM.getElementsByTagName(tagName)
      TagText = Nodes(index).Text
      Set Nodes = Nothing
   End Property
 
   Public Property Get Nodes(tagName)
      Set Nodes = m_DOM.getElementsByTagName(tagName)
   End Property
 
   ' ------------------- 원격 XML 읽기 --------------------
   Public Function LoadHTTP(url)
      with m_DOM
         .async = False ' 동기식 호출
         .setProperty "ServerHTTPRequest", True ' HTTP로 XML 데이터 가져옴
   
         LoadHTTP = .Load(url)
      end with  
   End Function

   ' ------------------- XML 파일 읽기 --------------------
   Public Function Load(file)
      with m_DOM
         .async = False ' 동기식 호출
   
         Load = .Load( Server.MapPath(file) )
      end with
   End Function
End Class

'-----------------------------------------------------------------------------------
' 테스트
'-----------------------------------------------------------------------------------

dim oDOM, url
' XML 데이터 주소
url = "http://n4.ogage.co.kr/test/note.xml"

Set oDOM = new XMLDOMClass

with oDOM
   if .LoadHTTP(url) Then
  'Response.Write "a1 : " & .TagText("a1", 0) & "
"
  Response.Write "note(0) : " & .TagText("note", 0) & "
"
  Response.Write "note(1) : " & .TagText("note", 1) & "
"
  Response.Write "Nodes : " & .Nodes("a1")(1).Text & "
"
   End if
end with

Set oDOM = Nothing
%>

 

 

---------------------------------------------------------------------------------------------

/test/note.xml

---------------------------------------------------------------------------------------------

 
  11 
  22 
  33 
  44 
 
 
  55 
  66 
  77 
  88