Select Case e.Path
Case "addnew.htm"
If e.PostValues.Count = 0 Then
Dim wb As New weui
wb.AddTopTips("","toptip1","") '用于显示动态错误提示
wb.AddForm("","form1","addnew.htm")
With wb.AddInputGroup("form1","ipg1","新增订单")
.AddSelect("产品","产品","|PD01|PD02|PD03")
.AddInput("数量","数量","number")
.AddInput("单价","单价","number").Step = 0.1
.AddInput("折扣","折扣","number").Step = 0.01
With .AddUploader("up1","图片",True)
.TextPosition = 0 '标题靠左
.AddImage("./images/shuqi2.jpg")
End With
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定","button").Attribute="onclick='submitForm()'"
End With
wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
e.WriteString(wb.Build)
Else
e.WriteString("OK")
End If
Case "msg.htm"
Dim wb As New weui
With wb.AddMsgPage("","msgpage","增加成功", "谢谢提交!") '增加订单成功提示信息,请领取打印标签
.AddButton("btn2","继续增加","addnew.htm")
' .AddButton("btn2","返回列表","list.htm") '列表未做好,先不开放
End With
e.WriteString(wb.Build)
End Select
js
function submitForm(){
var result = submitAjaxForm('form1','afterSubmit',true);
}
function afterSubmit(result){
if (result=='OK') {
location="msg.htm";
}
}
加好友 
发短信
Post By：2019/4/23 22:24:00 [显示全部帖子]
