deletenews.asp

来自「关于XML和网页配合使用的好书」· ASP 代码 · 共 33 行

<!--使用VBScript语言编写脚本-->
<%@ language=VBScript %>
<%
  '首先中request对象中获得用于确定新闻的日期值
   str=Request.QueryString("datatag")
   '创建用于访问XML文档的DOM对象
   set xmldoc=Server.createObject("Microsoft.XMLDOM")
   '使用load方法将XML文档装入DOM对象
   xmldoc.load(Server.MapPath("newsbase.xml"))
   '设置查询新闻使用的字符串，字符串的形式如：//new[time="01-11-10//2:48:22"]
   '其作用是获得有“new”子元素，
   '并且“time”子元素内容为01-11-10//2:48:22的“new”元素
   str2="//new[time='"+str+"']"
   '使用selectSingleNode方法获得满足条件的“new”元素节点
   set node=xmldoc.selectSingleNode(str2)
   '使用removeChild方法删除元素
   xmldoc.documentElement.removeChild(node)
   '使用save方法保存修改后的XML文档
   '必须保存，否则删除操作不会生效
   xmldoc.save(Server.MapPath("newsbase.xml"))
   '返回确认信息，并设置页面相关链接
   Response.write("<center>")
   Response.write("<b>已经成功删除新闻</b>")
   Response.write("<br><br>")
   Response.write("<a href='newshome.htm'>返回首页</a>")
   Response.write("&nbsp;&nbsp;<---->&nbsp;&nbsp;")
   Response.write("<a href='manage.asp'>管理新闻</a>")
   Response.write("&nbsp;&nbsp;<---->&nbsp;&nbsp;")
   Response.write("<a href='publish.htm'>发布新闻</a>")
   Response.write("</center>")
   Response.end
%>