ASP读取XML

通常是利用数据库来保存数据,但也可以使用xml文件来保存数据。假设xml文件的内容是:
test.xml



    
      0
      新浪
      http://www.sina.com.cn
      
    

    
      1
      google
      http://www.google.cn
      
    

  



用来显示xml中的内容的asp文件
index.asp

<%
strSourceFile = Server.MapPath("./") & "\test.xml"
'获取XML文件的路径这里根据你的虚拟目录不同而不同
Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
'以自由线程创建一个XML对像
objXML.load(strSourceFile)'把XML文件读入内存
Set objRootsite = objXML.documentElement.selectSingleNode("root")
'选取root节点
num=objRootsite.childNodes.length-1
For i=0 To num
response.write "网站名:"&objRootsite.childNodes.item(i).childNodes.item(1).text&"    删除 修改
"
response.write "网址:"&objRootsite.childNodes.item(i).childNodes.item(2).text&"
"
response.write "添加时间:"&objRootsite.childNodes.item(i).childNodes.item(3).text&"

"
next
%>


注意:index.asp要与test.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("")
        Response.Write("")
        Response.Write("")
        Response.Write("
书名出版社

")
        Response.Write(node.selectSingleNode("name").text)
        Response.Write("
")
        Response.Write(node.selectSingleNode("publisher").text)
        Response.Write("
")
        Response.Write(cost.text)
        Response.Write("
")
    Next
%>


bloginfo.xml:



    
        Dreamweaver
        上海科技出版社
        images/new.gif
    

    
        Flash
        铁道出版社
        images/new.gif
    

    
        Firweorks
        教育出版社
        images/new.gif
    



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("")
        Response.Write("")
        Response.Write("")
        Response.Write("
书名出版社

")
        Response.Write(node.selectSingleNode("name").text)
        Response.Write("
")
        Response.Write(node.selectSingleNode("publisher").text)
        Response.Write("
")
        Response.Write(cost.text)
        Response.Write("
")
    Next
%>


bloginfo.xml:



    
        Dreamweaver
        上海科技出版社
        images/new.gif
    

    
        Flash
        铁道出版社
        images/new.gif
    

    
        Firweorks
        教育出版社
        images/new.gif
    




上一篇: ASP禁止IP访问
下一篇: ASP备份ACCESS数据库/asp压缩数据库
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志:
评论: 0 | 引用: 0 | 查看次数: 1218
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网 址: 输入网址便于回访.
内 容:
验证码:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 300 字 | UBB代码 开启 | [img]标签 关闭