站內搜尋:Yahoo搜尋如果沒有給完整的網址,請在站內再搜尋一次!

2012-08-26

在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

沒有留言:

張貼留言