Select Case e.Path
Case "test.htm"
Dim wb As New WeUI
With wb.AddArticle("","ar1")
.AddTitle("h1","大标题")
.AddTitle("h2","<a href='http://www.foxtable.com/'>章标题</a>")
.AddTitle("h3","1.1节标题")
.AddImage("./images/001.jpg")
.AddTitle("h3","1.2节标题")
.AddContent("<a href='http://www.foxtable.com/'>Foxtable</a>将Excel?Access?Foxpro?VB以及易表的优势融合在一起..")
.AddImage("./images/002.jpg")
End With
e.WriteString(wb.Build) '生成网页
End Select
图片参考这种：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=170734&replyID=148374&skin=1
加好友 
发短信
Post By：2021/8/8 20:20:00 [显示全部帖子]
