sendback.asp

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

<% @ Language=VBScript %>
<% 
  dim getinfo,str
  '设置服务器返回消息内容的格式
  Response.contentType="text/xml"
  '创建DOM对象实例
  set getinfo=Server.CreateObject("Microsoft.XMLDOM")
  '可户发送的XML格式的消息保存Request对象中
  '所以使用DOM对象的load方法将消息加载到DOM对象中
  getinfo.load(Request)
  '获得可户发送的消息
  str=getinfo.selectSingleNode("//request").text
  '将客户发送的消息返回
  result="<?xml version='1.0' encoding='gb2312' ?><response>"+str+"</response>"
  Response.write(result)

 %>