最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

xmlHTTP實(shí)例

 更新時(shí)間:2006年10月24日 00:00:00   作者:  
其實(shí)也沒(méi)有什么特別的地方,主要是看了微軟VBA對(duì)象手冊(cè),發(fā)現(xiàn)可以直接用adodbStream轉(zhuǎn)charSet, 以前看到的例子都是用VBScript來(lái)轉(zhuǎn)的,所以就寫(xiě)了一個(gè)純Javascript的例子 
不過(guò)可惜因?yàn)榘踩拗茊?wèn)題,這個(gè)東東只能給做HTA的人用了.....sigh.... 
復(fù)制代碼 代碼如下:

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);
       }
}

相關(guān)文章

最新評(píng)論

西丰县| 宣城市| 崇礼县| 河源市| 博白县| 武穴市| 新建县| 金坛市| 吐鲁番市| 奉新县| 济阳县| 望城县| 开鲁县| 武鸣县| 土默特右旗| 太谷县| 长武县| 祁阳县| 调兵山市| 若尔盖县| 江山市| 万山特区| 宜昌市| 叶城县| 咸宁市| 榆林市| 肃宁县| 彭泽县| 富顺县| 车致| 靖宇县| 周口市| 河源市| 湘潭市| 江西省| 福清市| 定州市| 手机| 南雄市| 抚远县| 和田市|