Dim e As RequestEventArgs = args(0) '注册第1页,注册
If e.PostValues.Count = 0 Then
Dim wb As New weui
wb.AddTopTips("","toptip1","") '用于显示动态错误提示
wb.AddForm("","form1","register.htm").Attri-bute="on-submit='re-turn validit_register()'"
With wb.AddInputGroup("form1","ipg1","快速注册")
With .AddInputCell("ic1") '通过InputCell增加输入框(1表示突出显示,2表示红色警示图标)
.AddLabel("lsj","手机",0) '增加标签(0显示在左边)
.AddInput("isj","text",1).PlaceHolder= "请输入手机号" '增加输入框(0靠左显示,1居中显示,2靠右显示)
End With
With .AddInputCell("ic2")
.AddLabel("lyz","验证",0)
.AddInput("iyz","text",1).PlaceHolder= "请输入验证码"
.AddVcodeButton("vyz","获取验证码",2).Attri-bute="on-click='validit_register_fasongduanxin()'" '0靠左显示,1居中显示,2靠右显示
End With
With .AddInputCell("ic3")
.AddLabel("lmm","密码",0)
.AddInput("imm","text",1).PlaceHolder= "请输入密码"
End With
With .AddInputCell("ic4")
.AddLabel("lyqm","邀请码",0)
.AddInput("iyqm","text",1).PlaceHolder= "请填写邀请码,非必填!"
End With
.AddSelect("sxb","我的性别","注册后,性别不可更改!|男|女")
'wb.InsertHTML("友情提醒:注册后,性别不可更改!")
.AddSwitch("fuwuxieyi","同意协议").Value = "是"
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "点此注册", "submit")
.Add("btn2", "服务协议", "","/protocol.htm").Kind = 1
End With
End With
If e.Cookies.ContainsKey("isj") '如果存在名为isj的Cookie,即已经登录
With wb.AddDialog("","dlg1", "温馨提示","您已经登录,会员中心退出后再注册!将自动跳转到会员中心!")
.AddButton("btnOK","确定","/personal.htm")
End With
wb.AppendHTML("<script>show('dlg1')</script>")
e.WriteString(wb.Build) '生成网页
Return "" '必须的
End If
wb.AppendHTML("<script src='./lib/ajaxform_register_fasongduanxin.js'></script>") '引入脚本文件
wb.AppendHTML("<script src='./lib/ajaxform_register.js'></script>") '引入脚本文件
e.WriteString(wb.Build)
End If
加好友 
发短信
Post By：2017/6/28 9:29:00 [只看该作者]
此主题相关图片如下：qq图片20170628092217777.png