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"

&
#39
获取XML文件的路径这里根据你的虚拟目录不同而不同
Set 
objXML 
= 
Server.CreateObject("
Microsoft.FreeThreadedXMLDOM"
)
&
#39
以自由线程创建一个XML对像
objXML.load(strSourceFile)&
#39
把XML文件读入内存
Set 
objRootsite 
= 
objXML.documentElement.selectSingleNode("
root"
)
&
#39
选取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=&
#39
delxml.asp?id=&
#39
+id

}
<
/script>


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

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