deletedata.asp

关于XML和网页配合使用的好书

<!--使用VBScript语言编写脚本-->
<%@ language=VBScript %>
<%
   '创建用于访问XML文档的DOM对象xmldoc
   set xmldoc=Server.createObject("Microsoft.XMLDOM")
   '使用load方法将访问的XML文档装入xmldoc对象中
   xmldoc.load(Server.MapPath("messagebase.xml"))
   '使用selectNodes方法获得所有‘留言’元素的集合nodes
   set nodes=xmldoc.selectNodes("//留言")
   '通过判断nodes集合中元素的个数（nodes.length）来决定输出
   '输出结果使用response.write方法返回到客户浏览器中
   '输出没有留言的信息
   'nodes.length为留言条数
   noteNum=nodes.length
   if nodes.length=0 then
       Response.write("<center><h1>")
       Response.write("***没有留言***")
	   Response.write("</h1></center>")
	   Response.end
   end if 
   '输出页面标题和转移到其他页面的链接
   Response.write("<center>")
   Response.write("<a href='messageboard.htm'>返回首页</a>")
   Response.write("&nbsp;&nbsp;<---->&nbsp;&nbsp;")
   Response.write("<a href='leavedata.htm'>我要留言</a>")
   Response.write("</center><hr><br><br>")
   '在有留言时，输出留言的主题、留言人姓名、email、日期等信息
   '以表格的形式输出结果
   Response.write("<table border=0 align=center cellpadding=5>")
   Response.write("<thead>")
   Response.write("<th>主题</th><th>留言人</th><th>E_mail</th>")
   Response.write("<th>日期</th><th>&nbsp;</th>")
   Response.write("</thead>")
   for i=0 to noteNum-1
       Response.write("<tr>")
	   '依次获得主题、留言人姓名、email、日期等信息
	   str1=nodes(i).childNodes(0).text
	   str2=nodes(i).childNodes(1).text
	   str3=nodes(i).childNodes(2).text
	   str4=nodes(i).childNodes(4).text
       Response.write("<td>"+str1+"</td>")
	   Response.write("<td>"+str2+"</td>")
	   Response.write("<td>"+str3+"</td>")
	   Response.write("<td>"+str4+"</td>")
	   'url设置为“删除”链接的URL，用于调用suredelete.asp来删除留言
	   '将调用suredelete.asp的查询参数设置为datatag，其值为“日期”元素值
	   url="http://localhost/aspxml/note/suredelete.asp?datatag="+str4
	   Response.write("<td><a href="+url+" target='_self'>删除</a></td>")
   next
   
   %>