分别保存下面两段代码，一个保存为readxml.asp另一个保存为test.xml，放在同一个目录下面，调试程式即可，在程式里面我已做了解释，读取代码能够做成一个readxml的函数，通过使用输入的参数而读取xml不同数据记录的不同的值。这段程式的改编来自互连网，有什么出入请见谅。

readxml.asp
以下是引用片段：
<%
dim xml,objNode,objAtr,nCntChd,nCntAtr
Set xml=Server.CreateObject("Microsoft.XMLDOM") 
xml.Async=False
xml.Load(Server.MapPath("test.xml")) 

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

这个能够定义asp读取xml文档的那一个值，通过传递这个值来确定读取的数据

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

历遍一条记录里面的任何的记录项，记录是从0开始的
http://www.knowsky.com/

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

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

test.xml
以下是引用片段：

DOM的对象和方法的简略说明：
documentElement 属性 　　　　　确认XML 文档的根（Root）节点。
selectSingleNode 　　　　　　　　传回第一个符合样式的节点。
loadXML 方法 　　　　　　　　　　加载一个XML 文档或字符串的片断。
haschildnodes 方法 　　　　　　　假如指定的节点有一个或更多子节点，传回值为true。
createElement 方法 　　　　　　　建立一个指定名称的元素。
AppendChild 方法 　　　　　　　　加上一个节点当作指定节点最后的子节点。
createCDATASection 方法 　　　　建立一个包含特定数据的CDATA。