xmlHTTP實例

2019-11-21 02:29:25

字體：大中小

來源：轉載

供稿：網友

其實也沒有什么特別的地方，主要是看了微軟VBA對象手冊，發現可以直接用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); 
       } 
}