学步园

set xmlDoc = server.CreateObject("MSXML2.DOMDocument")
xmlDoc.loadXML("<?xml version='1.0'?><root><person name='张三'><address>深州</address><age>26</age></person><person name='李四'><address>衡水</address><age>25</age></person></root>")
set root = xmlDoc.documentElement
set oNodeList = root.childNodes
for each item in oNodeList
  response.Write item.getattribute("name")
  response.Write vbcrlf
  'response.Write item.xml
  set childs = item.childNodes
  for each subitem in childs
    response.Write subitem.baseName
    response.Write "="
    response.Write subitem.text
    response.Write vbcrlf
  next
next