<!--使用VBScript語言編寫腳本-->
<%@ language=VBScript %>
<%
   '創(chuàng)建用于訪問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集合中元素的個數(shù)（nodes.length）來決定輸出
   '輸出結(jié)果使用response.write方法返回到客戶瀏覽器中
   '輸出沒有留言的信息
   'nodes.length為留言條數(shù)
   noteNum=nodes.length
   if nodes.length=0 then
       Response.write("<center><h1>")
       Response.write("***沒有留言***")
	   Response.write("</h1></center>")
	   Response.end
   end if 
   '輸出頁面標題和轉(zhuǎn)移到其他頁面的鏈接
   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、日期等信息
   '以表格的形式輸出結(jié)果
   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設(shè)置為“刪除”鏈接的URL，用于調(diào)用suredelete.asp來刪除留言
	   '將調(diào)用suredelete.asp的查詢參數(shù)設(shè)置為datatag，其值為“日期”元素值
	   url="http://localhost/aspxml/note/suredelete.asp?datatag="+str4
	   Response.write("<td><a href="+url+" target='_self'>刪除</a></td>")
   next
   
   %>