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", "单位名称","")
.AddInput("password","登录密码:","password").placeholder ="请输入六位密码"
With .AddUploader("up1","照片")
.ScaleWidth = 400 '自动压缩图片宽度为400个像素,高度等比例压缩
End With
End With
With wb.AddButtonGroup("form1","btg1",False)
.Add("btn1", "确定注册", "submit").Attribute= ""
.Add("btn2", "返回登录", "", "logon.htm")
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, ProjectPath & "Attachments\" & e.postvalues("身份证号") & "." & fln.split(".")(1))
dr("相片") = IIF(dr.isnull("相片"),"",dr("相片") & vbcrlf) & e.postvalues("身份证号") & "." & fln.split(".")(1)
Next
dr.save()
With wb.AddMsgPage("","msgpage","注册成功", "欢迎您的加入") '生成成功提示页
.AddButton("btn1","继续注册","zc.htm")
End With
e.WriteString(wb.Build)
End If
End Select
e.WriteString(wb.Build) '生成网页
非常谢谢,对了，基本实现了需要，还有1.图片压缩,我按例子改了这句 .Add("btn1", "确定注册", "submit").Attribute= "",不晓得对不对，好像没有压缩起。2.文件不放在本地，放在FTP服务器，上之前图片列能打开，现在不能连接，请问是什么原因，该怎么办？谢谢,另外系统在阿里云服务器上开启是不是文件不用放在FTP上
加好友 
发短信
Post By：2017/7/28 17:11:00 [只看该作者]
