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("./") &#38; "\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 "网站名:"&#38;objRootsite.childNodes.item(i).childNodes.item(1).text&#38;"   <a href=""javascript:delxml("&#38;objRootsite.childNodes.item(i).childNodes.item(0).text&#38;")"">删除</a> <a href=""editxml.asp?id="&#38;objRootsite.childNodes.item(i).childNodes.item(0).text&#38;""">修改</a>
"
 response.write "网址："&#38;objRootsite.childNodes.item(i).childNodes.item(2).text&#38;"
"
 response.write "添加时间:"&#38;objRootsite.childNodes.item(i).childNodes.item(3).text&#38;"

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

注意：index.asp要与test.xml文件放在同一目录下。

源码下载地址：http://www.aspprogram.cn/soft.asp?id=33