Case "table.htm"
Dim wb As New WeUI
wb.AddForm("","form1","table1.htm")
With wb.AddInputGroup("form1","ipg1","筛选")
.AddInput("xm","姓名","text").Placeholder = "请输入姓名筛选数据"
.AddInput("pw","部门","text").Placeholder = "请输入部门筛选数据"
End With
With wb.AddButtonGroup("form1","btg1",False) '垂直排列
.Add("btn1","筛选","button").Attribute= "oncli ck='myfunction()'"
.Add("btn1","下载","","http://127.0.0.1/xiazai.htm")
End With
wb.AppendHTML("<div id='p1' style='margin:0.5em'>") '插入一个div,用于显示服务器返回的 页面
With wb.AddTable("p1","用户表")
.CreateFromTable(Tables("用户表"),True)
End With
wb.AppendHTML("</div>")
wb.AppendHTML("<script src='./lib/ajaxform1.js'></script>") '引入脚本文件
e.WriteString(wb.Build)