作家
登录

xmlHTTP实例

作者: 来源:www.28hudong.com 2013-03-30 03:59:23 阅读 我要评论

其实也没有什么特别的地方,主要是看了微软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); } }

  推荐阅读

  Dron右键菜单 v1.0

New Document [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]>>>详细阅读


本文标题:xmlHTTP实例

地址:http://www.17bianji.com/kaifa2/JS/31420.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)