关于javascript的两个问题，谢谢！

[aleccheung]

1、在vbscript中：
Asc 返回每一个字符串首字母的 ANSI 字符代码:
Dim MyNumber
MyNumber = Asc("A") '返回 65。
MyNumber = Asc("a") '返回 97。
MyNumber = Asc("Apple") '返回 65。
请问在javascript中怎么实现呢？
我用charCodeAt 方法
返回一个整数，代表指定位置上字符的 Unicode 编码。
但是对于中文就不正确了。
2、在vbscript总利用 Hex 函数返回数字的十六进制数：
Dim MyHex
MyHex = Hex(5) ' 返回 5。
MyHex = Hex(10) ' 返回A。
MyHex = Hex(459) ' 返回 1CB。

在javascript中如何实现呢？
是用XXX.toString(16)吗？

以上两个问题如果有人解决 给100分。谢谢！！

[aleccheung]

有一个vbscript写的程序想转换成javascript但是有写问题，请帮我看看。
VBscript:
<%
Function GBEncoding(srcStr)
Dim i
For i = 1 To Len(srcStr)
tmpChr = Mid(srcStr,i,1)
If Abs(Asc(tmpChr)) < &HFF Then
strReturn = strReturn & tmpChr
Else
innerCode = Asc(tmpChr)
If innerCode < 0 Then
innerCode = innerCode + &H10000
End If
Hight8 = (innerCode And &HFF00)\ &HFF
Low8 = innerCode And &HFF
strReturn = strReturn & "%" & Hex(Hight8) & "%" & Hex(Low8)
End If
Next
GBEncoding = strReturn
End Function

response.write GBEncoding("中") & "<br/>"
%>

javascript code :

function toGBEncoding(str)
{
var strReturn="";
for(var i=0;i<str.length;i++)
{
var tempStr = str.substr(i,1);
if(Math.abs(tempStr.charCodeAt(0)) < 0xFF)
{
strReturn = strReturn + tempStr;
}
else
{
var inCode = tempStr.charCodeAt(0);
if(inCode < 0)
{
inCode = inCode + 0x10000;
}
var h8b = (inCode & 0xFF00)/ 0xFF;
var l8b = inCode & 0xFF;
// alert(h8b);
strReturn = strReturn + "%" + parseInt(h8b).toString(16) + "%" + parseInt(l8b).toString(16);
}
}
return strReturn;
}

test:document.write(toGBEncoding("中"));

两个值不一样啊
vbscript：%D6%D0
javascript:%4e%2d
请问错在哪里谢谢。

[friendxu]

你已经都写到这里了，自己调试一下就可以了，自己自足，丰衣足食！相信你能解决的！GO ON！SUCCESS！

[aleccheung]

靠，哪有ide啊，可惜无法debug啊。
谢谢。

[shuangren]

1.
var str = "a";
alert(str.charCodeAt(0));

2.
http://expert.csdn.net/Expert/topic/2206/2206239.xml?temp=.7397577