Select Case e.Path

    Case "test.htm"

        Dim wb As New WeUI

        With wb.AddDialog("","dlg1", "提示","您的订单正在派送,请注意查收!")

            .AddButton("btnok","确定","edit.htm")

        End With

        Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."

dim r as row = tables("表A").rows(0)

        With wb.AddPanelGroup("","pg1","图文组合列表")

            With .Add("pn1","标题二",txt,"./images/search.png") \'带子链接

                .AddFoot("文字来源1")

                .AddFoot("时间1")

                .AddFoot("<a onclick=""myshow(\'dlg1\',\'" & r("_Identify") & "\')"" style=\'color:blue\'>|其他信息1</a>","")

            End With

r  = tables("表A").rows(1)

            With .Add("pn2","标题二",txt,"./images/search.png") \'带子链接

                .AddFoot("文字来源")

                .AddFoot("时间")

                .AddFoot("<a onclick=""myshow(\'dlg1\',\'" & r("_Identify") & "\')"" style=\'color:blue\'>|其他信息2</a>","")

            End With

        End With

                wb.AppendHTML("<script src=\'./test.js\'></script>") 

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

    Case "edit.htm"

        e.WriteString(e.GetValues("id"))

End Select