主题：提交数据后，点按钮返回，电脑谷歌上调试可以，有的手机上不行

提交数据后，点按钮返回，电脑谷歌上调试可以，有的手机上不行。。。

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

 什么手机浏览器不行？试试这样写代码

Select Case e.Path
    Case "a.htm"'
        Dim wb As new WeUI
        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
            wb.AddForm("","form1","/a.htm")           
            With wb.AddButtonGroup("form1","btg2",True)
                .Add("jxpd", "继续", "button","a.htm")
            End With
            e.WriteString(wb.Build)
        End If
End Select