asp读取XML文件

<%'Set http=Server.CreateObject("Microsoft.XMLHTTP") http.Open "GET","http://127.0.0.1/1.xml",False http.sendDim xmlSet xml = Server.CreateObject("Microsoft.XMLDOM")xml.async = False'xml.load (Server.MapPath("1.xml"))　'如果不是远程文件直接这一步xml.Load(http.ResponseXML)Dim title, heading, paragraph, iititle = xml.documentElement.childNodes(0).text　heading = xml.documentElement.childNodes(1).textparagraph = xml.documentElement.childNodes(1).childNodes(1).childNodes(0).textii = xml.documentElement.childNodes(1).childNodes.lengthdim ifor i=0 to ii-1response.Write(i)response.Write(xml.documentElement.childNodes(1).childNodes(i).childNodes(1).text)response.Write("<br />")nextSet xml = Nothing%>