asp 删除 xml中的节点

delXmlChildNode.asp

<%
id=request("id")
if IsNumeric(id)=false or isNull(id) then
response.write ("参数不正确，请返回！")
response.end
end if

strSourceFile = Server.MapPath("./") & "/books.xml"
'获取XML文件的路径这里根据你的虚拟目录不同而不同
 Set objXML = Server.CreateObject("Microsoft.XMLDOM")
 '创建XML对像
 objXML.load(strSourceFile)
 '把XML文件读入内存中
'传入参数id是节点的所在位置的下标可用此种方式。
’－－－－－－－－－－－－－－－－－－－－－
 Set objRootlist = objXML.documentElement.selectSingleNode("//books")
  set rootOldNode=objRootlist.childNodes.item(id)
 objRootlist.RemoveChild rootOldNode
 '删除节点
‘－－－－－－－－－－－－－－－－－－－－－－－－－－－

'如果传入参数是指定节点的属性id，可使用下面的删除方式
‘－－－－－－－－－－－－－－－－－－－－－－－－－－－
Set delObj=objXML.SelectSingleNode("//book[@id='"&id&"']")
'获取要删除的节点对象
objXML.DocumentElement.RemoveChild(delObj)
'删除节点
’－－－－－－－－－－－－－－－－－－
 objXML.save(strSourceFile)
 '存储test.xml文件（因为不存储test.xml只在内存中更新了）
 set objXML=Nothing
Response.Redirect("books.asp")
%>

books.xml 见相关文章