日韩欧美国产精品免费一二-日韩欧美国产精品亚洲二区-日韩欧美国产精品专区-日韩欧美国产另-日韩欧美国产免费看-日韩欧美国产免费看清风阁

通常是利用數據庫來保存數據，但也可以使用xml文件來保存數據。假設xml文件的內容是：
test.xml
<?xml version="1.0" encoding="gb2312"?>
<site>
<root>
<list>
<id>0</id>
<name>新浪</name>
<url>http://www.sina.com.cn</url>
<time>2007-11-1 10:10:10</time>
</list>
<list>
<id>1</id>
<name>google</name>
<url>http://www.google.cn</url>
<time>2007-11-2 11:11:11</time>
</list>
</root>
</site>

用來顯示xml中的內容的asp文件
index.asp
<style>
body {}
</style>
<%
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&" <a href=""javascript:delxml("&objRootsite.childNodes.item(i).childNodes.item(0).text&")"">刪除</a> <a href=""editxml.asp?id="&objRootsite.childNodes.item(i).childNodes.item(0).text&""">修改</a>
"
response.write "網址："&objRootsite.childNodes.item(i).childNodes.item(2).text&"
"
response.write "添加時間:"&objRootsite.childNodes.item(i).childNodes.item(3).text&"

"
next
%>
<script>
function delxml(id)
{
if(!confirm("確定要刪除嗎？")) return false;
location.href='delxml.asp?id='+id;
}
</script>

注意：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("<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>

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>