asp ²Ù×÷xml

<% dim xml,root,allitem,nodecount
set xml=server.CreateObject("MicroSoft.XMLDom")
      xml.load(server.mappath("style.xml"))
       if   xml.parseError.errorCode   <>   0   then 
  Response.Write   "xml.parseError.errorCode   =   "   &xml.parseError.errorCode 
  Response.Write   "xml.parseError.reason   =   "   &xml.parseError.reason   
  Response.Write   "xml.parseError.line   =   "   &xml.parseError.line 
  Response.End   
  end   if  
     
'      '²éÕÒÒ»¸ö½Úµã¶ÔÏó
' Set   Root   =   xml.documentElement
' set   allitem=Root.selectNodes( "//style ")
'  nodeCount   =   allitem.length
'For   i=0   to   nodeCount-1
'     response.write  ( allitem(i).selectSingleNode( "S_ID ").text& " <br> ")
'next
'
'
'set objtofind=xml.documentElement.SelectSingleNode("//style/S_ID")
''È¡³öÕâ¸ö½Úµã¶ÔÏóµÄ ½ÚµãÃû£¬½ÚµãÖµ£¬Ä³¸öÊôÐÔÖµ£¬ºÍÈ«²¿µÄxml
'nodename=objtofind.nodename
'nodevalue=objtofind.text
'response.Write(nodename)
'response.Write(nodevalue)
'response.Write("<br>")
'È¡³öÒ»¸öÊôÐÔ½Úµã¶ÔÏó
set objattrtofind=xml.documentElement.SelectSingleNode("//style").GetAttributeNode("name")
'È¡³öÕâ¸ö½ÚµãµÄÊôÐÔÃû£¬ÊôÐÔÖµ
nodeattrname=objattrtofind.nodename
nodeattrvalue=objattrtofind.text   
response.Write(nodeattrname)
response.Write(nodeattrvalue)
dim objNodes
  Set objNodes = xml.selectSingleNode("//style[@name=