xmlHTTP實例
更新時間:2006年10月24日 00:00:00 作者:
其實也沒有什么特別的地方,主要是看了微軟VBA對象手冊,發(fā)現(xiàn)可以直接用adodbStream轉charSet, 以前看到的例子都是用VBScript來轉的,所以就寫了一個純Javascript的例子
不過可惜因為安全限制問題,這個東東只能給做HTA的人用了.....sigh....
function loadURL(strURL,strSend,strMethod,blnNotWait,aryHeads){
if(!strURL){return(false);}
strSend=strSend?strSend:"";
strMethod=strMethod=="POST"?"POST":"GET";
blnNotWait=blnNotWait?true:false;
var xmlHTTP=new ActiveXObject("MSXML2.XMLHTTP");
xmlHTTP.open(strMethod,strURL,blnNotWait);
if(typeof(aryHeads)=="object"){
for(var i in aryHeads){
try{
xmlHTTP.setRequestHeader(i,aryHeads[i]);
}catch(e){}
}
}
xmlHTTP.send(strSend);
if(blnNotWait){
return(xmlHTTP);
}else{
strTempFilePath="t"+(new Date()).getTime()+parseInt(Math.random()*1000)+".tmp";
var adodbStream=new ActiveXObject("ADODB.Stream");
adodbStream.Type=1;//1=adTypeBinary
adodbStream.Open();
adodbStream.write(xmlHTTP.responseBody);
adodbStream.position=0;
adodbStream.Type=2;
adodbStream.charset="_autodetect_all";
var re=adodbStream.readText();
adodbStream=null;
return(re);
}
}
不過可惜因為安全限制問題,這個東東只能給做HTA的人用了.....sigh....
復制代碼 代碼如下:
function loadURL(strURL,strSend,strMethod,blnNotWait,aryHeads){
if(!strURL){return(false);}
strSend=strSend?strSend:"";
strMethod=strMethod=="POST"?"POST":"GET";
blnNotWait=blnNotWait?true:false;
var xmlHTTP=new ActiveXObject("MSXML2.XMLHTTP");
xmlHTTP.open(strMethod,strURL,blnNotWait);
if(typeof(aryHeads)=="object"){
for(var i in aryHeads){
try{
xmlHTTP.setRequestHeader(i,aryHeads[i]);
}catch(e){}
}
}
xmlHTTP.send(strSend);
if(blnNotWait){
return(xmlHTTP);
}else{
strTempFilePath="t"+(new Date()).getTime()+parseInt(Math.random()*1000)+".tmp";
var adodbStream=new ActiveXObject("ADODB.Stream");
adodbStream.Type=1;//1=adTypeBinary
adodbStream.Open();
adodbStream.write(xmlHTTP.responseBody);
adodbStream.position=0;
adodbStream.Type=2;
adodbStream.charset="_autodetect_all";
var re=adodbStream.readText();
adodbStream=null;
return(re);
}
}

