如何用asp读取xml

readxml.asp

<%Response.Charset="gb2312"%>
<%
    Dim node,i,nodeCount
    Set doc = Server.CreateObject("Microsoft.XMLDOM")
    doc.async = false
    doc.load(Server.MapPath("bloginfo.xml"))
    Set root = doc.documentElement
    Set nodeLis = root.childNodes
    nodeCount = nodeLis.length
    For i = 1 to nodeCount
        Set node = nodeLis.NextNode()
        Set cost = node.attributes.getNamedItem("cost")
        Response.Write("第 "&i&" 条记录：")
        Response.Write("<table border='1'><tr>")
        Response.Write("<td  width='16'  rowspan='2'><img  src='"&node.selectSingleNode

("img").text&"'/></td>")
        Response.Write("<td width='17'>书名</td><td width='48'>出版社</td><td width='32'>价

格</td>")
        Response.Write("</tr><tr><td>")
        Response.Write(node.selectSingleNode("name").text)
        Response.Write("</td><td>")
        Response.Write(node.selectSingleNode("publisher").text)
        Response.Write("</td><td>")
        Response.Write(cost.text)
        Response.Write("</td></tr></table>")
    Next
%>

bloginfo.xml:

<?xml  version="1.0"  encoding="gb2312"?>
<data>
    <book  cost="56">
        <name>Dreamweaver</name>
        <publisher>上海科技出版社</publisher>
        <img>images/new.gif</img>
    </book>
    <book  cost="62">
        <name>Flash</name>
        <publisher>铁道出版社</publisher>
        <img>images/new.gif</img>
    </book>
    <book  cost="48">
        <name>Firweorks</name>
        <publisher>教育出版社</publisher>
        <img>images/new.gif</img>
    </book>
</data>