老师问的获得取得验证是With .AddInputCell("ic4") '通过InputCell增加输入框
.AddLabel("dh","联系电话:",0) '增加标签,0显示在左边
.AddInput("电话","text",1) '增加输入框,1表示显示在中间
.AddVcodeButton("hqyzm","获取验证码",2) '增加获取验证码按钮,2表示显示在右边
End With
红色为输入的电话,我点蓝色获得取验证码通过API下发随机难验证代码到手机,如何获到电话呢,因为还没提交
Dim btn4=.Add("btn4", "获取验证码","submit")
btn4.value="btn4"
btn4.kind=1
End With
e.WriteString(wb.Build) '生成网页
Else
If e.PostValues.ContainsKey("btn4") And e.PostValues("电话").length=11
Dim yzm As String = Rand.Next(1000, 9999)
Dim hc As New HttpClient("http://fesms.market.alicloudapi.com/sms/?code=" & yzm & "&ph电话") & "&skin=1&sign=175622")
hc.Headers.Add("Authorization","APPCODE" & " " & "5b33f5a0475d45df9ba68479b15f3")
Dim result As String = hc.GetData()
Dim jo As JObject = Jobject.Parse(result)
If jo("Message")="OK" Then
With wb.AddMsgPage("","msgpage","验证码已发送至您的手机", "请查看并输入到手机验证")
.icon = "Warn" '改变图标
.AddButton("btn1","返回").Attribute = ""
End With
End If
e.WriteString(wb.Build)
Return '必须返回
End If
If ValidPIN(e.postvalues("身份证号"))= False
With wb.AddMsgPage("","msgpage","注册失败", "身份证号不正确或不规范,这个很重要,务必正确")
.icon = "Warn" '改变图标
.AddButton("btn1","返回").Attribute = ""
End With
e.WriteString(wb.Build)
Return '必须返回
End If
我想了个直接方法到是解决了,但我想能不能将AddVcodeButton也设置为sumit呢,但我看是一个A标签,有什么办法解决呢,如能解决就不用加一个键了且更直观
[此贴子已经被作者于2020/2/5 19:16:47编辑过]