国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 開發 > JS > 正文

xmlHTTP實例

2024-09-06 12:44:42
字體:
來源:轉載
供稿:網友
其實也沒有什么特別的地方,主要是看了微軟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;
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 陵水| 镇平县| 宁都县| 梨树县| 南投市| 班玛县| 永春县| 杭锦后旗| 沭阳县| 聂拉木县| 永仁县| 抚宁县| 石泉县| 江川县| 修武县| 辽中县| 金沙县| 湘乡市| 时尚| 延边| 弥渡县| 车险| 渭南市| 东平县| 科尔| 康平县| 响水县| 施秉县| 江川县| 青冈县| 广安市| 莫力| 平利县| 衡南县| 绥棱县| 临夏市| 陈巴尔虎旗| 城市| 当涂县| 荥阳市| 武穴市|