请问用vbscript如何判断用户输入的姓名是否有效(汉字)(我就剩200分了)

ccz500 2002-05-16 04:35:42
姓名为汉字.长度在1-4之间.不许有数字,字母.谢谢
...全文
24 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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

满足姓名规则时,函数返回真,否则返回假。
回复
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>
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

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