＊＊＊关于fromCharCode()方法的问题＊＊＊

[cyberguy]

为什么VBScript中chr(54992)可以显示“中”，而在javaScript中的String.fromCharCode(54992)则显示乱码？两者的功能不是一样的吗？？请大家解答，谢谢

[wsj]

msgbox(AscW("中"))'OK

[qiushuiwuhen]

下载 http://www.blueidea.com/user/qswh/qswhGB2312.js

<script src="qswhGB2312.js"></script>
<script>
function chr(num){
num=num-0xB0A1;
return strGB.charAt((num>>8)*94+(num&0xff))
}
alert(chr(54992))
</script>

[cyberguy]

为什么“中”同时对应54992以及20013，如何计算出为20013，我只要知道如何得到20013就可以了，此外，繁体字如何处理？？请指教！！

[cyberguy]

有没有人知道？？？

[qiushuiwuhen]

编码不同
Gb2312 : 54992
Unicode: 20013

取得Unicode
<script>
alert("繁體字".charCodeAt(1))
</script>

[wsj]

VBScript中chr(54992)可以吗？

<SCRIPT LANGUAGE="VBScript">
msgbox(Chr(54992))//error
msgbox(Chr(20013))//error
msgbox(ChrW(54992))//Some with JavaScript
msgbox(ChrW(20013))//OK
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
alert(String.fromCharCode(54992));//same with VBScript
alert(String.fromCharCode(20013));//OK
</SCRIPT>

[cyberguy]

楼上代码在本机的运行结果：
<SCRIPT LANGUAGE="VBScript">
'------------------------------
msgbox(Chr(54992))//*******OK******
msgbox(Chr(20013))//error
msgbox(ChrW(54992))//Same as JavaScript
msgbox(ChrW(20013))//OK
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
alert(String.fromCharCode(54992));//same as VBScript
alert(String.fromCharCode(20013));//OK
</SCRIPT>
'--------------------------------------
“中”对应的54992是通过以下方法计算出的，
如何计算出为20013，请指教！！
function fixed(listName)
dim i,tmp,j,ret,t
for i=0 to document.all(listName).length -1
select case listname
case "list1"
tmp=document.all.list1.options(i).text
case "country"
tmp=document.all.country.options(i).text
case "list2"
tmp=document.all.list2.options(i).text
end select
ret=""
for j=1 to len(tmp)
t=ascb(mid(tmp,j,1))
if t>128 then
j = j+1
t= t*256 + ascb(mid(tmp,j,1))
'alert(t)
end if
'ret = ret & chr(t)
ret = ret & "**" & t
next
document.all(listName).options(i).text = ret
next
end function