以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  PageFooter'如何让底部文字,显示在页面底部?而不是始终显示在屏幕底部  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101619)

--  作者:zhangjian222200
--  发布时间:2017/6/4 10:40:00
--  PageFooter'如何让底部文字,显示在页面底部?而不是始终显示在屏幕底部
PageFooter盖住部分文字,怎么办?
在有些页面还盖住按钮,导致无法点击按钮


图片点击可在新窗口打开查看此主题相关图片如下:qq图片2017060410360111.png
图片点击可在新窗口打开查看

代码如下:
\'\'\'
Dim e As RequestEventArgs = args(0)                             \'关于我们
Dim wb As New WeUI
With wb.AddTabBar("", "tb1",1)                            \'使用TabBar,增加4个按钮(注:页面可以增加,但不考虑)
    .AddButton("bt1","首页","./images/a.png","/index.htm")  \'.Attribute = ""
    .AddButton("bt2","设置","./images/b.png","/per_chakanshezhi.htm")
    .Addpage("bt3","当前","./images/c.png")
    .AddButton("bt4","我的","./images/d.png","/personal.htm")
    \'.Attribute = "style=\'height:55px\'"
End With

wb.AddPageTitle("bt3","pageheader","***","******************")
With wb.AddArticle("bt3","ar1")
    .AddTitle("h1","关于我们")
    .AddContent("本站将以手机站建设为主,所以重点推荐使用手机浏览我站,方法是关注微信号:***,参与即可。")
End With

wb.InsertHTML("bt3","<p style=\'text-align:center;\'><strong><span style=\'color:#ff0000;font-family:SimHei;font-size:32px;\'>TEL:0518-12345678</span></strong> </p>")

With wb.AddPageFooter("bt3","pf1","Copyright &copy; 2016-2017 okok.com")
    .AddLink("鲁ICP备1501-1号","") \'如何让底部文字,显示在页面底部?而不是始终显示在屏幕底部
End With
e.WriteString(wb.Build) \'生成网页
[此贴子已经被作者于2017/6/4 11:21:21编辑过]

--  作者:zhangjian222200
--  发布时间:2017/6/4 15:24:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:qq图片2017060415225555.png
图片点击可在新窗口打开查看

--  作者:有点色
--  发布时间:2017/6/4 15:40:00
--  

 参考

 

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