getcontent.asp

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

 <!--使用VBScript语言编写脚本-->
<%@ language=VBScript %>
<%
    '首先中request对象中获得用于确定留言的日期值
	str=Request.QueryString("datatag")
	'创建用于访问XML文档的DOM对象
	set xmldoc=Server.createObject("Microsoft.XMLDOM")
	'使用load方法将XML文档装入DOM对象
	xmldoc.load(Server.MapPath("messagebase.xml"))
	'设置查询留言使用的字符串，字符串的形式如：//留言[日期="01-11-10//2:48:22"]
	'其作用是获得有“日期”子元素，
	'并且“日期”子元素内容为01-11-10//2:48:22的“留言”元素
	str2="//留言[日期='"+str+"']"
	'使用selectSingleNode方法获得满足条件的“留言”元素节点
	set node=xmldoc.selectSingleNode(str2)
	'依次获得留言的主题、姓名、email、内容和日期
	str1=node.childNodes(0).text
	str2=node.childNodes(1).text
	str3=node.childNodes(2).text
	str4=node.childNodes(3).text
	str5=node.childNodes(4).text
	'以表格的形式返回结果
	Response.write("<center>")
    Response.write("<h2>查看留言内容</h2>")
    Response.write("<a href='messageboard.htm'>返回首页</a>")
    Response.write("&nbsp;&nbsp;<---->&nbsp;&nbsp;")
    Response.write("<a href='deletedata.asp'>删除留言</a>")
    Response.write("&nbsp;&nbsp;<---->&nbsp;&nbsp;")
    Response.write("<a href='leavedata.htm'>我要留言</a>")
	Response.write("</center><hr><br><br>")
  
	Response.write("<table border=0 align=center cellpadding=5>")
	'输出主题
	Response.write("<tr>")
	Response.write("<td><b>主题：</b></td>")
	Response.write("<td>"+str1+"</td>")
	Response.write("</tr>")
	'输出留言人姓名
	Response.write("<tr>")
	Response.write("<td><b>姓名：</b></td>")
	Response.write("<td>"+str2+"</td>")
	Response.write("</tr>")
    '输出留言人email
	'利用超级链接的mailto属性将留言人emial设置为超级链接
	'当客户单击留言人email时，可自动启动邮件程序发送电子邮件
	Response.write("<tr>")
	Response.write("<td><b>E_mail：</b></td>")
	url="mailto:"+str3
    Response.write("<td>")
	Response.write("<a href="+url+">")
	Response.write(str3)
	Response.write("</a></td>")
    Response.write("</tr>")
	'输出留言内容
	Response.write("<tr>")
	Response.write("<td><b>内容：</b></td>")
	Response.write("<td>"+str4+"</td>")
	Response.write("</tr>")
	'输出留言日期
	Response.write("<tr>")
	Response.write("<td><b>日期：</b></td>")
	Response.write("<td>"+str5+"</td>")
	Response.write("</tr>")
	Response.end

%>