<% @ 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)

 %>