以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  密码至少包含数字和字母  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132075)
--  作者：良才
--  发布时间：2019/3/13 12:17:00
--  密码至少包含数字和字母
修改密码控件，密码至少包含数字和字母，求老师指点代码，谢谢！
--  作者：有点甜
--  发布时间：2019/3/13 12:33:00
--  

参考

 

http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79534&authorid=0&page=0&star=2

 
--  作者：良才
--  发布时间：2019/3/13 13:33:00
--  
老师这样对吗？
If e.Form.Controls("密码").Value IsNot Nothing
    Dim str = e.Form.Controls("密码").Text
    Dim reg = New System.Text.RegularExpressions.Regex("^[A-Za] + [0-9]+$")
    If reg.Ismatch(str) = False OrElse str.Length < 6 OrElse str.Length > 16 Then
        MessageBox.Show("密码必须 6-16 位包含字母或数字 !","提示", MessageBoxButtons.OK,MessageBoxIcon.Question)
        e.Sender.Select()
        Return
    End If
End If
--  作者：有点甜
--  发布时间：2019/3/13 14:54:00
--  
Dim reg = new System.Text.RegularExpressions.Regex("^(?=.*[0-9])(?=.*[a-zA-Z]).{6,16}$")
Dim Password = "abceerere"
If reg.Ismatch(Password) = False Then
    msgbox("不符合")
Else
    msgbox("符合")
End If
--  作者：良才
--  发布时间：2019/3/13 15:07:00
--  
谢谢