程序代码：

<%
dim xml,objNode,objAtr,nCntChd,nCntAtr
Set xml=Server.CreateObject("Microsoft.XMLDOM")
xml.Async=False
xml.Load(Server.MapPath("Default.xml"))  

Set objNode=xml.documentElement
nCntChd=objNode.ChildNodes.length-1 



for i=0 to nCntChd
set objAtr=objNode.ChildNodes.item(i)
nCntAtr=objAtr.Attributes.length-1 

for j=0 to nCntAtr
response.write objAtr.Attributes.item(j).Text&"<br>"
next
response.write"<br>"
next 

Set objAtr=Nothing
Set objNode=Nothing
Set xml=Nothing
%>

for j=0 to nCntAtr
response.write objAtr.Attributes.item(j).Text&"<br>"
next

程序代码：

<?xml version="1.0" encoding="GBK"?>
<data>
<http>http://*******</http>
<filmWall>
<name>怒火攻心</name>
<img>20080826083149_6.jpg</img>
<Area>欧美</Area>
<Language>英语</Language>
<Year>2006年</Year>
</filmWall>
<filmWall>
<name>惩罚者</name>
<img>20080415160923_2.jpg</img>
<Language>英语</Language>
<Year>2004年</Year>
</filmWall>
......
</data>