主题：请教：微信动态列表的问题

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

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

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

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

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

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

3、6楼的js代码要删除。

参考代码

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