getcontent.asp

来自「关于XML和网页配合使用的好书」· ASP 代码 · 共 29 行

<!--使用VBScript语言编写脚本-->
<%@ language=VBScript %>
<%
    '首先中request对象中获得用于确定新闻的日期值
	str=Request.QueryString("datatag")
	'创建用于访问XML文档的DOM对象
	set xmldoc=Server.createObject("Microsoft.XMLDOM")
	'使用load方法将XML文档装入DOM对象
	xmldoc.load(Server.MapPath("newsbase.xml"))
	'设置查询新闻使用的字符串，字符串的形式如：//新闻[日期="01-11-10//2:48:22"]
	'其作用是获得有“日期”子元素，
	'并且“日期”子元素内容为01-11-10//2:48:22的“新闻”元素
	str1="//new[time='"+str+"']"
	'使用selectSingleNode方法获得满足条件的“新闻”元素节点
	set node=xmldoc.selectSingleNode(str1)
	'依次获得新闻的主题、作者姓名、新闻内容
	title=node.childNodes(0).text
    writer=node.childNodes(1).text
	content=node.childNodes(3).text
	'输出获得的新闻内容
	Response.write("<center><b>")
	Response.write("<font size=5>"+title+"</font>")
	Response.write("</b></center>")
    Response.write("<div align='right'>"+writer+" 报道</div>")
    Response.write("<br>&nbsp;&nbsp;&nbsp;&nbsp;")
    Response.write(content)
    Response.end
%>