ASP操作xml--顯示xml檔案中的所有節點

通常是利用資料庫來儲存資料，但也可以使用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 {font-size:12px;}
</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檔案放在同一目錄下。