ACTIVE SERVER PAGE

<%@ codepage="949" language="VBScript"%>
 <% Response.ChaRset="euc-kr" %>
 
 <%
   items = Request("items")
   br = ""
   Response.Write(items)
   Dim xmlDOM, myRec
   Set xmlDOM = Server.CreateObject("Microsoft.XMLDOM")
   xmlDOM.async = false
   path = "test.xml"
   xmlDOM.Load Server.MapPath(path)
   Set objRoot = xmlDOM.documentElement
  
  xmlStep = objRoot.getElementsByTagName("n170T14000J")(0).childNodes(2).text
   totalPage = objRoot.getElementsByTagName(items)(0).childNodes(3).text
   splitStepNumbers = Split( xmlStep, ",")
  
  Response.Write(br)
   Response.Write(xmlStep)
   Response.Write(br)
   Response.Write(totalPage)
   Response.Write(br)
  
   if splitStepNumbers(0) <> 0 then
    '0 = step가 있을때 처리
   for x=0 To ubound( splitStepNumbers,1) '배열의 길이 만큼
   Response.Write(br)
     Response.Write(splitStepNumbers(x))
    next
   else
    '0 = step가 없을때 처리
  end if
   Set objRoot = Nothing
   Set xmlDOM = Nothing
  %>


 


 
   
    yes
    4
    4,1,2,3
    9