save.asp

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

 <%@ language=VBScript %>
 <%
   '设置返回信息的格式，text/xml表示以XML格式返回信息
   '因为在客户端的sendinfo函数中使用了responseXML接收返回信息
   '所以以XML格式发送返回信息
   Response.contentType="text/xml"
   '创建用于访问XML文档的DOM对象xmldoc
   set xmldoc=Server.createObject("Microsoft.XMLDOM")
   '创建用于访问request对象的DOM对象xmlrequest
   set xmlrequest=Server.createObject("Microsoft.XMLDOM")
   '使用load方法将访问的XML文档装入xmldoc对象中
   xmldoc.load(Server.MapPath("messagebase.xml"))
   '使用load方法将request对象装入xmlrequest对象中
   xmlrequest.load(Request)
   '创建一个新元素“日期”
   set subnode=xmlrequest.createElement("日期")
   '为新建的“日期”元素设置内容
   '去掉日期和时间函数返回值的首尾空格
   '去掉空格是为了使用“日期”元素作为关键字来标识不同的留言
   subnode.text=Trim(date)+"//"+Trim(time)
   '选者request对象中的“留言”元素
   set node=xmlrequest.selectSingleNode("//留言")
   '将新建的“日期”元素设置为从request对象中获得的“留言”元素的子元素
   node.appendChild(subnode)
   '将保存新的留言信息的“留言”元素添加到messagebase.xml根元素中
   xmldoc.documentElement.appendChild(node)
   '保存messagebase.xml
   xmldoc.save(Server.MapPath("messagebase.xml"))
   '发送返回信息
   str="<?xml version='1.0' encoding='gb2312'?><response>已经成功保存留言</response>"
   Response.write(str)
%>