<%@ language=VBScript %>
<%
   '設置返回信息的格式，text/xml表示以XML格式返回信息
   '因為在客戶端的sendnews函數中使用了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("newsbase.xml"))
   '使用load方法將request對象裝入xmlrequest對象中
   xmlrequest.load(Request)
   '創建一個新元素“time”
   set subnode=xmlrequest.createElement("time")
   '為新建的“time”元素設置內容
   '去掉日期和時間函數返回值的首尾空格
   '去掉空格是為了使用“time”元素作為關鍵字來標識不同的新聞
   subnode.text=Trim(date)+"||"+Trim(time)
   '選者request對象中的“new”元素，“new”元素中保存了作者發布的新聞信息
   set node=xmlrequest.selectSingleNode("//new")
   '將新建的“time”元素設置為從request對象中獲得的“new”元素的子元素
   node.appendChild(subnode)
   '將保存新的新聞信息的“new”元素添加到newsbase.xml根元素中
   xmldoc.documentElement.appendChild(node)
   '保存newsbase.xml
   xmldoc.save(Server.MapPath("newsbase.xml"))
   '發送返回信息
   str="<?xml version='1.0' encoding='gb2312'?><response>已經成功保存新聞</response>"
   Response.write(str)
   Response.End
%>