用VBScript对文本框变量的长度判断

BMWroadster 2003-09-16 11:32:53
sub aa()
Dim pwd,num
pwd=password.value
num=Len(pwd)
if num>10 then
msgbox"密码长度不能大于10个字符"
end if
end sub

<input name="password" type="password">
--------------------------------------------------
pwd=password.value 获取文本框(password)变量值应该怎么写啊?
用 if num>10 then 来判断num的值是否大于10 这么写可以吗?
还有 如果同时判断两个密码长度是否大于10可以直接用两个变量来判断吗?比如:
if num1>10 or num2>10 then
msgbox"密码长度不能大于10个字符"
...全文
90 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
超级大笨狼 2003-09-16
  • 打赏
  • 举报
回复
如果外面有form要加上form1.password.value
其余没问题
我喜欢vbs,看我用vbs做的东西
游戏
www.ymdg.com/link.htm

www.ymdg.com/tree.htm
www.ymdg.com/tree.rar(树的数据库和asp原文件下载)
marry7 2003-09-16
  • 打赏
  • 举报
回复
你看一眼这个,对你问题有帮助的
if num1>10 or num2>10 then
msgbox"密码长度不能大于10个字符"
意思对,但是书写格式什么的不对,改一下就行。

function Check()
{

if (form1.personname.value==""||form1.personname.value.length<4)
{
alert("用户名不能为空,且不能少于4位");
document.form1.personname.focus();
return false;
}
if( HaveEvil(form1.personname.value))
{
alert("您的名称里有非法字符 !!");
document.form1.personname.focus();
return false;
}
if (!isusername(document.form1.personname.value)){
return false;
}
else if(form1.pwd.value==""||form1.pwd.value.length<4)
{
alert("请输入密码!不能少于4位");
form1.pwd.focus();
}
else if(form1.pwd1.value=="")
{
alert("请输入确认密码!");
form1.pwd1.focus();
}
else if(form1.pwd.value!=form1.pwd1.value)
{
alert("请输入一致的密码!");
form1.pwd1.focus();
}
else
{
form1.submit();
}
}
freetaiger 2003-09-16
  • 打赏
  • 举报
回复
sub cmpLength()
dim pwd, num
pwd = document.all("文本框password's name").value
if cint(len(pwd)) > 10 then
msgbox"密码长度不能大于10个字符"
end if
end sub
wggipkhgef 2003-09-16
  • 打赏
  • 举报
回复
if .....
then
......
else
.....
end if


IF后面跟的THEN,是写在同一行,可不要END IF
如果不写在同一行,则必须END IF,并且END IF必须放在你判断语句最后
ling_l 2003-09-16
  • 打赏
  • 举报
回复
嵌套的时候还是应该一一对应,而不是一定要写到结尾!
marry7 2003-09-16
  • 打赏
  • 举报
回复
end if 和if 是对应着写的

if 1 then
msgbox""
else
if 2 then
msgbox""
else
*****
end if\\ 结束if语句1
end if\\结束if语句2,看格式,格式要清,利于今后维护.别回来的时候你都不知道哪个语句对应什么.书写时就对应好,养成好的写码习惯
BMWroadster 2003-09-16
  • 打赏
  • 举报
回复
谢谢大家!我的问题解决了!!! #^_^#
如果嵌套if 语句 end if必需写在结尾吗???
-------------------------
sub aa()
Dim pwd,num
pwd=zhuce.password.value
num=Len(pwd)
if num>10 then
msgbox"密码长度不能大于10个字符"
//这里就不可以??? 《--------------
else |
if document.zhuce.password.value<>document.zhuce.password2.value then |
msgbox"两次输入密码不一致",0,"提示" |
else |
document.zhuce.submit |
end if |
end if //end if必需写在这里吗???写在------------------------------------|
end sub

28,406

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧