Select Case e.Path
Case
"test.htm"
Dim wb As New WeUI
With
wb.AddArticle("","ar1")
.AddTitle("h1","大标题")
.AddTitle("h2","章标题")
.AddTitle("h3","1.1节标题")
.AddContent("Lorem ipsum
dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt
ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud
exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis
aute")
.AddImage("./images/001.jpg")
.AddTitle("h3","1.2节标题")
.AddContent("Foxtable将Excel、Access、Foxpro、VB以及易表的优势融合在一起，无论是数据录入、查询、统计，还是报表生成，都前所未有的强大和易用，普通用户无需编写任何代码，即可轻松完成复杂的数据管理工作，真正做到拿来即用。")
.AddImage("./images/002.jpg")
End With
e.WriteString(wb.Build)
'生成网页
End
Select
[此贴子已经被作者于2018/11/26 22:11:33编辑过]
加好友 
发短信
Post By：2018/11/26 21:34:00 [只看该作者]
