Case "zc.htm"
wb.AddPageTitle("","pageheader","内江市教务系统","欢迎新用户注册使用")
If e.PostValues.Count = 0 Then
wb.AddForm("","form1","zc.htm")
Dim qxs As List(of String) = DataTables("学校信息").GetValues("区县")
With wb.AddInputGroup("form1","ipg1","")
.AddInput("姓名","姓 名","Text") '前一个"姓名"是ID,后一个"姓名"是标题
.AddInput("身份证号","身份证号","text")
.AddSelect("角色","角 色","|教务主任|教师|学生")
.AddSelect("区县","区 县","|" & String.Join("|",qxs.ToArray)).Attribute = "" '调用js函数.
.AddSelect("group", "单位名称","")
With .AddInputCell("ic1") '通过InputCell增加输入框
.AddSelect("xd","小学|初中|高中",0) '增加下拉列表,0表示显示在左边
.AddSelect("rxn","2012|2013|2014|2015|2016|2017|2018",1)
.AddSelect("bj","1班|2班|3班|4班|5班|6班|7班|8班|9班|10班|11班|12班|13班|14班|15班|16班|17班|18班|19班|20班|21班|22班|23班|24班",2)
End With
.AddInput("password","登录密码","password").placeholder ="请输入六位密码"
With .AddUploader("up1","照 片",False)
.TextPosition = 0
.AllowDelete = True '允许删除
.ScaleWidth = 40 '自动压缩图片宽度为400个像素,高度等比例压缩
End With
End With
With wb.AddButtonGroup("form1","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
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
For Each fln As String In e.Files("up1")
e.SaveFile("up1", fln, "C:\data\xp\" & e.postvalues("身份证号") & "." & fln.split(".")(1))
dr("相片") = IIF(dr.isnull("相片"),"",dr("相片") & vbcrlf) & e.postvalues("身份证号") & "." & fln.split(".")(1)
Next
wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文
dr.save()
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)
End If
老师，请问两个问题:1，我想在一行上显示三个下拉选项（红色部分）只有xd有，rsn有，但bj下拉选项没有。2，现在上传相片可以了，但我想上传同时压缩，学习了帮助，按帮助做了两天还是不行，请老师帮忙明示，谢谢
加好友 
发短信
Post By：2017/8/5 11:17:00 [只看该作者]
