<!--使用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
%>