'''
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 © 2016-2017 okok.com")
.AddLink("鲁ICP备1501-1号","") '如何让底部文字，显示在页面底部?而不是始终显示在屏幕底部
End With
e.WriteString(wb.Build) '生成网页
加好友 
发短信
Post By：2017/6/4 10:40:00 [只看该作者]
此主题相关图片如下：qq图片2017060410360111.png
