asp에서 xml을 읽어와서 값 얻어내기

출처 : http://blog.naver.com/loy2507?Redirect=Log&logNo=23862863

  // test.xml

 < ?xml version="1.0" encoding="euc-kr" ?>
 < value>
   < table>
     < Item0>055048048048048053049</Item0>
     < Item1>050048048054045048051045050052</Item1>
     < Item2>048054048051050052053049048048050</Item2>
     < Item3>049048048048</Item3>
     < Item4>-16132-19534056054-17433054048051048</Item4>
     < Item5>051054051049049048048054</Item5>
     < Item6>-17728-17430-19469-14343</Item6>
     < Item7>049050</Item7>
     < Item8>-19236-16217-19469-14343</Item8>
     < Item9>054048051048054053053049048048054051053055</Item9>
     < Item10 />
   < /table>
 < /value>

 

 

  // test.asp

 < %
   Set xmlPars = Server.CreateObject("microsoft.XMLDOM")
   xmlPars.Load("C:\Temp\test.xml")

   if xmlPars.ParseError.errorCode <> 0 then
     Response.write "에러발생"
     Response.end
   else
     Set root = xmlPars.DocumentElement
   
     var_Item0 = root.lastChild.childNodes(0).text
     var_Item1 = root.lastChild.childNodes(1).text
     var_Item2 = root.lastChild.childNodes(2).text
     var_Item3 = root.lastChild.childNodes(3).text
     var_Item4 = root.lastChild.childNodes(4).text
     var_Item5 = root.lastChild.childNodes(5).text
     var_Item6 = root.lastChild.childNodes(6).text
     var_Item7 = root.lastChild.childNodes(7).text
     var_Item8 = root.lastChild.childNodes(8).text
     var_Item9 = root.lastChild.childNodes(9).text
     var_Item10 = root.lastChild.childNodes(10).text
   
     response.write "Item0 : "& var_Item0 &"<br>"
     response.write "Item1 : "& var_Item1 &"<br>"
     response.write "Item2 : "& var_Item2 &"<br>"
     response.write "Item3 : "& var_Item3 &"<br>"
     response.write "Item4 : "& var_Item4 &"<br>"
     response.write "Item5 : "& var_Item5 &"<br>"
     response.write "Item6 : "& var_Item6 &"<br>"
     response.write "Item7 : "& var_Item7 &"<br>"
     response.write "Item8 : "& var_Item8 &"<br>"
     response.write "Item9 : "& var_Item9 &"<br>"
     response.write "Item10 : "& var_Item10 &"<br>"

     Set root = nothing
   end if
 
   Set xmlPars = nothing
 %>

 

 

아래와 같이 xml의 depth가 깊어지면 즉,

< value>

  < table>

    < rows1>

      < Item0>....

 

root.lastChild.lastChild.childNodes(0).text 와 같이 lastChild를 한번 더 넣으면 됩니다.

 

이론적인 배경이 확실치 않아서 답답하긴 하지만 위와 같이 하면 되더이다... ㅡㅡ;