index.asp

关于XML和网页配合使用的好书

<!--使用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
   %>