ASP Operations xml--Modify nodes in an XML file

vhttp://www.111cn.net/detail.asp?id=157 This page is used to display all the nodes in the XML file, and to delete and edit two connections next to each node, where the deletion code is:
<%
Id=request ("id")
If IsNumeric (ID) =false or isNull (ID) Then
Response.Write ("parameter is not correct, please return!") ")
Response.End
End If
strSourceFile = Server.MapPath ("./") & "\test.xml"
' Get the path to the XML file, which is different depending on your virtual directory.
Set objxml = Server.CreateObject ("Microsoft.XMLDOM")
' Create an XML pair like
Objxml.load (strSourceFile)
' Read the XML file into memory
Set objrootlist = ObjXML.documentElement.selectSingleNode ("root")
Set Rootoldnode=objrootlist.childnodes.item (ID)
Objrootlist.removechild Rootoldnode
' Delete node
Objxml.save (strSourceFile)
' Store Test.xml file (because no storage test.xml is updated in memory only)
Set objxml=nothing
Set objxml2=nothing
Response.Redirect ("index.asp")
Response.End
%>