Dim e As RequestEventArgs = args(0)Dim wb As New weui
wb.AddForm("","form1","handle.htm") '指定接收表单数据的的页面为handle.htm
With wb.AddInputGroup("form1","ipg1","新增订单")
.AddInput("l","长","number")
.AddInput("d","宽","number")
With .AddInputCell("ic4") '通过InputCell增加输入框
.AddLabel("hou","厚",0) '增加标签,0显示在左边
.AddInput("h","number",1).Attribute = ""
.AddVcodeButton("hym","刷新",2) .Attribute = ""
End With
.AddInput("规格","规格","text")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "button")
End With
'wb.AppendHTML("<div id='p1' style='margin:0.5em'></div>") '插入一个div,用于显示服务器返回的页面
'wb.AppendHTML("<div hidden id='p2' style='margin:0.5em'></div>") '插入一个div,用于显示服务器返回的页面
wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
e.WriteString(wb.Build)
handle.htm
Dim e As RequestEventArgs = args(0)
Dim nms() As String = {"l","d","h"}
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) = False Then
e.WriteString("请输入" & nm & "!") '返回错误消息
' Return '必须返回
End If
Next
Dim gg As String = e.PostValues("l") & "*" & e.PostValues("d") & "*" & e.PostValues("h")
e.WriteString(gg) '返回增加成功消息
function mytest(){
var result= submitAjaxFileds('handle.htm','','l','d','h',false);
document.getElementById("规格").value=result;
}