gbdelete.asp

来自「教师论文管理系统 主要是完成注册登陆身份验证以及上传教师论文上传等」· ASP 代码 · 共 26 行

<%@ language="VBScript" %>
<%
id=Request("id")
set xmldoc=server.createObject("MSXML.DOMDocument")
xmldoc.async="false"
xmldoc.load(server.mappath("lw.xml"))
set root=xmldoc.DocumentElement
set nodes=root.childNodes

set d1=nodes(id).childNodes(0)
set d2=nodes(id).childNodes(1)
set d3=nodes(id).childNodes(2)
set d4=nodes(id).childNodes(3)
set d5=nodes(id).childNodes(4)
set d6=nodes(id).childNodes(5)
nodes(id).removeChild(d1)
nodes(id).removeChild(d2)
nodes(id).removeChild(d3)
nodes(id).removeChild(d4)
nodes(id).removeChild(d5)
nodes(id).removeChild(d6)
root.removeChild(nodes(id))
xmldoc.save(server.mappath("lw.xml"))
set xmldoc=nothing
Response.Redirect"GBManage.asp"
%>