自定义了页头和页尾，想在以后的页面中直接调用，
红色的代码在不同位置都试用过，都不成功。麻烦老师指点。
httprequest中
Case "default1.htm"
Functions.Execute("htmlheader",e)
Functions.Execute("default1",e)
Functions.Execute("htmlfooter",e)
e.WriteString(wb.Build) '生成网页
htmlheader 内部函数
Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI
wb.AddPageTitle("","ph1","FoxUI","为Foxtable用户量身设计")
e.WriteString(wb.Build) '生成网页
default1内部函数
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
With wb.AddGrid("","g1")
.Add("c1","还书入库", "./images/button.png" ,"./returnbook.htm")
.Add("c2","图书查询", "./images/cell.png", "http://www.foxtable.com")
.Add("c3","借读出库", "./images/toast.png", "http://www.foxtable.com")
End With
e.WriteString(wb.Build) '生成网页
htmlfooter内部函数
Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI
With wb.AddPageFooter("","pf1","Copyright © 2008-2016 foxtable.com")
.AddLink("底部链接","http://www.foxtable.com")
End With
e.WriteString(wb.Build) '生成网页
加好友 
发短信
Post By：2020/5/3 9:25:00 [只看该作者]
