移动端身份证验证 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim Int1=.AddInput("身份证号","身份证号:","text")

老师：请问我想在这个移动端身份证号输入框中实现

1、像ValidPIN能验证身份证是否正确，错误而提示

2、像textchanged能利用输入到18位时判断后台数据是否有这个号否存在，存在则提示

看了些js例子，写不来，请老师写一个，谢谢

[此贴子已经被作者于2020/2/5 9:14:30编辑过]

老师，我看一下 setAjaxOptions，我想先学习下这个方式试一下，现在的情况是将身份号输入完后页面就一直闪，调不出来了，请问哪里有问题？

第一步

Dim Int1=.AddInput("身份证号","身份证号:","text")

Int1.placeholder ="要求与户口本完全一致"

int1.Attribute = """

第二步

wb.InsertHTML("<p id='yzxx'>验证信息</p>")

第三步

Case"yzxx.htm"

Dim yzts As String=""

If e.PostValues("身份证号").length=18

If ValidPIN(e.PostValues("身份证号")) =False

yzts ="身份证号不证确"

End If

e.WriteString(yzts)

[此贴子已经被作者于2020/2/5 10:06:39编辑过]

现在没有闪了，但没有达到效果，输入完错误18位身证号后p没有显示返回提示，而是直接执行了else（。。。）后的内容

现在是当输入18位错误身份证号P的内容没有变成返回的错误信息，而是执行else（。。。）的内容了

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

e.WriteString(yzts)

Return

另外顺便问一下点这个获取验证码，我是用API来获取，这个代码应该写在哪里？

.AddVcodeButton("hqyzm","获取验证码",2) '增加获取验证码按钮,2表示显示在右边

[此贴子已经被作者于2020/2/5 11:00:44编辑过]

说我重复提交了，我上传了的

下载信息 [文件大小：下载次数： ]
点击浏览该文件:test1.txt

function validit(){

var result=submitAjaxFileds("valid.htm","","身份证号","姓名","电话",false);

if(result=="OK"){

return true;

}

else{

showTopTips("toptip1",result,2500);

return false;

}

下载信息 [文件大小：下载次数： ]
点击浏览该文件:text2.txt

此主题相关图片如下：qq图片20200205152125.png

我用http://www.foxtable.com/mobilehelp/topics/0103.htm这个例子试，应该传有数据了，但出现图中这个情况是什么原因

[此贴子已经被作者于2020/2/5 15:23:17编辑过]

哦，不过我认为下拉也是个字符串过去，我反一个字符串试一下，我的疑惑是为什么成了一串CSS

老师问的获得取得验证是

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编辑过]

主题：移动端身份证验证