Dim e As RequestEventArgs = args(0) '注册第3页,完善资料
Dim wb As New weui
With wb.AddTabBar("", "tb1",1) '使用TabBar,增加4个按钮(注:页面可以增加,但不考虑)
.AddButton("bt1","首页","./images/a.png","/index.htm") '.Attribute = ""
.AddButton("bt2","城市","./images/b.png","/city.htm")
.Addpage("bt3","当前","./images/c.png")
.AddButton("bt4","我的","./images/d.png","/personal.htm")
'.Attribute = "style='height:55px'"
End With
wb.AddTopTips("bt3","toptip1","") '用于显示动态错误提示
Dim username As String =e.Cookies("isj") '定义,用户名(手机号)(从httprequest事件获取手机号,以备完善信息)
Dim dr As DataRow '定义会员所在的行
If e.Cookies.ContainsKey("isj") '如果存在名为isj的Cookie,即已经登录
dr = DataTables("会员资料").sqlFind("手机 = '" & username & "'") '说明:查找手机号,所在的行
End If
Dim nicheng As String = dr("昵称") '定义,昵称
Dim shengri As String = dr("我的生日") '定义,生日
Dim hunyzk As String = dr("婚姻状况") '定义,婚姻状况
Dim xueli As String = dr("学历") '定义,学历
Dim shengao As String = dr("身高") '定义,身高
Dim tixing As String = dr("体型") '定义,体型
Dim yuexing As String = dr("月薪") '定义,月薪
wb.AddForm("bt3","form1","per_xiangxi").Attri-bute="on-submit='re-turn validit_per_xiangxi()'"
With wb.AddInputGroup("form1","ipg1","详细资料")
With .AddInput("nic","昵称","text") '常规语法增加输入框
.value = nicheng
End With
With .AddInputCell("ic1",0) '通过InputCell增加输入框(1表示突出显示,2表示红色警示图标)
.AddLabel("lsr","我的生日",0) '增加标签(0显示在左边)
With .AddInput("isr","date",1) '增加输入框(0靠左显示,1居中显示,2靠右显示)
.value = shengri
End With
End With
.AddSelect("shyzk","婚姻状况","|未婚|已婚|离异|丧偶")
.AddSelect("sxl","学历","|初中|高中|大专|本科|硕士|博士")
.AddSelect("ssg","身高","|150及以下|151|152|153|154|155|156|157|158|159|160|161|162|163|164|165|166|167|168|169|170|171|172|173|174|175|176|177|178|179|180|181|182|183|184|185|186|187|188|189|190以上")
.AddSelect("stx","体型","|瘦瘦的|苗条|匀称|丰满|胖胖的")
.AddSelect("syx","月薪","|3000元以下|3001~5000|5001~8000|8001~10000|10001以上")
With wb.AddButtonGroup("bt3","btg1",True)
.Add("btn1", "确定","submit")
End With
End With
wb.AppendHTML("<script src='./lib/auto_display.js'></script>") '引入脚本文件
wb.AppendHTML("<script>auto_display(""shyzk"",""" & hunyzk & """)</script>") '引入脚本文件(婚姻状况)
wb.AppendHTML("<script>auto_display(""sxl"",""" & xueli & """)</script>") '引入脚本文件(学历)
wb.AppendHTML("<script>auto_display(""ssg"",""" & shengao & """)</script>") '引入脚本文件(身高)
wb.AppendHTML("<script>auto_display(""stx"",""" & tixing & """)</script>") '引入脚本文件(体型)
wb.AppendHTML("<script>auto_display(""syx"",""" & yuexing & """)</script>") '引入脚本文件(月薪)
wb.AppendHTML("<script src='./lib/ajaxform_per_xiangxi.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页
加好友 
发短信
Post By：2017/6/5 16:15:00 [只看该作者]
