主题：移动开发PAGE切换问题

Dim e As RequestEventArgs = args(0)

Select Case e.Path

    Case "t1.htm"

        Dim wb As New weui

        wb.AddPage("","page1") '增加两个page

        wb.AddPage("","page2",False) '第二个

        With wb.AddListGroup("page1", "lsg1","简单列表")

            For i As Integer =  0 To 20

                Dim s As String

                s="lg" & i

                .Add(s, "新浪主页" & i).Attribute="""

            Next

        End With

        With wb.AddArticle("page2","ar2")

            .AddTitle("h1","关于易表")

            .AddContent("易表.net介于电子表格和数据库软件之间,它有类似电子表格的界面,同时又有很多数据库软件特有的功能和灵活性,它能将复杂的操作简单化,让普通用户轻松完成复杂的数据管理和统计分析工作.")

            .AddImage("./images/002.jpg")

        End With

        With wb.AddButtonGroup("page2","btg2")

            .Add("btn2", "上一页", "button").Attribute="""

        End With

        e.WriteString(wb.Build) '生成网页

End Select