Dim e As RequestEventArgs = args(0)
Dim wb As New weui
If e.PostValues.count = 0 Then
wb.AppendHTML("<link rel='stylesheet' href='./lib/selected.css'/>",True)
wb.AddForm("","form1","goodslist.htm")
With wb.AddInputGroup("form1","ipg1","问卷内容")
.AddSelect("部门名称","部门名称","KA|KB|KC")
.AddInput("提交时间","提交时间","date")
.AddSelect("系列分类","系列分类","DIY系列|转运系列|祈福系列")
With .AddInput("isform1","","hidden")
.Value = "isform1"
.Readonly= True
End With
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "button").Attribute= ""
End With
wb.AppendHTML("<div id='goodslist' style='margin:0.5em'></div>") '插入一个div,用于显示服务器返回的页面
wb.AppendHTML("<script src='./lib/photolistreturn.js'></script>") '引入脚本文件
wb.AppendHTML("<script src='./lib/selected.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页
ElseIf e.PostValues.ContainsKey("isform1") Then
If e.PostValues.ContainsKey("部门名称") AndAlso e.PostValues.ContainsKey("提交时间") AndAlso e.PostValues.ContainsKey("系列分类") Then
Dim cmd As New SQLCommand
cmd.ConnectionName = DataSource '记得设置数据源名称
cmd.CommandText = "Sele ct * Fr om {图片列表} where 系列分类='" & e.PostValues("系列分类") & "'"
Dim dt As DataTable = cmd.ExecuteReader
If dt.DataRows.count>0 Then
wb.AddForm("","form2","goodslist.htm")
With wb.AddInputGroup("form2","ipg1","图片列表")
With .AddUploader("up1","",True)
.AllowAdd = False '关闭文件上传功能
For Each dr As DataRow In dt.DataRows
.AddImage("./images/" & dr("文件夹名称") & "/" & dr("图片名称"))
Next
.Attribute = ""
End With
End With
End If
Else
wb.InsertHTML("请按输入部门名称,提交时间,系列分类!")
End If
e.WriteString(wb.Build)
End If
像这样返回插入DIV的页面不能影响事件?写个简单的onclick也不行,自己写的JQUERY也不行
加好友 
发短信
Post By：2018/4/16 11:11:00 [显示全部帖子]
