getdata.asp

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

 <!--使用VBScript语言编写脚本-->
 <%@ language=VBScript %>
 <%
   '创建用于访问XML文档的DOM对象xmldoc
   set xmldoc=Server.createObject("Microsoft.XMLDOM")
   '使用load方法将访问的XML文档装入xmldoc对象中
   xmldoc.load(Server.MapPath("messagebase.xml"))
   '使用selectNodes方法获得所有‘留言’元素的集合nodes
   set nodes=xmldoc.selectNodes("//留言")
   '通过判断nodes集合中元素的个数（nodes.length）来决定输出
   '输出结果使用response.write方法返回到客户浏览器中
   '输出没有留言的信息
   if nodes.length=0 then
       Response.write("<center><h1>")
       Response.write("***没有留言***")
	   Response.write("</h1></center>")
	   Response.end
   end if 
   '在有留言时，输出留言的主题、留言人姓名、email、日期等信息
   '以表格的形式输出结果
   Response.write("<table border=0 align=center cellpadding=5>")
   Response.write("<thead>")
   Response.write("<th>主题</th><th>留言人</th><th>E_mail</th><th>日期</th>")
   Response.write("</thead>")
   for i=0 to nodes.length-1
       Response.write("<tr>")
	   '取得“主题”
	   str1=nodes(i).childNodes(0).text
	   '取得“姓名”
	   str2=nodes(i).childNodes(1).text
	   '取得“email”
	   str3=nodes(i).childNodes(2).text
	   '取得“日期”
	   str4=nodes(i).childNodes(4).text
	   '设置单击主题时执行getcontent.asp来获得留言内容
	   '将留言日期作为查询参数datatag
	   url="http://localhost/aspxml/note/getcontent.asp?datatag="+str4
	   '输出主题，并将其设置为超级链接
       Response.write("<td>")
	   Response.write("<a href="+url+" target='_parent'>")
	   Response.write(str1)
	   Response.write("</a>")
	   Response.write("</td>")
	   '输出留言人姓名
	   Response.write("<td>"+str2+"</td>")
	   '输出留言人email
	   Response.write("<td>"+str3+"</td>")
	   '输出留言日期
	   Response.write("<td>"+str4+"</td>")
   next
   %>