<!--使用VBScript語言編寫腳本-->
<%@ language=VBScript %>
<%
   '創建用于訪問XML文檔的DOM對象xmldoc
   set xmldoc=Server.createObject("Microsoft.XMLDOM")
   '使用load方法將訪問的XML文檔裝入xmldoc對象中
   xmldoc.load(Server.MapPath("newsbase.xml"))
   '使用selectNodes方法獲得所有新聞元素new的集合
   set nodes=xmldoc.selectNodes("//new")
   '通過判斷nodes集合中元素的個數（nodes.length）來決定輸出
   '輸出結果使用response.write方法返回到客戶瀏覽器中
   'nodes.length為新聞條數
   noteNum=nodes.length
   '輸出沒有新聞時的信息
   if nodes.length=0 then
       Response.write("<center><h1>")
       Response.write("***沒有新聞***")
	   Response.write("</h1>")
	   Response.write("<a href='newshome.htm'>返回首頁</a>")
       Response.write("&nbsp;&nbsp;<---->&nbsp;&nbsp;")
       Response.write("<a href='publish.htm'>發布新聞</a>")
       Response.write("</center>")
	   Response.end
   end if 
   '在頁面頂部輸出頁面到其他頁面的鏈接
   Response.write("<center>")
   Response.write("<a href='newshome.htm'>返回首頁</a>")
   Response.write("&nbsp;&nbsp;<---->&nbsp;&nbsp;")
   Response.write("<a href='publish.htm'>發布新聞</a>")
   Response.write("</center><hr><br><br>")
   '在有新聞時，輸出新聞的主題、新聞作者、發布時間等信息
   '以表格的形式輸出結果
   Response.write("<table border=0 align=center cellpadding=5>")
   Response.write("<thead>")
   Response.write("<th>新聞標題</th><th>作者</th>")
   Response.write("<th>發布時間</th>")
   Response.write("</thead>")
   '按新聞發布時間順序顯示新聞，在保存新聞時保存的日期時間信息是唯一的
   '并且新保存的新聞保存到newsbase.xml的末尾，所以輸出時按逆序輸出
   for i=noteNum-1 to 0 step -1
       '依次獲得主題、新聞作者、發布時間等信息
	   titlestr=nodes(i).childNodes(0).text
	   writerstr=nodes(i).childNodes(1).text
	   timestr=nodes(i).childNodes(4).text
	   Response.write("<tr>")
	   Response.write("<td>"+titlestr+"</td>")
	   Response.write("<td>"+writerstr+"</td>")
	   Response.write("<td>"+timestr+"</td>")
	   'url1設置為“刪除”鏈接的URL，用于調用deletenews.asp來刪除新聞
	   '將調用deletenews.asp的查詢參數設置為datatag，其值為“time”元素值
	   '因為“time”元素值是唯一的
	   url1="http://localhost/news/deletenews.asp?datatag="+timestr
	   Response.write("<td><a href="+url1+" target='_self'>刪除</a></td>")
	   'url2設置為“修改”鏈接的URL，用于調用editnews.asp來修改新聞
	   '調用editnews.asp的查詢參數仍然設置為datatag，其值為“time”元素值
	   url2="http://localhost/news/editnews.asp?datatag="+timestr
	   Response.write("<td><a href="+url2+" target='_self'>修改</a></td>")
	   Response.write("</tr>")
   next
   Response.End
   
   %>