Case "zc.htm"
wb.AppendCookie("username","")
wb.AppendCookie("password","")
wb.AppendHTML("<style>.weui_label{width: 75px;text-align: justify;text-align-last: justify;margin-right:25px;color:dodgerblue;}.fox_page_title{color:white;font-size:26px;}.fox_page_header{background-color:dodgerblue;height:60px;}</style>",True)
wb.AppendHTML("<style>.weui_cell_hd weui_cell_primary{width: 75px;text-align: justify;text-align-last: justify;margin-right:25px;color:dodgerblue;}</style>",True)
wb.AppendHTML("<style>.weui_cell_switch .weui_cell_hd{color:dodgerblue;}</style>",True)
wb.AppendHTML("<style>.fox_page_subtitle{color:white;}</style>",True)
wb.AppendHTML("<style>.fox_page_header{whidth:60px;}</style>",True)
wb.AppendCookie("username","")
wb.AppendCookie("password","")
If e.PostValues.Count = 0 Then
wb.AddPageTitle("","ph1","帐号申请注册","请注意本人身份证帐号务必正确")
wb.AddForm("","form2","zc.htm") '.Attribute=""
With wb.AddInputGroup("form2","ipg1","")
Dim Int1=.AddInput("身份证号","身份证号:","text")
Int1.placeholder ="要求与户口本完全一致"
Int1.Attribute = """
.AddInput("姓名","姓 名:","Text").placeholder ="要求与户口本完全一致"
.AddInput("电话","联系电话:","text").placeholder ="要求填写在用有效电话"
.AddSelect("角色","身份属于:"," |学生|教师|班主任|教务主任")
.AddSelect("group", "现在学校:","|" & DataTables("学校信息").SQLGetComboListString("单位全称"))
.AddInput("password","设置密码:","password").placeholder ="请输入6位密码并记住"
With .AddInputCell("ic4") '通过InputCell增加输入框
.AddLabel("电话","联系电话:",0) '增加标签,0显示在左边
.AddInput("dh","text",1) '增加输入框,1表示显示在中间
.AddVcodeButton("hqyzm","获取验证码",2) '增加获取验证码按钮,2表示显示在右边
End With
.AddInput("yzm","手机验证:","namber").placeholder ="请输入短信验证码"
End With
With wb.AddButtonGroup("form2","btg1",False)
Dim bt1=.Add("btn1", "提交", "submit")
bt1.Attribute= ""
bt1.kind=1
Dim bt2=.Add("btn2", "重置", "reset")
bt2.kind=1
Dim bt3=.Add("btn3", "返回","button")
bt3.Attribute = ""
bt3.kind=1
End With
wb.InsertHTML("<p id='yzxx'>验证信息</p>")
wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页
Else
.....
e.WriteString(wb.Build)
End If
Case"yzxx.htm"
Dim yzts As String=""
If e.PostValues("身份证号").length=18
If ValidPIN(e.PostValues("身份证号")) =False
yzts ="身份证号不证确"
End If
End If
e.WriteString(yzts)
Return
另外顺便问一下点这个获取验证码，我是用API来获取，这个代码应该写在哪里？
.AddVcodeButton("hqyzm","获取验证码",2) '增加获取验证码按钮,2表示显示在右边
加好友 
发短信
Post By：2020/2/5 9:11:00 [只看该作者]
