Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim div As String = FileSys.ReadAllText(ProjectPath & "\qz.txt")
wb.InsertHTML("<script>" & vars("xingmingduoxuan") & "</script>")
If e.PostValues.Count = 0 Then
wb.AddPageTitle("","ph1","稿件登记")
wb.AddForm("","form1","addgaojian.htm")
With wb.AddInputGroup("form1","ipg11","内容信息")
With wb.AddInputGroup("form1","ipg1","文章作者")
.AddInput("文章作者","文章作者","text")
wb.InsertHTML("form1",div)
End With
With wb.AddInputGroup("form1","ipg7","文章内容")
With .AddTextArea("文章内容",8)
End With
End With
End With
With wb.AddButtonGroup("form1","btg1",False)
.Add("btn1", "确定更新", "submit")
.Add("btn2", "取消更新", "submit").FormAction = "default.htm"
End With
e.WriteString(wb.Build) '生成网页
End If
运行效果
此主题相关图片如下：121212.gif
没有办法显示可选项 麻烦老师们看看 指导下 谢谢！
加好友 
发短信
Post By：2021/2/7 14:39:00 [只看该作者]
