以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教：微信动态列表的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120172)
--  作者：bahamute
--  发布时间：2018/6/8 16:45:00
--  请教：微信动态列表的问题
在下图中，
1、使用 setAjaxOptions 函数根据后台数据动态生成列表项目，
2、选择品牌后，点击确定按钮进入页面B

图片点击可在新窗口打开查看

3、在B页面按手机的返回键，此时又会重新进入下图页面，这时品牌列表框的值为空，必须先重新选择国家后，品牌列表框才会出现内容。


图片点击可在新窗口打开查看此主题相关图片如下：0136.jpg
图片点击可在新窗口打开查看

4、请教：如何实现即使按手机的返回键后，品牌框也有内容?
--  作者：有点蓝
--  发布时间：2018/6/8 17:35:00
--  
直接初始化值：

        With wb.AddInputGroup("form1","ipg1","动态列表")
            With .AddSelect("国家","国家","|中国|德国|日本")
                .Attribute = "font-family: 宋体; font-size: medium; color: brown;">品牌\',\'getBrands.htm\',\'国家\',false)"""
            End With
            .AddSelect("品牌","品牌","品牌1|品牌2|.........")
        End With
--  作者：bahamute
--  发布时间：2018/6/8 17:56:00
--  
这样写死的话，就失去了根据后台数据动态生成列表项目的初衷了
--  作者：有点甜
--  发布时间：2018/6/8 19:55:00
--  
以下是引用bahamute在2018/6/8 17:56:00的发言：
这样写死的话，就失去了根据后台数据动态生成列表项目的初衷了

 

进入页面的时候，执行一次 setAjaxOptions 函数

 

http://www.foxtable.com/mobilehelp/scr/0097.htm

 
--  作者：bahamute
--  发布时间：2018/6/9 14:50:00
--  
以下是引用有点甜在2018/6/8 19:55:00的发言：

 

进入页面的时候，执行一次 setAjaxOptions 函数

 

http://www.foxtable.com/mobilehelp/scr/0097.htm

 进入页面是哪个事件？
--  作者：有点蓝
--  发布时间：2018/6/9 15:03:00
--  
e.WriteString(wb.Build)这句代码之前加入

wb.InsertHTML("<script>setAjaxOptions(\'品牌\',\'getBrands.htm\',\'国家\',false)</script>")

-----------------
其实2楼的用法在页面返回前取得页面之前选择的国家的品牌也是可以的
.AddSelect("品牌","品牌","品牌1|品牌2|.........")
--  作者：bahamute
--  发布时间：2018/6/11 8:42:00
--  
非常感谢，在进入此页面的时候，执行 setAjaxOptions 函数，品牌列表框已经有内容了。

继续请教：

如何让品牌列显示上次选择的内容？


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20180611082900.png
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2018/6/11 9:05:00
--  

1、点击确定的时候（跳转到后台处理）这个时候设置cookie的值

 

http://www.foxtable.com/mobilehelp/scr/0042.htm

 

2、后退的时候，会再次出发页面的后台事件的，这个时候，取出cookie的值，设置进去

 

http://www.foxtable.com/mobilehelp/scr/0048.htm

 

3、6楼的js代码要删除。
--  作者：有点甜
--  发布时间：2018/6/11 9:24:00
--  

参考代码

 

Select Case e.Path
    Case "test.htm", ""
        If e.Cookies.ContainsKey("值1")= False Then
            Dim wb As New weui
            wb.AddForm("","form1","abc.htm")
            With wb.AddInputGroup("form1","ipg1","列表项目")
                .AddSelect("os","操作系统","iOS|Windows|Andriod")
                .AddSelect("bw","浏览器","Chorme|[Edge]|Firefox|Internet Explorer")
            End With
            With wb.AddButtonGroup("form1","btg1",True)
                .Add("btn1", "确定", "submit")
            End With
            wb.DeleteCookie("值1")
            wb.DeleteCookie("值2")
            e.WriteString(wb.Build) \'生成网页
        Else
            Dim wb As New weui
            wb.AddForm("","form1","abc.htm")
            With wb.AddInputGroup("form1","ipg1","列表项目")
                .AddSelect("os","操作系统","[" & e.Cookies("值1") & "]|iOS|Windows|Andriod")
                .AddSelect("bw","浏览器","[" & e.cookies("值2") & "]|Chorme|Edge|Firefox|Internet Explorer")
            End With
            With wb.AddButtonGroup("form1","btg1",True)
                .Add("btn1", "确定", "submit")
            End With
            wb.DeleteCookie("值1")
            wb.DeleteCookie("值2")
            e.WriteString(wb.Build) \'生成网页
        End If
    Case "abc.htm"
        Dim wb As new WeUI
        With wb.AddMsgPage("","msgpage","ok","ok!")
            .icon = "Warn" \'改变图标
            .AddButton("btn1","返回").Attribute = "onclick=\'history.back()\'"
        End With
        wb.AppendCookie("值1", e.PostValues("os"))
        wb.AppendCookie("值2", e.PostValues("bw"))
        e.WriteString(wb.Build)
End Select