置顶的帖子里有一个VBscript的代码用来将xmlHTTP返回值重编码，不过效率极其低下.....俺费了好大的力气，终于做了一个速度勉强让人满意的代码。不过水平所限还是不得不用了vbscript的chr函数用来将acsii转成unicode,不知道哪位大哥能想想办法？ps：算法优化真是个费脑筋的活。-×-×-×-×-×-×-×-×-华丽的更新分割线-×-×-×-×-×-×-×-×-
俺每句话都下了断点测试运行时间，终于把运行时间缩短了大约10倍，现在应该是一种可以实用的算法了。
我一开始用正则替换，每个字替换一遍，结果发现87020字节居然要40秒左右现在这个代码在我电脑上只需要大约3秒，哈哈哈哈，感觉真爽注意：对于只需要解码一次的情形本算法不是最优，但是对于需要多次解码的时候应该是最好的算法了。
运行代码框<html> <head> <title>xml Http</title> <script language=javascript> //***Author: Hutia //测试用的网址 url="http:\/\/www.blueidea.com\/"; //确认需要的VBScript函数是否存在，不存在就写一个 try{ if(typeof(rsB)=="undefined"){initVBS();}; }catch(e){initVBS();} //**全局变量** //glbEncode储存ascii到unicode字符的转换,这样做的好处是可以提高重复解码时的解码效率 glbEncode=new Array(); //**初始化函数** function initVBS(){ //初始化VBscript的两个funtion:rsB 和 vbChar strVBS="<script language=vbscript>\r\n"; strVBS+="Function rsB(vIn)\r\nrsB=MidB(vIn,1)\r\nEnd Function\r\n"; strVBS+="Function vbChar(ss)\r\nvbChar = Chr(ss)\r\nEnd Function\r\n"; strVBS+="<\/script>"; document.write(strVBS); } //用同步方式获取网页内容 function loadURL(strURL){ if(!strURL){return(false);} var xmlHTTP=new ActiveXObject("MSXML2.XMLHTTP"); xmlHTTP.open("GET",strURL,false); xmlHTTP.send(""); return xmlHTTP; } //重编码 function reCode(b){ var s=rsB(b); s=escape(s).replace(/%u/gi,"").replace(/(.{2})(.{2})/g,"%$2%$1").replace(/%([A-Z].)%(.{2})/ig,"%@$1$2"); var uniS=s.match(/\%@(.{4})/g); s=s.replace(/@/g,""); if(uniS){ var k; for(var i=0;i<uniS.length;i++){ k=uniS[i].substring(2,6); if(!glbEncode[k]){ glbEncode[k]=escape(vbChar(eval("0x"+k))).substring(1,6); } } tempA=s.split("%"); for(var i=0;i<tempA.length;i++){ if(tempA[i].length!=2){ tempA[i]=glbEncode[tempA[i]]; } } s=tempA.join("%"); } return unescape(s); } function init(){ stTime=(new Date()).getTime(); ree=loadURL(url).responseBody; stTime2=(new Date()).getTime(); s001=reCode(ree); stTime3=(new Date()).getTime(); s001=reCode(ree); stTime4=(new Date()).getTime(); s001=reCode(ree); stTime5=(new Date()).getTime(); document.body.innerText="共计下载"+s001.length+"字节"; stTime6=(new Date()).getTime(); strR="下载用时"+(stTime2-stTime)+"ms\r\n"; strR+="解码用时"+(stTime3-stTime2)+"ms\r\n"; strR+="再次解码用时"+(stTime4-stTime3)+"ms\r\n"; strR+="再次再次解码用时"+(stTime5-stTime4)+"ms\r\n"; strR+="显示用时"+(stTime6-stTime5)+"ms\r\n"; document.body.innerText+=strR; document.body.innerText+=s001; } </script> </head> <body onload="init();"> 下载中... </body> </html> [Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]
论坛讨论地址：http://www.blueidea.com/bbs/NewsDetail.asp?id=2404402
Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长：MinTao ICP备案号：鄂ICP备11006601号-18
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
