扩展标记语言XML是一种简单的数据存储语言，使用一系列简单的标记描述数据，以下两个例子演示了用asp创建和读取Xml的方法。把其中的代码放入Asp环境测试即可。
一些简单说明：对于文本，空格chr(32)，双引号chr(34)，Tab 键chr(9)
1.asp创建Xml文件
<%
dim fso,ts,dqm
set fso=server.createobject("scripting.filesystemobject")
set ts=fso.opentextfile(server.mappath("xmltest.xml"),2,true)
dqm=chr(34) '双引号
t=chr(9) 'tab键
ts.writeline("<?xml version="& chr(34)&"1.0"& chr(34)& " encoding="& chr(34)&"gb2312"& chr(34)&"?>")
ts.writeline("<books>")
ts.writeline(t&"<book>")
ts.writeline(t&t&"<title>落日故乡</title>")
ts.writeline(t&t&"<url>www.spersky.com</url>")
ts.writeline(t&t&"<author>小牛</author>")
ts.writeline(t&t&"<description>普通的个人博客</description>")
ts.writeline(t&"</book>")
ts.writeline("</books>")
ts.close
set ts=nothing
set fso=nothing
%>
2. asp读取Xml文件
<%
Dim oXML
'创建一个XMLDOM实例
Set oXML = Server.CreateObject("Microsoft.XMLDOM")
oXML.load (Server.MapPath("xmltest.xml")) '载入XML文件
Set oXMLRoot = oXML.documentElement '创建文档元素
'选择title节点,注意，标签前加//
Set title = oXMLRoot.selectSingleNode("//title")
'response.write title.text '打印出<title></title>之间的内容
vtitle=title.text
Set title = nothing '销毁
Set oXMLRoot = nothing '销毁
Set xml = Nothing '销毁
response.write vtitle
%>