以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  移动端参数的调用问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=126697)
--  作者：积水成渊
--  发布时间：2018/10/26 16:20:00
--  移动端参数的调用问题
很开心，开始学习移动端的相关知识了，各位大佬照顾下，现在有个问题需要求教下，点击一下按钮跳转到另外一个页面，我需要将本页面的参数A传递到另外一个页面，供另外一个页面使用，另外一个页面如何接收参数，本页面如何传递参数
--  作者：积水成渊
--  发布时间：2018/10/26 16:47:00
--  
问题解决了
--  作者：有点蓝
--  发布时间：2018/10/26 16:52:00
--  
方法1、url参数传递

With wb.AddButtonGroup("form1","btg1",True)  \'垂直排列
    .Add("btn1", "按钮")
    .Add("btn4", "按钮", "reset")
    .Add("btn5", "按钮", "", "http://www.foxtable.com?id=123456") \'传递名称为id，值为123456的参数
End With


3、表单提交

Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","other.htm")
        With wb.AddInputGroup("form1","ipg1","登录")
            .AddInput("xm","户名","text")
            .AddInput("pw","密码","password")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wb.Build) \'生成网页
End Select

数据接收
Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","other.htm")
        With wb.AddInputGroup("form1","ipg1","登录")
            .AddInput("xm","户名","text")
            .AddInput("pw","密码","password")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wb.Build) \'生成网页
        
    Case "other.htm"
        Dim sb As New StringBuilder
        sb.AppendLine("<meta name=\'viewport\' content=\'width=device-width,initial-scale=1,user-scalable=0\'>")
        sb.AppendLine("接收到的数据有:<br/><br/>")
        For Each key As String In e. Values.Keys
            sb.AppendLine(key & ":" & e.Values(key) & "<br/>")
        Next
        e.WriteString(sb.ToString)
End Select
--  作者：积水成渊
--  发布时间：2018/10/26 17:07:00
--  
感谢