以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  提交数据后，点按钮返回，电脑谷歌上调试可以，有的手机上不行  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=99688)
--  作者：fubblyc
--  发布时间：2017/4/24 23:47:00
--  提交数据后，点按钮返回，电脑谷歌上调试可以，有的手机上不行

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

 

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编辑过]
--  作者：有点色
--  发布时间：2017/4/25 8:51:00
--  

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

 

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