<%@ 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("newsbase.xml"))
   '使用load方法將request對象裝入xmlrequest對象中
   xmlrequest.load(Request)
   '選擇request對象中的“new”元素（修改后的新聞）
   set edited=xmlrequest.selectSingleNode("//new")
   '獲得修改后的新聞內容
   titlestr=edited.childNodes(0).text
   writerstr=edited.childNodes(1).text
   briefstr=edited.childNodes(2).text
   contentstr=edited.childNodes(3).text
   timestr=edited.childNodes(4).text
   '選擇newsbase.xml中需要修改的新聞
   set node=xmldoc.selectSingleNode("//new[time='"+timestr+"']")
   '修改新聞
   node.childNodes(0).text=titlestr
   node.childNodes(1).text=writerstr
   node.childNodes(2).text=briefstr
   node.childNodes(3).text=contentstr
  '保存newsbase.xml
   xmldoc.save(Server.MapPath("newsbase.xml"))
   '發送返回信息
   str="<?xml version='1.0' encoding='gb2312'?><response>已經成功保存被修改的新聞</response>"
   Response.write(str)
   Response.End
%>