Dim wb As New WeUI
Select Case e.Path
Case "main.htm","web_kitchenmain.htm",""
Functions.execute("Web_KitchenMenu",e)
Case "web_item_label.htm"
Functions.execute("Web_Item_Label",e)
Case "menu.htm"
Functions.execute("Web_Menu",e)
Case "process_cat_btn.htm"
Functions.Execute("Web_Item_Btn",e)
Case "list.htm"
Functions.Execute("Web_List",e)
Case "input.htm"
Functions.Execute("Web_input",e)
Case "accept.htm"
Functions.Execute("Web_accept",e)
Case "wb_test.htm"
Functions.Execute("Web_test",e)
Case "t_input.htm"
If e.PostValues.Count = 0 Then
wb.AddForm("","form1","t_input.htm")
With wb.AddInputGroup("form1","ipg1","数据输入")
.AddInput("客户","客户","text")
.AddInput("日期","日期","date")
.Addinput("产品","产品","text")
.Addinput("数量","数量","number")
End With
With wb.AddButtonGroup("form1","btngrp1",False)
.Add("btn1", "按钮1", "submit").Value = "btn1"
.Add("btn2", "按钮2", "submit").Value = "btn2"
.Add("btn3", "按钮3", "submit").FormAction = "accept.htm"
.Add("btn4", "按钮4", "submit").FormAction = "accept.htm?type=1&model=ha"
End With
Else
wb.InsertHTML("接收到的数据有:<br/>")
For Each key As String In e.PostValues.Keys
wb.InsertHTML(key & ":" & e.PostValues(key) & "<br/>")
Next
End If
Case "t_accept.htm"
wb.InsertHTML("通过accept.htm接收到的数据有:<br/>")
For Each key As String In e.PostValues.Keys
wb.InsertHTML(key & ":" & e.PostValues(key) & "<br/>")
Next
End Select
e.WriteString(wb.Build)
加好友 
发短信
Post By：2022/10/14 14:04:00 [显示全部帖子]
此主题相关图片如下：pipo_sp20221014_140110.jpg