在client端以vbscript查詢資料庫並傳回結果

參考資料：如何使用 XMLHTTP 或 ServerXMLHTTP 物件送出表單資料

將以下程式碼放在要client端的程式內

<%@ Language=vbScript%>
<%
  DataToSend = "id=1"
  dim xmlhttp 
  set xmlhttp = server.Createobject("MSXML2.ServerXMLHTTP")
  xmlhttp.Open "POST","http://localhost/Receiver.asp",false
  xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  xmlhttp.send DataToSend
  Response.ContentType = "text/xml"
  Response.Write xmlhttp.responsexml.xml
  Set xmlhttp = nothing
%>

1. 建立xmlhttp
2. 以xmlhttp.Open指定要查詢的程式
   (http://localhost/Receiver.asp為查詢資料庫的程式)
3. 以xmlhttp.send送出要查詢的資料
4. 以Response.ContentType指定回傳資料的形態
5. 以xmlhttp.responseXML.xml取得查詢得結果
   (或設一變數，將回傳值接收下來rtnValue = xmlhttp.ResponseText )
6. client端接收取得資料後，可以用 set xmlhttp = nothing 清空 xmlhttp