A HA! 心情雜物間

test.xml

<?xml version="1.0" encoding="big5"?>
<Persons>
  <Person name="sale">
    <Name>張三</Name>
    <Mobile>123XXXXXXXX</Mobile>
    <Name>李四</Name>
    <Mobile>456XXXXXXXX</Mobile>
  </Person>
  <Person name="mart">
    <Name>王五</Name>
    <Mobile>789XXXXXXXX</Mobile>
  </Person>
</Persons>

text.asp

<%
   Dim oXML, oXMLError, ReturnValue, x
  
   ' Initial component
   Set oXML = Server.CreateObject("MSXML2.DOMDocument")
  
   ' Set properties
   oXML.async = false
   oxml.setProperty "ServerHTTPRequest", true
  
   ' Load XML
   ReturnValue = oXML.Load("test.xml")
  
   ' Get data
   Set objNode = oXML.getElementsByTagName("Name")
   For x = objNode.length-1 To 0 Step-1
     Response.Write objNode.item(x).Text&"<br/>"
   Next
  
   Set oXML = Nothing
%>

text.asp

<%
   Dim oXML, oXMLError, ReturnValue, x
  
   ' Initial component
   Set oXML = Server.CreateObject("MSXML2.DOMDocument")
  
   ' Set properties
   oXML.async = false
   oxml.setProperty "ServerHTTPRequest", true
  
   ' Load XML
   ReturnValue = oXML.Load("test.xml")
  
   ' Get data
   Set objNode = oXML.selectNodes("/Persons/Person[@name='sale']/Name")
   For each x in objNode
     Response.Write x.Text&"<br/>"
   Next
  
   Set oXML = Nothing
%>