ASP读取XML
作者:wang 日期:2009-10-13
通常是利用数据库来保存数据,但也可以使用xml文件来保存数据。假设xml文件的内容是:
test.xml
用来显示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("
")
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("
")
Next
%>
bloginfo.xml:
Dreamweaver
上海科技出版社
images/new.gif
Flash
铁道出版社
images/new.gif
Firweorks
教育出版社
images/new.gif
test.xml
用来显示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(node.selectSingleNode("name").text) Response.Write(" | ") Response.Write(node.selectSingleNode("publisher").text) Response.Write(" | ") Response.Write(cost.text) Response.Write(" |
Next
%>
bloginfo.xml:
images/new.gif
images/new.gif
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(node.selectSingleNode("name").text) Response.Write(" | ") Response.Write(node.selectSingleNode("publisher").text) Response.Write(" | ") Response.Write(cost.text) Response.Write(" |
Next
%>
bloginfo.xml:
images/new.gif
images/new.gif
images/new.gif
评论: 0 | 引用: 0 | 查看次数: 2571
发表评论