怎么在accept.htm 里面判断是哪个按钮? btn1
If “什么语法” = "btn2" Then
flt = "日期='" & Date.today.AddDays(1) & "'"
End If
-----------------------------------------------
Dim wb
As New weui
Select
Case e.Path
Case
"input.htm"
If e.PostValues.Count = 0
Then
wb.AddForm("","form1","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
"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)
[此贴子已经被作者于2025/1/9 14:59:17编辑过]