Case "zc.htm"
wb.DeleteCookie("username") '清除cookie中原来的用户名和密码
wb.DeleteCookie("password")
wb.AddPageTitle("","pageheader","内江市教务系统","欢迎新用户注册使用")
If e.PostValues.Count = 0 Then
wb.AddForm("","form2","zc.htm")
Dim qxs As List(of String) = DataTables("学校信息").GetValues("区县")
With wb.AddInputGroup("form2","ipg1","")
.AddInput("姓名","姓 名","Text")
.AddInput("身份证号","身份证号","text")
.AddSelect("角色","角 色","|学生|教师|班主任|教务主任")
.AddSelect("区县","区 县","|" & String.Join("|",qxs.ToArray)).Attribute = "" '调用js函数.
.AddSelect("group", "单位名称","")
.AddSelect("学段","学 段","|高中|初中|小学")
.AddSelect("学级","学 级","|2011级|2012级|2013级|2014级|2015级|2016级|2017级|2018级|2019级|2020级")
.AddSelect("班","班 级","|1班|2班|3班|4班|5班|6班|7班|8班|9班|10班|11班|12班|13班|14班|15班|16班|17班|18班|19班|20班|21班|22班|23班|24班|25班")
.AddInput("password","登录密码","password").placeholder ="请输入六位密码"
End With
With wb.AddButtonGroup("form2","btg1",False)
.Add("btn1", "确定", "submit").Attribute= ""
.Add("btn2", "重置", "reset")
End With
For Each qx As String In qxs
wb.InsertHTML("<p hidden id='" & qx & "'>" & "|" & DataTables("学校信息").GetComboListString("单位全称","区县='" & qx & "'") & "</p>")
Next
wb.AppendHTML("<script src='./lib/brands.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页
Else
Dim nms() As String = {"姓名","身份证号","角色","区县","group","password"} '不能为空的列名数组
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) = False Then '生成错误提示页
With wb.AddMsgPage("","msgpage","注册失败", nm & "列内容不能为空!")
.icon = "Warn" '改变图标
.AddButton("btn1","返回").Attribute = ""
End With
e.WriteString(wb.Build)
Return '必须返回
End If
Next
If ValidPIN(e.postvalues("身份证号"))= False
With wb.AddMsgPage("","msgpage","注册失败", "身份证号不正确或不规范")
.icon = "Warn" '改变图标
.AddButton("btn1","返回").Attribute = ""
End With
e.WriteString(wb.Build)
Return '必须返回
End If
If e.postvalues("角色") ="学生" Or e.postvalues("角色") ="班主任"
nms = New String() {"学段","学级","班"}
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) = False Then '生成错误提示页
With wb.AddMsgPage("","msgpage","注册失败", nm & "学生和班主任必须要填好当前学段,学级,班级")
.icon = "Warn" '改变图标
.AddButton("btn1","返回").Attribute = ""
End With
e.WriteString(wb.Build)
Return '必须返回
End If
Next
End If
Dim dr1 As DataRow = DataTables("用户").sqlfind("身份证号= '" & e.PostValues("身份证号") & "'")
If dr1 IsNot Nothing
With wb.AddMsgPage("","msgpage","注册失败", "该身份证号已注册,不能重复注册")
.icon = "Warn" '改变图标
.AddButton("btn1","返回").Attribute = ""
End With
e.WriteString(wb.Build)
Return '必须返回
End If
nms = New String() {"姓名","身份证号","角色","区县","group","password"} '重新定义了nms数组,增加了两列.
Dim dr As DataRow = DataTables("用户").AddNew()
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) Then
dr(nm) = e.PostValues(nm)
End If
Next
dr("是否可用")=True
dr("班级")= e.PostValues("学段") & e.PostValues("学级") & e.PostValues("班")
dr.save
If e.postvalues("角色")= "学生"
With wb.AddMsgPage("","msgpage","注册成功,", "欢迎" & e.postvalues("姓名") & "同学的加入,待你班主任审核后可登录") '生成成功提示页
.AddButton("btn1","继续注册","zc.htm")
.AddButton("btn3","返回登录","logon.htm")
End With
End If
If e.postvalues("角色")= "教师"
With wb.AddMsgPage("","msgpage","注册成功,", "欢迎" & e.postvalues("姓名") & "老师的加入,待你校教务主任审核后可登录") '生成成功提示页
.AddButton("btn1","继续注册","zc.htm")
.AddButton("btn1","返回登录","logon.htm")
End With
End If
If e.postvalues("角色")= "教务主任"
With wb.AddMsgPage("","msgpage","注册成功,", "欢迎" & e.postvalues("姓名") & "教务主任的加入,待上级审核后可登录") '生成成功提示页
.AddButton("btn1","继续注册","zc.htm")
.AddButton("btn1","返回登录","logon.htm")
End With
End If
If e.postvalues("角色")= "班主任"
With wb.AddMsgPage("","msgpage","注册成功,", "欢迎" & e.postvalues("姓名") & "班主任的加入,待上级审核后可登录") '生成成功提示页
.AddButton("btn1","继续注册","zc.htm")
.AddButton("btn1","返回登录","logon.htm")
End With
End If
e.WriteString(wb.Build)
老师，这段代码是之前测试过的，能通过，不知道什么原因，今天试在输入完相关注册内容后点确定就不跳转了，是什么原因，始终没找到呢，请老师帮查下，谢谢
加好友 
发短信
Post By：2017/8/22 17:53:00 [只看该作者]
