ASP作为早期广泛使用的服务器端脚本技术，经常需要和结构化数据文件配合完成业务功能，XML凭借良好的可读性和跨平台特性，成为ASP常用的数据存储格式。下面我们详细介绍ASP与XML交互的具体实现方法。
一、核心对象：XMLDOM
ASP操作XML主要依赖Microsoft.XMLDOM对象，也就是XMLDOM，它可以把XML文件加载到内存中，以树形结构管理XML的节点、属性和文本内容，支持对XML的增删改查操作。在使用前需要先创建该对象的实例。
' 创建XMLDOM对象实例
Dim xmlDoc
Set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
' 设置异步加载为false，确保文件加载完成后再执行后续代码
xmlDoc.async = False二、读取XML文件数据
首先准备一个测试用的XML文件，命名为test.xml，内容如下：
<?xml version="1.0" encoding="gb2312"?>
<users>
<user id="1">
<name>张三</name>
<age>25</age>
<city>北京</city>
</user>
<user id="2">
<name>李四</name>
<age>28</age>
<city>上海</city>
</user>
</users>下面是读取该XML文件所有用户信息的代码：
Dim xmlDoc, users, user, i
Set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.async = False
' 加载XML文件，注意路径需要根据实际项目调整
xmlDoc.Load(Server.MapPath("test.xml"))
' 检查文件是否加载成功
If xmlDoc.parseError.errorCode <> 0 Then
Response.Write("XML文件加载失败，错误描述：" & xmlDoc.parseError.reason)
Response.End
End If
' 获取所有user节点
Set users = xmlDoc.getElementsByTagName("user")
' 遍历输出每个用户的信息
For i = 0 To users.length - 1
Set user = users(i)
Response.Write("用户ID：" & user.getAttribute("id") & "<br/>")
Response.Write("姓名：" & user.selectSingleNode("name").text & "<br/>")
Response.Write("年龄：" & user.selectSingleNode("age").text & "<br/>")
Response.Write("城市：" & user.selectSingleNode("city").text & "&;br/><hr/>")
Next
Set xmlDoc = Nothing三、写入和修改XML数据
如果需要新增用户节点或者修改已有节点的内容，同样可以通过XMLDOM对象实现，下面是新增一个用户节点的示例：
Dim xmlDoc, root, newUser, nameNode, ageNode, cityNode
Set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.async = False
xmlDoc.Load(Server.MapPath("test.xml"))
If xmlDoc.parseError.errorCode <> 0 Then
Response.Write("XML文件加载失败")
Response.End
End If
' 获取根节点
Set root = xmlDoc.documentElement
' 创建新的user节点
Set newUser = xmlDoc.createElement("user")
' 设置user节点的id属性
newUser.setAttribute "id", "3"
' 创建name子节点并赋值
Set nameNode = xmlDoc.createElement("name")
nameNode.text = "王五"
newUser.appendChild(nameNode)
' 创建age子节点并赋值
Set ageNode = xmlDoc.createElement("age")
ageNode.text = "30"
newUser.appendChild(ageNode)
' 创建city子节点并赋值
Set cityNode = xmlDoc.createElement("city")
cityNode.text = "广州"
newUser.appendChild(cityNode)
' 把新节点添加到根节点下
root.appendChild(newUser)
' 保存修改后的XML文件
xmlDoc.Save(Server.MapPath("test.xml"))
Response.Write("用户节点添加成功")
Set xmlDoc = Nothing四、删除XML节点
删除节点需要先定位到目标节点，再通过父节点的removeChild方法移除，下面是删除id为2的用户节点的示例：
Dim xmlDoc, targetUser, parentNode
Set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.async = False
xmlDoc.Load(Server.MapPath("test.xml"))
If xmlDoc.parseError.errorCode <> 0 Then
Response.Write("XML文件加载失败")
Response.End
End If
' 通过XPath查找id为2的user节点
Set targetUser = xmlDoc.selectSingleNode("//user[@id='2']")
If Not targetUser Is Nothing Then
' 获取父节点
Set parentNode = targetUser.parentNode
' 移除目标节点
parentNode.removeChild(targetUser)
' 保存修改
xmlDoc.Save(Server.MapPath("test.xml"))
Response.Write("id为2的用户节点删除成功")
Else
Response.Write("未找到目标用户节点")
End If
Set xmlDoc = Nothing五、注意事项
- XML文件的编码需要和ASP页面的编码一致，避免出现中文乱码，建议使用gb2312或者utf-8编码。
- 操作XML文件时需要确保ASP进程对XML文件有读写权限，否则会出现保存失败的问题。
- 加载XML文件后一定要检查
parseError的错误码，避免因为XML格式错误导致后续操作异常。 - 操作完成后及时释放XMLDOM对象，避免占用服务器资源。