一个javascript转成Vbscript函数的实现
今天碰到一个问题,它的ASP页面是用javascript写的,但我要用Vbscript重写它,转换的过程中,碰到charCodeAt函数,不知道怎么转,该函数如下:
function encode(datastr, bassnum)
{
var tempstr;
var tchar;
var newdata = "";
for (var i = 0; i < datastr.length; i++)
{
tchar = 65535 + bassnum - datastr.charCodeAt(i);
//就是charCodeAt不知如何转换。
tchar = tchar.toString();
while(tchar.length < 5)
{
tchar = "0" + tchar;
}
newdata = newdata + tchar;
}
return newdata;
}
下面是我写的一段:
function encode(datastr,bassnum)
dim tempstr,tchar,newdata
newdata=""
for i=0 to len(datastr)
tchar = 65535 + bassnum- '此处不知道该怎么写。
tchar = Cstr(tchar)
do while len(tchar)<5
tchar="0"+ tchar
loop
newdata=newdata+tchar
next
encode=newdata
end function