<!--使用VBScript語言編寫腳本-->
<%@ language=VBScript %>
<%
   '創建用于訪問XML文檔的DOM對象xmldoc
   set xmldoc=Server.createObject("Microsoft.XMLDOM")
   '使用load方法將訪問的XML文檔裝入xmldoc對象中
   xmldoc.load(Server.MapPath("newsbase.xml"))
   '使用selectNodes方法獲得所有‘留言’元素的集合nodes
   set nodes=xmldoc.selectNodes("//new")
   '通過判斷nodes集合中元素的個數（nodes.length）來決定輸出
   '輸出結果使用response.write方法返回到客戶瀏覽器中
   '輸出沒有留言的信息
   if nodes.length=0 then
       Response.write("<center><h1>")
       Response.write("沒有新聞")
	   Response.write("</h1></center>")
	   Response.end
   end if 
   '在有新聞時，輸出新聞的主題
   '輸出的主題設置為超級鏈接，客戶通過單擊閱讀新聞內容
   Response.write("<br><h3 align=center>阿當在線新聞</h3>")
   Response.write("<center>")
   for i=0 to nodes.length-1
	   '取得“主題”
	   str1=nodes(i).childNodes(0).text
	   '取得“日期”
	   str2=nodes(i).childNodes(4).text
	   '取得摘要
	   str3=nodes(i).childNodes(2).text
	   '設置單擊主題時執行getcontent.asp來獲得留言內容
	   '將留言日期作為查詢參數datatag
	   url="http://localhost/news/getcontent.asp?datatag="+str2
	   '輸出主題，并將其設置為超級鏈接
       Response.write("<br>")
	   Response.write("<a href='"+url+"'  target='main'>")
	   Response.write(str1)
	   Response.write("</a>")
   next
   Response.write("</center>")
   Response.End
   %>