|
楼主 |
发表于 2010-5-25 23:33:58
|
显示全部楼层
$lenname = StringLen($yonghu)
If $lenname < 6 Then
MsgBox(48,"","用户名太短") ;判断用户名长短
Else ;判断用户名长短
If StringRegExp($yonghu, "^[a-z0-9]+$") Then ;判断用户名规则-数字字母
$zimu = StringLeft ( $yonghu, 1 ) ;判断用户名规则 -首位字母
If StringIsLower($zimu ) Then ;判断用户名规则 -首位字母
$lenxm = StringLen($XINGMING) ;判断姓名个数
if $lenxm < 2 Then
MsgBox(48,"","姓名太短啦!") ;判断姓名个数
Else ;判断姓名个数
If StringRegExp($XINGMING,"^[0-9]+$") Then
MsgBox(48,"","姓名不能存在数字!") ;判断姓名规则
Else ;判断姓名规则
$lenmima = StringLen($mima) ;判断密码规则
if $lenmima < 6 Then
MsgBox(48,"","密码不得少于6位") ;判断密码规则
Else ;判断密码规则
$lenzhengjian = StringLen($zhengjian)
if $lenzhengjian = 15 or $lenzhengjian = 18 Then ;判断证件号码规则
If StringRegExp($zhengjian, "^[x-y0-9]+$") Then ;判断证件规则 123
$lenyzm = StringLen($yzm) ;检查是否输入验证码
if $lenyzm = 6 Then ;检查是否输入验证码
_szc()
Else ;检查是否输入验证码
MsgBox(48,"","验证码错误") ;检查是否输入验证码
EndIf ;检查是否输入验证码
Else ;判断证件规则 123
MsgBox(48, "","身份证号码不合法!") ;判断证件规则 123
EndIf ;判断证件规则 123
Else ;判断证件号码规则
MsgBox(48,"","证件号码字数不对") ;判断证件号码规则
EndIf ;判断证件号码规则
EndIf ;判断密码规则
EndIf ;判断姓名规则
EndIf ;判断姓名个数
Else ;判断用户名规则 -首位字母
MsgBox(48, "", "账号第一位必须是小写字母!") ;判断用户名规则 -首位字母
EndIf ;判断用户名规则 -首位字母
Else ;判断用户名-数字字母
MsgBox(48, "", "账号只能由字母数字组成!") ;判断用户名-数字字母
EndIf ;判断用户名-数字字母
EndIf ;判断用户名长短
EndIf;检测邮箱 |
|