ASP操作xml--删除xml文件中某个节点

http://www.aspprogram.cn/detail.asp?id=157这个页面用来显示xml文件中的所有节点,在每个节点旁边有删除和编辑两个连接,其中删除的代码是:
<%
id=request("id")
if IsNumeric(id)=false or isNull(id) then
response.write ("参数不正确，请返回！")
response.end
end if 
strSourceFile = Server.MapPath("./") &#38; "\test.xml"
'获取XML文件的路径这里根据你的虚拟目录不同而不同
 Set objXML = Server.CreateObject("Microsoft.XMLDOM")
 '创建XML对像
 objXML.load(strSourceFile)
 '把XML文件读入内存中
 Set objRootlist = objXML.documentElement.selectSingleNode("root")
 set rootOldNode=objRootlist.childNodes.item(id) 
 objRootlist.RemoveChild rootOldNode
 '删除节点
 objXML.save(strSourceFile)
 '存储test.xml文件（因为不存储test.xml只在内存中更新了）
 set objXML=Nothing
 set objXML2=Nothing
 Response.Redirect("index.asp")
 response.end
%>

源码下载地址：http://www.aspprogram.cn/soft.asp?id=33