Dim e As RequestEventArgs = args(0) '首页筛选
Select Case e.Path
Case "index_shaix.htm"
Dim wb As New weui
wb.AddTopTips("","toptip1","") '用于显示动态错误提示
'wb.AddPageTitle("","pageheader","郎窝网","本地自助服务,为您婚恋交友之路保驾护航")
With wb.AddArticle("","ar1")
.AddImage("./images/langwo/logo1.jpg")
.Attribute = "style='padding:0em;'"
End With
msgbox(1)
wb.AddForm("","form1","index_shaix.htm")
With wb.AddInputGroup("form1","ipg1","首页筛选设置(都是选填哦!)")
.AddSelect("zxnl","最小年龄","|18|19|20|21|22|23|24|25|26|27|28|29|30|31|32|33|34|35|40|50|60")
.AddSelect("zdnl","最大年龄","|18|19|20|21|22|23|24|25|26|27|28|29|30|31|32|33|34|35|40|50|60|99")
.AddSelect("tdxl","TA的学历","|初中或高中|大专|本科|硕士或博士")
.AddSelect("hyzk","婚姻状况","|未婚|已婚|离异|丧偶")
msgbox(2)
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定","button").Attri-bute="onclick='validit_index_shaix()'"
End With
End With
msgbox(3)
wb.AppendHTML("<script src='./lib/ajaxform_index_shaix.js'></script>") '引入脚本文件
msgbox(4)
e.WriteString(wb.Build) '生成网页
End Select
[此贴子已经被作者于2017/4/18 16:30:39编辑过]
加好友 
发短信
Post By：2017/4/18 16:30:00 [显示全部帖子]
