- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 自定义了页头和页尾，想直接调用，但不成功 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=149463)
-- 发布时间：2020/5/3 9:25:00
-- 自定义了页头和页尾，想直接调用，但不成功
自定义了页头和页尾，想在以后的页面中直接调用，
红色的代码在不同位置都试用过，都不成功。麻烦老师指点。
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) \'生成网页
-- 发布时间：2020/5/3 9:32:00
--
应该将wb也作为参数传到自定义函数中：
Dim e As RequestEventArgs = args(0)
Dim wb As WeUI = args(1)
wb.AddPageTitle("","ph1","FoxUI","为Foxtable用户量身设计")
HttpRequest事件：
Dim wb As WeUI
Functions.Execute("函数", e, wb)
\'其他代码
e.WriteString(wb.Build) \'生成网页
-- 发布时间：2020/5/3 15:47:00
--
老师您好，按照您的方法改完，运行页面后，提示如下
此主题相关图片如下：360截图20200503154411504.jpg
此主题相关图片如下：360截图20200503154344993.jpg
此主题相关图片如下：360截图20200503154330225.jpg
此主题相关图片如下：360截图20200503154425240.jpg
此主题相关图片如下：360截图20200503154433705.jpg
[此贴子已经被作者于2020/5/3 15:48:55编辑过]
-- 发布时间：2020/5/3 15:49:00
--
HttpRequest事件：
Dim wb As New WeUI
Functions.Execute("函数", e, wb)
\'其他代码
e.WriteString(wb.Build) \'生成网页
-- 发布时间：2020/5/3 15:53:00
--
老师出马，一个顶俩,给您点赞。
-- 发布时间：2020/5/5 10:57:00
--
e.WriteString不能重复调用，只能在每个页面返回前调用一次。