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

snowas 2004-09-06 12:10:55
<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的。不能哪个能帮帮我。
...全文
45 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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
回复
snowas 2004-09-06
啊!那如果我想计算出n的值,并用于<%=left(字符串,n)%>之中。该怎么办呀?我现在真是没什么思路了啊.
回复
潜水的鱼 2004-09-06
js跟vbscript是一样,

都是客户端脚本,在不提交网页的情况下,也不能传值给<%=left(字符串,n)%>啊
回复
sunboby 2004-09-06
vbscript不提交能转换到《%%》吗??????????????????????
回复
snowas 2004-09-06
谢谢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
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-09-06 12:10
社区公告
暂无公告