<!--使用VBScript語言編寫腳本-->
<%@ language=VBScript %>
<%
  '首先中request對象中獲得用于確定留言的日期值
   str=Request.QueryString("datatag")
   '創(chuàng)建用于訪問XML文檔的DOM對象
   set xmldoc=Server.createObject("Microsoft.XMLDOM")
   '使用load方法將XML文檔裝入DOM對象
   xmldoc.load(Server.MapPath("messagebase.xml"))
   '設(shè)置查詢留言使用的字符串，字符串的形式如：//留言[日期="01-11-10//2:48:22"]
   '其作用是獲得有“日期”子元素，
   '并且“日期”子元素內(nèi)容為01-11-10//2:48:22的“留言”元素
   str2="//留言[日期='"+str+"']"
   '使用selectSingleNode方法獲得滿足條件的“留言”元素節(jié)點(diǎn)
   set node=xmldoc.selectSingleNode(str2)
   '使用removeChild方法刪除元素
   xmldoc.documentElement.removeChild(node)
   '使用save方法保存修改后的XML文檔
   '必須保存，否則刪除操作不會生效
   xmldoc.save(Server.MapPath("messagebase.xml"))
   '返回確認(rèn)信息和相關(guān)鏈接
   Response.write("<center>")
   Response.write("已經(jīng)成功刪除留言")
   Response.write("<br><br>")
   Response.write("<a href='messageboard.htm'>返回首頁</a>")
   Response.write("&nbsp;&nbsp;<---->&nbsp;&nbsp;")
   Response.write("<a href='deletedata.asp'>刪除留言</a>")
   Response.write("&nbsp;&nbsp;<---->&nbsp;&nbsp;")
   Response.write("<a href='leavedata.htm'>我要留言</a>")
   Response.write("</center>")
   response.end
%>