专注收集记录技术开发学习笔记、技术难点、解决方案
网站信息搜索 >> 请输入关键词:
您当前的位置: 首页 > vbScript

for.next语句,该怎么处理

发布时间:2010-05-20 14:01:29 文章来源:www.iduyao.cn 采编人员:星星草
for...next语句
VBScript code
<%
function Isusername(username,lenmin,lenmax)
    Char="abcdefghijklmnopqrstuvwxyz.-_0123456789"
    username=Lcase(username)
    Isusername=true
    for i = 1 to Len(username)
        if Instr(Char,mid(username,i,1))<1 then
        Isusername=false
        exit for
    next    ''这里报错 错误的NEXT  
    if Isusername=true and ( Len(username)<Cint(lenmin) or Len(username)>Cint(lenmax) ) then Isusername=false
    if Isusername=true and ( Left(username,1) < "a" or Left(username,1) > "z" ) then Isusername=false
end function
%>


验证输入用户名的语句。帮忙看下,谢了。

------解决方案--------------------
没见这你这么验证的,不过还是给你改一下,就是丢了一个end if
<%
function Isusername(username,lenmin,lenmax)
Char="abcdefghijklmnopqrstuvwxyz.-_0123456789"
username=Lcase(username)
Isusername=true
for i = 1 to Len(username)
if Instr(Char,mid(username,i,1))<1 then
Isusername=false
exit for
end if
next ''这里报错 错误的NEXT
if Isusername=true and ( Len(username)<Cint(lenmin) or Len(username)>Cint(lenmax) ) then Isusername=false
if Isusername=true and ( Left(username,1) < "a" or Left(username,1) > "z" ) then Isusername=false
end function

%>
友情提示:
信息收集于互联网,如果您发现错误或造成侵权,请及时通知本站更正或删除,具体联系方式见页面底部联系我们,谢谢。

其他相似内容:

热门推荐: