xmlHTTP返回值重编码的优化

置顶的帖子里有一个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 和 vbCharstrVBS="<script language=vbscript>
";strVBS+="Function rsB（vIn）
rsB=MidB（vIn,1）
End Function
";strVBS+="Function vbChar（ss）
vbChar = Chr（ss）
End Function
";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
";strR+="解码用时"+（stTime3-stTime2）+"ms
";strR+="再次解码用时"+（stTime4-stTime3）+"ms
";strR+="再次再次解码用时"+（stTime5-stTime4）+"ms
";strR+="显示用时"+（stTime6-stTime5）+"ms
";document.body.innerText+=strR;document.body.innerText+=s001; } </script> </head> <body onload="init（）;"> 下载中... </body> </html>

[Ctrl+A 全选注:如需引入外部Js需刷新才能执行]