JavaScript中对XMLRequest的responseBody进行解码 |
前面一篇日记学习了XMLHTTP的基本用法,用responseText其获得网页的内容如有Unicode字符的时候,则会显示乱码, 03i2R4 http://blog.numino.net/ 3j7i18 http://blog.numino.net/ 咋处理呢?这个时候还有另一个对象responseBody,看下它的运行结果: KBQotN http://blog.numino.net/ e2pqW5 http://blog.numino.net/ 这个结果……更不像话,原因是因为responseBody存储的是字节,如果用vbsEdit来调试VBS版的XMLHTTP的话,则可以在DEBUG界面看到responseBody中存储的一个个字节形字数据,问题就出在这里了,在VBS中,可以用midb,ascb等手段将字节正确地解码,方式如下: 5Zfi5D http://blog.numino.net/ Set xml=CreateObject("msxml2.xmlhttp") 26mcTD http://blog.numino.net/ xml.open "get",url,False yTR60e http://blog.numino.net/ xml.send 1yNuip http://blog.numino.net/ If xml.readyState=4 And xml.status=200 Then kgT92D http://blog.numino.net/ 'WScript.Echo lenb(xml.responseBody) i6sEf5 http://blog.numino.net/ For i=1 To lenb(xml.responseBody) WZbXBa http://blog.numino.net/ curCode=ascb(midb(xml.responseBody,i,1)) 7uqk89 http://blog.numino.net/ If curCode<&h80 Then 0RctOk http://blog.numino.net/ filContent=filContent & Chr(curCode) 55Cj0v http://blog.numino.net/ Else x8oav7 http://blog.numino.net/ nextCode=ascb(midb(xml.responseBody,i+1,1)) LR7J2O http://blog.numino.net/ filContent=filContent & Chr(CLng(curCode)*&H100+CInt(nextCode)) O66068 http://blog.numino.net/ :i=i+1 pz19I5 http://blog.numino.net/ End If jc38uF http://blog.numino.net/ Next a2WS64 http://blog.numino.net/ End If igj9RW http://blog.numino.net/ 可是这里的lenb、midb、ascb什么的函数,在javascript中貌似没有相应的方法啊,网上查了很多资料,对此都是一个回答:无法解决。目前使用的方法,都是折中的处理办法,比如引用adodb.stream来进行字节转码: 56e15h http://blog.numino.net/ function BytesToBstr(body,Cset){ 7PUTfr http://blog.numino.net/ var objstream; l06x2W http://blog.numino.net/ objstream = new ActiveXObject("adodb.stream"); SxW6g8 http://blog.numino.net/ objstream.Type = 1; //处理字节流 9peyqt http://blog.numino.net/ objstream.Mode =3; //读写模式 3CCzsb http://blog.numino.net/ objstream.open(); //打开对象 2Kr0U3 http://blog.numino.net/ objstream.write(body); //载入处理流 gSHo5d http://blog.numino.net/ objstream.Position = 0; //指针指向开始 XPIIH2 http://blog.numino.net/ objstream.Type = 2; //转换字符流处理 17uOJH http://blog.numino.net/ objstream.Charset = Cset; //设置字符集 Ud9WST http://blog.numino.net/ var str=objstream.ReadText(); //读取字符 bVuRNF http://blog.numino.net/ objstream.close(); //关闭对向 OLvUX1 http://blog.numino.net/ return str; //返回字符串 OkkrD6 http://blog.numino.net/ } rHJXzY http://blog.numino.net/ 或者同一个网页中即使用vbscript函数,又使用javascript函数,将解码工作交给vbscript去做,然后javascript调用结果,没办法,谁叫javascript没有lenb,midb,ascb等牛叉的函数呢。 根据网上的一些例子改编的利用execScript混合vbscript片断的javascript解决办法。 y304dg http://blog.numino.net/ function getHTTPPage(sUrl){ KQDK6Y http://blog.numino.net/ var Http; 8NG56L http://blog.numino.net/ var Http=new ActiveXObject("MSXML2.XMLHTTP") BsezX1 http://blog.numino.net/ Http.open("GET",sUrl,false); 5zAXXC http://blog.numino.net/ Http.send(); TBdL7x http://blog.numino.net/ if(Http.readyState!= 4){ G4eFRa http://blog.numino.net/ return false; UeQMY4 http://blog.numino.net/ } dDzjOc http://blog.numino.net/ return gb2utf8(Http.responseBody); ICTx3N http://blog.numino.net/ } g34LZM http://blog.numino.net/ function gb2utf8(data){ FWVNMm http://blog.numino.net/ gb2utf8_data = data; DkNffj http://blog.numino.net/ execScript("gb2utf8_data = MidB(gb2utf8_data, 1)", "VBScript"); SJ0Vd7 http://blog.numino.net/ var t=escape(gb2utf8_data).replace(/%u/g,""); 162s3w http://blog.numino.net/ t=t.replace(/(.{2})(.{2})/g,"%$2%$1");&nsp; uph997 http://blog.numino.net/ t=t.replace(/%([A-Z].)%(.{2})/g,function(str){execScript("codeStr=chr("+eval(str.replace(/%(.{2})%(.{2})/g,"0x$1$2"))+")","VBScript");return codeStr}); 8GtaoU http://blog.numino.net/ return unescape(t); ETeGGq http://blog.numino.net/ } iV4avc http://blog.numino.net/ 看到这,忽然想想有没有javascript不利用外部工具来模拟vbscript的lenb,midb,ascb的实现呢,网上搜下关键字好象有人在提,先记录到这,如果能成,在把其间的两句execScript去掉,真正实现javascript解决这个问题。
|
|