如何将这段js程序改用vbscript编写呢？

[snowas]

<SCRIPT LANGUAGE="JavaScript">
function local(str){ 　　　　　　　　　　//计算字符串str中第200个汉字的位置的值。并返回。
window.alert("字符串:"+str);
var l=str.length;
window.alert("总长:"+l);
var n=0;
for (var i=0;i<l;i++)
{
if (str.charCodeAt(i)<0||str.charCodeAt(i)>255) n++
　　　　　　　　　//主要就是这句，我在vbscript里找不到能替代charCodeAt()的函数。
if (n>200) return i
}
return 0
}
</SCRIPT>

由于我想将上面函数的返回值传给<%=left(字符串,n)%>中变量n（在不提交网页的情况下）. 别人告诉我js中的值在不提交的情况下是不能传到<％％>中的。所以我想把上面js函数改写成vbscript的。不能哪个能帮帮我。

[snowas]

谢谢to_be_or_not_to_be(to be) ！用了你改写的这段代码，我的问题解决了！非常感谢你！
现将代码列出：
function local(str)'计算字符串str中第200个汉字的位置的值。
Dim l: l = Len(str)
Dim n: n = 0
local = 0
For i=1 To l
Dim a: a = AscW(Mid(str, i, 1))
if a<0 Or a>255 Then n = n + 1
if n>200 Then
local = i
exit function
end if
Next
End Function

[sunboby]

vbscript不提交能转换到《%%》吗？？？？？？？？？？？？？？？？？？？？？？

[潜水的鱼]

js跟vbscript是一样,

都是客户端脚本,在不提交网页的情况下,也不能传值给<%=left(字符串,n)%>啊

[snowas]

啊！那如果我想计算出n的值，并用于<%=left(字符串,n)%>之中。该怎么办呀？我现在真是没什么思路了啊.

[to_be_or_not_to_be]

function local(str)'计算字符串str中第200个汉字的位置的值。并返回。
Alert "字符串:" & str
Dim l: l = Len(str)
Alert "总长:" & l
Dim n: n = 0
local = 0
For i=1 To l
Dim a: a = AscW(Mid(str, i, 1))
if a<0 Or a>255 Then n = n + 1
　　　　　　　　　//主要就是这句，我在vbscript里找不到能替代charCodeAt()的函数。
if n>200 Then local = i
Next
End Function