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 见相关文章
<%
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 见相关文章