從老闆那A來的....

VBScript使用AJAX...
//定義使用變數及物件
var xmlHttp;    //定義AJAX的物件

/*要看client所支援的xmlhttp是什麼版本的...
所以,為了讓大多數的瀏覽器都可以使用,
是先判斷瀏覽器的種類,然後在建立相對應的物件,
*/
function createXMLHttpRequest() {
    if (window.ActiveXObject) {
        xmlHttp = new ActiveXObject("Microsoft.XMLHTTP");
    }
    else if (window.XMLHttpRequest) {
        xmlHttp = new XMLHttpRequest();
    }
}
//------------------
function c00_Click()
{
createXMLHttpRequest();
xmlHttp.onreadystatechange = handle_c0_Click;
    try {
        var url;
        url="XXXXXX"        
        url=url +  "&t0=" + t0.value;
        url=url +  "&t1=" + t1.value;
       xmlHttp.open("POST",url, true);
       xmlHttp.send(null);  //以 POST 發出 request 時可以是任何想傳給伺服器的東西
    }
    catch(exception) {
       //[catchStatements]
    }
    finally {
       //[finallyStatements]
    }
}
//------------------

//----
function handle_c0_Click() {    
    if(xmlHttp.readyState == 4) {                //檢查 request 目前的狀態
        if (xmlHttp.status == 200){
            alert(xmlHttp.responseText);

}

}

VBS-->JAVA SCRIPT改寫

dim xmlHttp
sub createXMLHttpRequest()    
    set xmlHttp = CreateObject("Microsoft.XMLHTTP")
end sub
sub c0_Click()
     createXMLHttpRequest()
      xmlHttp.onreadystatechange = getRef("handle_c0_Click")

      dim  url
        url="XXXXX"        
       xmlHttp.open "POST",url, true      
       xmlHttp.send null
end sub
function handle_c0_Click()
    if (xmlHttp.readyState = 4) then
        if (xmlHttp.status = 200) then
            alert(xmlHttp.responseText)
        end if
    end if
end function


創作者介紹

蛤什麼蛤?

joysdw12 發表在 痞客邦 PIXNET 留言(0) 人氣()