逻辑开关，按和不按，有什么变化？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

用了新框架，逻辑按钮解决了，但是点击注册后，跳转页面不成功

我的内部函数代码是这样写的，跳转页面放在最后

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") '验证手机号,如何才能验证手机号没有字母?

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") '验证性别

Dim yzfwxy As String = e.PostValues("fuwuxieyi") '验证服务协议

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 ""

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

If yzfwxy <> "是" Then

e.WriteString("未确认服务协议!")

Return ""

End If

Dim drs As DataRow = DataTables("会员资料").AddNew()

drs("会员编号") = DataTables("会员资料").SQLCompute("Max(会员编号)") + 1

drs("手机") = e.PostValues("isj")

drs("密码") = e.PostValues("imm")

drs("性别") = e.PostValues("sxb")

drs("注册日期") = Date.Today

drs.save()

With wb.AddMsgPage("","msgpage","注册成功", "***********") '生成成功提示页 ‘这里不能跳转

.AddButton("btn1","完善资料","/fillout.htm")

End With

wb.InsertHTML("<meta http-equiv='Refresh' c>") '那么直接跳转到登录页面 ’这里跳转的页面，发帖时，被你们网站去掉了

End Select

注册页面内部函数register，代码是这样的

Dim e As RequestEventArgs = args(0) '注册第1页,注册

Select Case e.Path

Case "register.htm"

If e.PostValues.Count = 0 Then

Dim wb As New weui

wb.AddTopTips("","toptip1","") '用于显示动态错误提示

wb.AddPageTitle("","pageheader","**网","***********")

wb.AddForm("","form1","register.htm").Attribute=""

With wb.AddInputGroup("form1","ipg1","快速注册")

With .AddInputCell("ic1") '通过InputCell增加输入框(1表示突出显示,2表示红色警示图标)

.AddLabel("lsj","手机",0) '增加标签(0显示在左边)

.AddInput("isj","text",1).PlaceHolder= "请输入手机号" '增加输入框(0靠左显示,1居中显示,2靠右显示)

End With

With .AddInputCell("ic2")

.AddLabel("lyz","验证",0)

.AddInput("iyz","text",1).PlaceHolder= "请输入验证码"

.AddVcodeButton("vyz","获取验证码",2) '0靠左显示,1居中显示,2靠右显示

End With

With .AddInputCell("ic3")

.AddLabel("lmm","密码",0)

.AddInput("imm","text",1).PlaceHolder= "请输入密码"

End With

.AddSelect("sxb","性别","|男|女")

.AddSwitch("fuwuxieyi","同意协议").Value = "是"

With wb.AddButtonGroup("form1","btg1",True)

.Add("btn1", "点此注册", "submit")

.Add("btn2", "服务协议", "","/protocol.htm").Kind = 1

End With

wb.AppendHTML("<script src='./lib/ajaxform_register.js'></script>") '引入脚本文件

e.WriteString(wb.Build)

End If

End Select

[此贴子已经被作者于2017/3/15 8:38:06编辑过]

主题：逻辑开关，按和不按，有什么变化？