HTTP：
Dim wb As New weui
wb.AddForm("","form1","tongji.htm")
With wb.AddInputGroup("form1","ipg1","销售统计")
With .AddInputCell("姓名") '通过InputCell增加输入框
.AddLabel("姓名","姓名",0) '增加标签,0显示在左边
.AddInput("姓名","Text",1).Placeholder = "可手动输入,以" & "/" & " 隔开"
.AddVcodeButton("hym","模糊输入",2).Attribute = "" '调用js函数
End With
.AddInput("姓名","姓名","Text").Attribute = """
.AddInput("需求审核人","姓名","Text")
End With
With wb.AddDialog("","dlg2", "请选择","")
.AddButton("btnOK","确定")
.AddButton("btnOK11","确定").Attribute=""
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
wb.AppendHTML("<div id='p1' style='margin:0.5em'></div>") '插入一个div,用于显示服务器返回的页面
wb.AppendHTML("<script src='./lib/tj3.js'></script>") '引入脚本文件
wb.AppendHTML("<script src='./lib/tj4.js'></script>") '引入脚本文件
e.WriteString(wb.Build)
Case "tongji.htm"
Dim wb As New weui
Dim wb2 As New weui
Dim lk As String = Nothing
Dim txt As String = e.PostValues("姓名")
txt = "'%" & txt & "%'"
Dim gjs11 As List(of String) = DataTables("员工资料").SQLGetValues("姓名","openid <> '" & lk & "'and 姓名 like " & txt )
Dim ds1 As Integer =DataTables("员工资料").SQLCompute("Count([姓名])","openid <> '" & lk & "'and 姓名 like " & txt )
Dim ary11 As String= String.Join("|",gjs11.ToArray)
Dim ary12() As String
ary12 = ary11.split("|")
wb2.InsertHTML("form1","<div id='div1' style='overflow-y:auto;height:300px'>")
With wb2.AddCheckGroup("","rdg12","浏览器")
For i As Integer = 0 To ary12.length-1
.Add("bm1" & i, ary12(i)).Attribute = ""
Next
End With
wb2.InsertHTML("form1","</div>")
wb.AppendHTML("<script src='./lib/tj4.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '返回增加成功消息
加好友 
发短信
Post By：2020/10/12 16:58:00 [显示全部帖子]
