换种方式添加图片
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("<div style='width:100%;text-align:center;'><img src='./images/001.jpg'></div>")
End With
e.WriteString(wb.Build) '生成网页
End Select