manage.asp

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

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