- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 逻辑开关，按和不按，有什么变化？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=97526)
-- 发布时间：2017/3/14 10:39:00
-- 逻辑开关，按和不按，有什么变化？
移动逻辑开关，value值设置了就是其他的值，不设置就是on，
文档没有提到：按与不按，逻辑开关有哪些变化
麻烦帮写段代码，判断逻辑开关按和不按的变化？
[此贴子已经被作者于2017/3/14 11:12:08编辑过]
-- 发布时间：2017/3/14 11:30:00
--
不要重复提问题
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=97489&page=1&star=2
如果不用ajex，直接在表单提交是没有问题的
-- 发布时间：2017/3/14 12:10:00
--
问题解决，更新下这个库
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:weui.rar |
-- 发布时间：2017/3/15 8:35:00
--
用了新框架，逻辑按钮解决了，但是点击注册后，跳转页面不成功
我的内部函数代码是这样写的，跳转页面放在最后
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
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
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编辑过]
-- 发布时间：2017/3/15 9:32:00
--
为什么要插入最后一句代码？去掉不行？
-- 发布时间：2017/3/15 9:50:00
--
最后一行是测试加上的，问题应该找到了
应该是少了生成网这一行
e.WriteString(wb.Build) \'生成网页