<!--使用VBScript語(yǔ)言編寫(xiě)腳本-->
<%@ language=VBScript %>
<%
    '首先中request對(duì)象中獲得用于確定新聞的日期值
	str=Request.QueryString("datatag")
	'創(chuàng)建用于訪問(wèn)XML文檔的DOM對(duì)象
	set xmldoc=Server.createObject("Microsoft.XMLDOM")
	'使用load方法將XML文檔裝入DOM對(duì)象
	xmldoc.load(Server.MapPath("newsbase.xml"))
	'設(shè)置查詢新聞使用的字符串，字符串的形式如：//新聞[日期="01-11-10//2:48:22"]
	'其作用是獲得有“日期”子元素，
	'并且“日期”子元素內(nèi)容為01-11-10//2:48:22的“新聞”元素
	str1="//new[time='"+str+"']"
	'使用selectSingleNode方法獲得滿足條件的“新聞”元素節(jié)點(diǎn)
	set node=xmldoc.selectSingleNode(str1)
	'依次獲得新聞的主題、作者姓名、新聞內(nèi)容
	title=node.childNodes(0).text
    writer=node.childNodes(1).text
	content=node.childNodes(3).text
	'輸出獲得的新聞內(nèi)容
	Response.write("<center><b>")
	Response.write("<font size=5>"+title+"</font>")
	Response.write("</b></center>")
    Response.write("<div align='right'>"+writer+" 報(bào)道</div>")
    Response.write("<br>&nbsp;&nbsp;&nbsp;&nbsp;")
    Response.write(content)
    Response.end
%>