28,403
社区成员
发帖
与我相关
我的任务
分享
...全文
请发表友善的回复…
发表回复
BrightEye 2002-05-16
- 打赏
- 举报
以前有好多这样的帖子,艘一下.
aaabbb332244 2002-05-16
- 打赏
- 举报
用正则表达式可以。
Function isxm(v_num) '检查是否符合姓名规则
Dim re
Set re = new RegExp
re.IgnoreCase = false
re.global = false
re.Pattern = "^[^0-9a-zA-Z]{1,4}$"
isxm = re.Test(v_num)
set re=nothing
End Function
满足姓名规则时，函数返回真，否则返回假。
Function isxm(v_num) '检查是否符合姓名规则
Dim re
Set re = new RegExp
re.IgnoreCase = false
re.global = false
re.Pattern = "^[^0-9a-zA-Z]{1,4}$"
isxm = re.Test(v_num)
set re=nothing
End Function
满足姓名规则时，函数返回真，否则返回假。
coffee_cn 2002-05-16
- 打赏
- 举报
你运行下面的代码试试，我不知道能不能是实现，
当输入汉字的时候，ascii码都是小于0的，
另外一般情况 ascii码的取值好象是1-255吧，记得不太清楚了
所以我想是不是用这个可以判断输入的是不是汉字呢，
取长度就比较简单了，直接用len函数就可以了
<script language="vbscript">
function check
username = document.form1.username.value
for i = 1 to len(username)
msgbox asc(mid(username,i,1))
next
end function
</script>
</head>
<body>
<form name="form1">
<p><input type="text" name="username" size="20">
<input type="button" value="按钮" name="B1" oclick="vbscript:check"><input type="reset" value="全部重写" name="B2"></p>
</form>
当输入汉字的时候，ascii码都是小于0的，
另外一般情况 ascii码的取值好象是1-255吧，记得不太清楚了
所以我想是不是用这个可以判断输入的是不是汉字呢，
取长度就比较简单了，直接用len函数就可以了
<script language="vbscript">
function check
username = document.form1.username.value
for i = 1 to len(username)
msgbox asc(mid(username,i,1))
next
end function
</script>
</head>
<body>
<form name="form1">
<p><input type="text" name="username" size="20">
<input type="button" value="按钮" name="B1" oclick="vbscript:check"><input type="reset" value="全部重写" name="B2"></p>
</form>
