如何使用经典ASP读取XML根节点中的属性？

<%
  Dim objXML, objProperty, strPropertyName, strPropertyValue
  Set objXML = CreateObject("MSXML2.XMLHTTP")
  objXML.Open "GET", "http://example.com/xml", False
  objXML.Send
  Set objXML = Nothing

  '读取根节点属性
  Set objProperty = CreateObject("MSXML2.XMLHTTP")
  objProperty.Open "GET", objXML.ResponseBody, False
  objProperty.Send
  strPropertyName = objProperty.ResponseBody
  Set objProperty = Nothing

  '读取属性值
  Set objProperty = CreateObject("MSXML2.XMLHTTP")
  objProperty.Open "GET", strPropertyName, False
  objProperty.Send
  strPropertyValue = objProperty.ResponseBody
  Set objProperty = Nothing

  '输出属性值
  Response.Write strPropertyValue
%>