Dim wb As New weui
Dim vals As String
Dim cmd111 As New S QLCommand
cmd111.Conne cti '记得设置数据源名称
cmd111.Comm andText = "Sele ct * From {表彰}"
Dim dt As DataTable = cmd111.ExecuteReader
If Functions.Execute("yanzheng",e) = 1 '获取验证不能使用异步函数,必须等待并获取验证结果
If e.PostValues.Count = 0 Then
wb.AddPageTitle("","ph1","表彰登记")
wb.AddForm("","form1","addbiaozhang.htm")
wb.AddTopTips("","toptip1","请输入单位名称和支部名称!")
With wb.AddInputGroup("form1","ipg1","内容信息")
.AddInput("单位名称","单位名称*","text").Placeholder =e.Cookies("单位名称")
.AddSelect("表彰类别","表彰类别*","|个人表彰|集体表彰" ).Attribute = "oncha nge='xianshi()'"
.AddInput("获奖名称","获奖名称","text")
.AddInput("授奖单位名称","授奖单位","text")
.AddInput("获奖时间","获奖时间","date")
.AddInput("登记时间","登记时间","date")
End With
With wb.AddButtonGroup("form1","btg1",False)
.Add("btn1", "确定更新", "submit")
.Add("btn2", "取消更新", "submit").FormAction = "default.htm"
End With
e.WriteString(wb.Build) '生成网页
Else
With wb.AddMsgPage("","msgpage","添加学习内容成功", "好好学习,天天向上") '生成成功提示页
.AddButton("btn1","继续添加","addbiaozhang.htm")
.AddButton("btn11","取消添加","default.htm")
End With
wb.AppendHTML("<script>" & vars("test") & "</script>")
e.WriteString(wb.Build)
End If
End If