转换javascript vbscript编码的方法
方法一:functiongb2utf8(data){
varglbEncode=[];
gb2utf8_data=data;
execScript("gb2utf8_data=MidB(gb2utf8_data,1)","VBScript");
vart=escape(gb2utf8_data).replace(/%u/g,"").replace(/(.{2})(.{2})/g,"%$2%$1").replace(/%([A-Z].)%(.{2})/g,"@$1$2");
t=t.split("@");
vari=0,j=t.length,k;
while(++i<j){
k=t[i].substring(0,4);
if(!glbEncode[k])
{
gb2utf8_char=eval("0x"+k);
execScript("gb2utf8_char=Chr(gb2utf8_char)","VBScript");
glbEncode[k]=escape(gb2utf8_char).substring(1,6);
}
t[i]=glbEncode[k]+t[i].substring(4);
}
gb2utf8_data=gb2utf8_char=null;
returnunescape(t.join("%"));
}
使用时:xxx.innerHTML=gb2utf8(req.responseBody);
方法二.
Functionbytes2BSTR_GB2312(vIn)
strReturn=""
Fori=1ToLenB(vIn)
ThisCharCode=AscB(MidB(vIn,i,1))
IfThisCharCode<&H80Then
strReturn=strReturn&Chr(ThisCharCode)
Else
NextCharCode=AscB(MidB(vIn,i+1,1))
strReturn=strReturn&Chr(CLng(ThisCharCode)*&H100+CInt(NextCharCode))
i=i+1
EndIf
Next
bytes2BSTR_GB2312=strReturn
EndFunction
方法三:
<scriptlanguage="JavaScript">
<!--
functionutf8(wide){
varc,s;
varenc="";
vari=0;
while(i<wide.length){
c=wide.charCodeAt(i++);
//handleUTF-16surrogates
if(c>=0xDC00&&c<0xE000)continue;
if(c>=0xD800&&c<0xDC00){
if(i>=wide.length)continue;
s=wide.charCodeAt(i++);
if(s<0xDC00||c>=0xDE00)continue;
c=((c-0xD800)<<10)+(s-0xDC00)+0x10000;
}
//outputvalue
if(c<0x80)enc+=String.fromCharCode(c);
elseif(c<0x800)enc+=String.fromCharCode(0xC0+(c>>6),0x80+(c&0x3F));
elseif(c<0x10000)enc+=String.fromCharCode(0xE0+(c>>12),0x80+(c>>6&0x3F),0x80+(c&0x3F));
elseenc+=String.fromCharCode(0xF0+(c>>18),0x80+(c>>12&0x3F),0x80+(c>>6&0x3F),0x80+(c&0x3F));
}
returnenc;
}
varhexchars="0123456789ABCDEF";
functiontoHex(n){
returnhexchars.charAt(n>>4)+hexchars.charAt(n&0xF);
}
varokURIchars="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789_-";
functionencodeURIComponentNew(s){
vars=utf8(s);
varc;
varenc="";
for(vari=0;i<s.length;i++){
if(okURIchars.indexOf(s.charAt(i))==-1)
enc+="%"+toHex(s.charCodeAt(i));
else
enc+=s.charAt(i);
}
returnenc;
}
alert(encodeURIComponentNew("中文"))
alert(decodeURIComponent(encodeURIComponentNew("中文")))
//-->
</script>
方法一:
functiongb2utf8(data){
varglbEncode=[];
gb2utf8_data=data;
execScript("gb2utf8_data=MidB(gb2utf8_data,1)","VBScript");
vart=escape(gb2utf8_data).replace(/%u/g,"").replace(/(.{2})(.{2})/g,"%$2%$1").replace(/%([A-Z].)%(.{2})/g,"@$1$2");
t=t.split("@");
vari=0,j=t.length,k;
while(++i<j){
k=t[i].substring(0,4);
if(!glbEncode[k])
{
gb2utf8_char=eval("0x"+k);
execScript("gb2utf8_char=Chr(gb2utf8_char)","VBScript");
glbEncode[k]=escape(gb2utf8_char).substring(1,6);
}
t[i]=glbEncode[k]+t[i].substring(4);
}
gb2utf8_data=gb2utf8_char=null;
returnunescape(t.join("%"));
}
使用时:xxx.innerHTML=gb2utf8(req.responseBody);
方法二.
Functionbytes2BSTR_GB2312(vIn)
strReturn=""
Fori=1ToLenB(vIn)
ThisCharCode=AscB(MidB(vIn,i,1))
IfThisCharCode<&H80Then
strReturn=strReturn&Chr(ThisCharCode)
Else
NextCharCode=AscB(MidB(vIn,i+1,1))
strReturn=strReturn&Chr(CLng(ThisCharCode)*&H100+CInt(NextCharCode))
i=i+1
EndIf
Next
bytes2BSTR_GB2312=strReturn
EndFunction
方法三:
<scriptlanguage="JavaScript">
<!--
functionutf8(wide){
varc,s;
varenc="";
vari=0;
while(i<wide.length){
c=wide.charCodeAt(i++);
//handleUTF-16surrogates
if(c>=0xDC00&&c<0xE000)continue;
if(c>=0xD800&&c<0xDC00){
if(i>=wide.length)continue;
s=wide.charCodeAt(i++);
if(s<0xDC00||c>=0xDE00)continue;
c=((c-0xD800)<<10)+(s-0xDC00)+0x10000;
}
//outputvalue
if(c<0x80)enc+=String.fromCharCode(c);
elseif(c<0x800)enc+=String.fromCharCode(0xC0+(c>>6),0x80+(c&0x3F));
elseif(c<0x10000)enc+=String.fromCharCode(0xE0+(c>>12),0x80+(c>>6&0x3F),0x80+(c&0x3F));
elseenc+=String.fromCharCode(0xF0+(c>>18),0x80+(c>>12&0x3F),0x80+(c>>6&0x3F),0x80+(c&0x3F));
}
returnenc;
}
varhexchars="0123456789ABCDEF";
functiontoHex(n){
returnhexchars.charAt(n>>4)+hexchars.charAt(n&0xF);
}
varokURIchars="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789_-";
functionencodeURIComponentNew(s){
vars=utf8(s);
varc;
varenc="";
for(vari=0;i<s.length;i++){
if(okURIchars.indexOf(s.charAt(i))==-1)
enc+="%"+toHex(s.charCodeAt(i));
else
enc+=s.charAt(i);
}
returnenc;
}
alert(encodeURIComponentNew("中文"))
alert(decodeURIComponent(encodeURIComponentNew("中文")))
//-->
</script>
方法一:
functiongb2utf8(data){
varglbEncode=[];
gb2utf8_data=data;
execScript("gb2utf8_data=MidB(gb2utf8_data,1)","VBScript");
vart=escape(gb2utf8_data).replace(/%u/g,"").replace(/(.{2})(.{2})/g,"%$2%$1").replace(/%([A-Z].)%(.{2})/g,"@$1$2");
t=t.split("@");
vari=0,j=t.length,k;
while(++i<j){
k=t[i].substring(0,4);
if(!glbEncode[k])
{
gb2utf8_char=eval("0x"+k);
execScript("gb2utf8_char=Chr(gb2utf8_char)","VBScript");
glbEncode[k]=escape(gb2utf8_char).substring(1,6);
}
t[i]=glbEncode[k]+t[i].substring(4);
}
gb2utf8_data=gb2utf8_char=null;
returnunescape(t.join("%"));
}
使用时:xxx.innerHTML=gb2utf8(req.responseBody);
方法二.
Functionbytes2BSTR_GB2312(vIn)
strReturn=""
Fori=1ToLenB(vIn)
ThisCharCode=AscB(MidB(vIn,i,1))
IfThisCharCode<&H80Then
strReturn=strReturn&Chr(ThisCharCode)
Else
NextCharCode=AscB(MidB(vIn,i+1,1))
strReturn=strReturn&Chr(CLng(ThisCharCode)*&H100+CInt(NextCharCode))
i=i+1
EndIf
Next
bytes2BSTR_GB2312=strReturn
EndFunction
方法三:
<scriptlanguage="JavaScript">
<!--
functionutf8(wide){
varc,s;
varenc="";
vari=0;
while(i<wide.length){
c=wide.charCodeAt(i++);
//handleUTF-16surrogates
if(c>=0xDC00&&c<0xE000)continue;
if(c>=0xD800&&c<0xDC00){
if(i>=wide.length)continue;
s=wide.charCodeAt(i++);
if(s<0xDC00||c>=0xDE00)continue;
c=((c-0xD800)<<10)+(s-0xDC00)+0x10000;
}
//outputvalue
if(c<0x80)enc+=String.fromCharCode(c);
elseif(c<0x800)enc+=String.fromCharCode(0xC0+(c>>6),0x80+(c&0x3F));
elseif(c<0x10000)enc+=String.fromCharCode(0xE0+(c>>12),0x80+(c>>6&0x3F),0x80+(c&0x3F));
elseenc+=String.fromCharCode(0xF0+(c>>18),0x80+(c>>12&0x3F),0x80+(c>>6&0x3F),0x80+(c&0x3F));
}
returnenc;
}
varhexchars="0123456789ABCDEF";
functiontoHex(n){
returnhexchars.charAt(n>>4)+hexchars.charAt(n&0xF);
}
varokURIchars="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789_-";
functionencodeURIComponentNew(s){
vars=utf8(s);
varc;
varenc="";
for(vari=0;i<s.length;i++){
if(okURIchars.indexOf(s.charAt(i))==-1)
enc+="%"+toHex(s.charCodeAt(i));
else
enc+=s.charAt(i);
}
returnenc;
}
alert(encodeURIComponentNew("中文"))
alert(decodeURIComponent(encodeURIComponentNew("中文")))
//-->
</script>
本文地址：http://www.45fan.com/a/question/71293.html