主题：web开发，AddFoot 生成的超链接，点击后需要弹出确认对话框。

参考

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=126943&skin=0

参考

Select Case e.Path
    Case "test.htm"
        Dim wb As New WeUI
        Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."
        With wb.AddPanelGroup("","pg1","图文组合列表")
            With .Add("pn2","标题二",txt,"./images/search.png")
                .AddFoot("<a href='#' onclick=""if(div1.style.display=='none'){div1.style.display='block'}else{div1.style.display='none'};return false "">详情</a>")
                .AddFoot("<div id='div1' style='display:none'>显示隐藏</div>")               
            End With
        End With
        e.WriteString(wb.Build) '生成网页
End Select