提交数据后,点按钮返回,电脑谷歌上调试可以,有的手机上不行。。。
Dim e As RequestEventArgs = args(0)
If e.PostValues.Count = 0 Then
'开始正常生成网页内容
wb.AddForm("","form1","a.htm")
With wb.AddInputGroup("form1","ipg3","录入框")
.AddTextArea("txm",5)
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("bc", "保存到后台", "submit")
End With
e.WriteString(wb.Build)
Else
With wb.AddButtonGroup("form1","btg2",True)
.Add("jxpd", "继续", "button","a.htm")
End With
e.WriteString(wb.Build)
End If
[此贴子已经被作者于2017/4/24 23:49:34编辑过]