此主题相关图片如下：qq图片2017040614095555555555555.png
手机行输入：18961305238，然后直接点击“注册”按钮，弹出1、2，弹出窗口，显示上述内容，中断执行
Dim e As RequestEventArgs = args(0) '验证页面(注册第1页)
Select Case e.Path
Case "valid_register.htm"
Dim wb As New weui
Dim num As String = e.PostValues("isj") '验证手机号
msgbox(num)
Dim dr As DataRow '定义输入的手机号,所在的行(以便于下面代码内查找此行)
Dim sjcz As String '定义手机存在
Dim yzmm As String = e.PostValues("imm") '验证密码
Dim yzxb As String = e.PostValues("sxb") '验证性别
Dim yzfwxy As String = e.PostValues("fuwuxieyi") '验证服务协议
Dim pattern As String = "^[1][345789][0-9]{9}$"
Dim txt = num
msgbox(1)
Dim rgx = new System.Text.RegularExpressions.Regex(pattern, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
msgbox(2)
——————————————————————粉线之间代码改了
If num.length = "" Then
msgbox(3)
e.WriteString("手机不能为空!")
Return ""
End If
msgbox(4)
If rgx.isMatch(txt) = False Then
e.WriteString("请输入正确的手机号!")
Return ""
End If
msgbox(5)
If rgx.isMatch(txt) = True Then '(num.length <> 11)
dr = DataTables("会员资料").sqlFind("手机 = '" & num & "'")
If dr IsNot Nothing Then
e.WriteString("手机不能重复!")
Return ""
End If
End If
msgbox(6)
——————————————————————-
If yzmm = "" Then
e.WriteString("密码不能为空!")
Return ""
ElseIf yzmm <> "" AndAlso (yzmm.Length > 12) Then
e.WriteString("密码不能大于12位!")
Return ""
ElseIf yzmm <> "" AndAlso (yzmm.Length < 6) Then
e.WriteString("密码不能小于6位!")
Return ""
End If
If yzxb = "" Then
e.WriteString("性别不能为空!")
Return ""
ElseIf yzxb = "注册后,性别不可更改!" Then
e.WriteString("请选择性别!")
Return ""
End If
If yzfwxy <> "是" Then
e.WriteString("未确认服务协议!")
Return ""
End If
Dim drs As DataRow = DataTables("会员资料").AddNew()
Dim drbianh As String = DataTables("会员资料").SQLCompute("Max(会员编号)") + 1
e.AppendCookie("drbianhao",drbianh) '在客户端存储Cookie(保存新增的会员编号)
If drs IsNot Nothing Then
drs("会员编号") = drbianh
drs("手机") = e.PostValues("isj")
drs("密码") = e.PostValues("imm")
drs("性别") = e.PostValues("sxb")
drs("注册日期") = Date.Today
drs("会员等级") = "普通会员"
drs.save()
End If
'With wb.AddMsgPage("","msgpage","注册成功", "本地自助服务,为您婚恋交友之路保驾护航") '生成成功提示页
'.AddButton("btn1","完善资料","/fillout.htm")
'End With
wb.InsertHTML("<meta http-equiv='Re-fresh' con-tent='0; ur-l=/zhucwc.htm'>") '那么直接跳转页面
e.WriteString(wb.Build) '生成网页
End Select
[此贴子已经被作者于2017/4/6 20:02:35编辑过]
加好友 
发短信
Post By：2017/4/6 14:09:00 [只看该作者]
