- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- web开发，AddFoot 生成的超链接，点击后需要弹出确认对话框。 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=127635)
-- 发布时间：2018/11/18 19:28:00
-- web开发，AddFoot 生成的超链接，点击后需要弹出确认对话框。
web开发，AddFoot 生成的超链接，点击后需要弹出确认对话框。
普通超链接这样就行
<a href="#" onclick="fun1()">你有一个礼物</a>
但怎么把它放到AddFoot 里面呢？-- 发布时间：2018/11/19 0:08:00
--
参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=126943&skin=0
-- 发布时间：2018/11/19 8:49:00
--
这个帖子没有我需要的内容呢
-- 发布时间：2018/11/19 8:55:00
--
参考
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