從老闆那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
留言列表