sureedit.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("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
%>