Dim e As RequestEventArgs = args(0)
'通用事件头,用于发送已经存在的常见文件
Dim fl As String = "d:\web\" & e.path
If filesys.FileExists(fl)
Dim idx As Integer = fl.LastIndexOf(".")
Dim ext As String = fl.SubString(idx)
Select Case ext
Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
e.WriteFile(fl)
Return "" '这里必须返回
End Select
End If
'以下是动态生成网页的代码
Select Case e.Path
Case "wyyc.htm"
Dim wb As New weui
wb.AddPageTitle("","pageheader","众和出行","每公里1.5元+每分钟0.2元,日封顶150元")
If e.PostValues.Count = 0 Then
wb.AddForm("","form1","wyyc.htm") '指定接收表单数据的的页面为handle.htm
With wb.AddInputGroup("form1","ipg1","新增出行订单")
With .AddInput("订单编号","订单编号","text")
.Value = Functions.Execute("GetOrderID")
.Readonly = True
End With
With .AddInput("用户手机","用户手机","text")
.Value = e.Cookies("username")
.Readonly = True
End With
With .AddInput("下单时间","下单时间","datetime")
.Value = Date.now()
.Readonly = True
End With
With wb.AddInputGroup("form1","ipg2","选择网点车辆")
With .AddSelect("地区","地区","|" & DataTables("可用车辆").GetComboListString("地区"))
.Attribute = """
End With
With .AddSelect("网点","网点","")
.Attribute = """
End With
With .AddSelect("车牌","车牌","")
.Attribute = """
End With
.AddSelect("车架","车架","")
End With
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build)
Else
Dim nms() As String = {"订单编号","用户手机","下单时间"} '不能为空的列名数组
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) = False Then '生成错误提示页
With wb.AddMsgPage("","msgpage","增加失败", nm & "列不能为空!")
.icon = "Warn" '改变图标
.AddButton("btn2","返回").Attribute = ""
End With
e.WriteString(wb.Build)
Return"" '必须返回
End If
Next
nms = New String() {"订单编号","用户手机","下单时间","地区","取车网点","车牌","车架"} '重新定义了nms数组,增加了两列.
Dim dr As DataRow = DataTables("订单").AddNew()
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) Then
dr(nm) = e.PostValues(nm)
End If
Next
dr.save()
With wb.AddMsgPage("","msgpage","下单成功!", "请在30分钟内自行取车,超过时间将收取5元退单费用") '生成成功提示页
.AddButton("btn2","导航前往","http://www.99cgt.cn")
.AddButton("btn3","寻车","http://www.99cgt.cn")
.AddButton("btn4","开门").Attribute = """
With wb.AddDialog("","dlg1", "","")
.AddButton("btnOK","确定用车")
End With
e.WriteString(wb.Build) '生成网页
End With
e.WriteString(wb.Build)
End If
Case "getProducts.htm"
Dim vals As String
If e.PostValues.Count = 1 Then
vals = "|" & DataTables("可用车辆").GetComboListString("网点","地区='" & e.PostValues("地区") & "'")
ElseIf e.PostValues.Count = 2 Then
Dim Filter As String = "地区='" & e.PostValues("地区") & "' And 网点='" & e.PostValues("网点") & "'"
vals = "|" & DataTables("可用车辆").GetComboListString("车牌", Filter)
ElseIf e.PostValues.Count = 3 Then
Dim Filter1 As String = "网点='" & e.PostValues("网点") & "' And 车牌='" & e.PostValues("车牌") & "'"
vals = "|" & DataTables("可用车辆").GetComboListString("车架", Filter1)
End If
e.WriteString(vals)
End Select
表格如下:
如下图,二三级列表出不来,同样的代码复制到httpredet中是正常的
[此贴子已经被作者于2020/8/19 10:36:40编辑过]