VBScript使用AJAX改寫JavaScript @ 蛤什麼蛤?

從老闆那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