Select Case e.Path
Case
"test.htm"
Dim wb As New weui
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","动态列表")
With .AddSelect("国家","国家","|[中国]|德国|日本")
.Attribute = "2">品牌','getBrands.htm','国家',false)"""
End
With
.AddSelect("品牌","品牌","")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1",
"确定",
"submit")
End With
e.WriteString(wb.Build)
'生成网页
Case "getBrands.htm"
Dim pps As String = DataTables("汽车").GetComboListString("品牌","国家='" & e.PostValues("国家") & "'")
e.WriteString(pps)
End Select
要先选择国家下面品牌才有内容,有没有办法一进入网页如果国家有内容品牌就有对应的内容