Dim e As RequestEventArgs = args(0) '验证页面(注册第1页)
Select Case e.Path
Case "valid_register.htm"
Dim num As String = e.PostValues("isj") '验证手机号,如何才能验证手机号没有字母?
Dim dr As DataRow = DataTables("会员资料").sqlFind("手机 = '" & num & "'")
Dim sjcz As String '定义手机存在
Dim yzmm As String = e.PostValues("imm") '验证密码
Dim yzxb As String = e.PostValues("sxb") '验证性别
If num = "" Then
e.WriteString("手机不能为空!")
Return ""
ElseIf num <> "" AndAlso num.Length <> 11 Then
e.WriteString("请输入正确的手机号!")
Return ""
ElseIf num.Length = 11 Then
If dr IsNot Nothing Then
e.WriteString("手机不能重复!")
Return ""
Else
sjcz = "no"
msgbox("no") '这儿,执行了
End If
End If
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 ""
End If
'Dim yzfwxy As String = e.PostValues("fuwuxieyi") '验证服务协议(因系统问题,暂不能使用,屏蔽)
'If yzfwxy = False Then
'e.WriteString("未确认服务协议!")
'End If
msgbox(0) '这儿,执行了
msgbox(1) '这儿,没有执行
Dim drs As DataRow = DataTables("会员资料").AddNew()
msgbox(2) '这儿,没有执行
Dim
If DataTables(会员资料).datarows.Count = 0 Then '这里保存出现错误
drs("编号") = "1001"
Else
drs("编号") = DataTables("会员资料").Compute("Max(编号)") + 1
End If
drs("手机") = e.PostValues("isj")
drs("密码") = e.PostValues("imm")
drs("性别") = e.PostValues("sxb")
drs.save()
msgbox(3) '这儿,没有执行
End Select
加好友 
发短信
Post By：2017/3/14 15:43:00 [显示全部帖子]
