Select Case e.Path
Case "test.htm"
Dim wb As New weui
For i As Integer = 1 To 5
With wb.AddArticle("","ar1")
.AddImage("./images/00" & i & ".jpg")
End With
wb.AddForm("","form" & i,"test.htm")
With wb.AddInputGroup("form1","ipg1")
.AddInput("xm" & i,"年龄","text")
.AddInput("pw" & i,"城市","text")
End With
With wb.AddButtonGroup("form" & i,"btg1",False)
.Add("btn1" & i, "确定", "submit")
.Add("btn12" & i, "确定", "submit")
End With
Next
e.WriteString(wb.Build) '生成网页
End Select
加好友 
发短信
Post By：2017/3/5 9:58:00 [显示全部帖子]
