以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- web如何验证身份证号 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=140680) |
||||
-- 作者:qqhealth -- 发布时间:2019/9/11 11:17:00 -- web如何验证身份证号 老师您好,foxtable通过ValidPIN验证身份证号是否正确,不知在web端输入页面时怎么实现验证?谢谢! |
||||
-- 作者:有点蓝 -- 发布时间:2019/9/11 11:38:00 -- 提交到后台验证 |
||||
-- 作者:qqhealth -- 发布时间:2019/9/11 14:59:00 -- 老师您好,不知后台验证后怎么及时返回验证信息,就是点击保存确定这条记录时,如果有错就提示身份证号有错。谢谢!录入页面代码见附件。
|
||||
-- 作者:有点蓝 -- 发布时间:2019/9/11 15:19:00 -- 比如:http://www.foxtable.com/mobilehelp/topics/0104.htm |
||||
-- 作者:qqhealth -- 发布时间:2019/10/5 12:58:00 -- 老师您好,根据帮助做的代码如下,不知怎么修改,目前没有反应。谢谢! Case "valid.htm" Functions.Execute("valid",e) valid函数: Dim e As RequestEventArgs = args(0) Dim wb As New WeUI If e.PostValues.ContainsKey("出险人证件类型") AndAlso e.PostValues.ContainsKey("出险人证件号码") Or e.PostValues.ContainsKey("申请人证件类型") AndAlso e.PostValues.ContainsKey("申请人证件号码") Then MessageBox.Show(1) If e.PostValues("出险人证件类型") = "身份证" AndAlso ValidPIN(e.PostValues("出险人证件号码") ) = "False" Then e.WriteString("出险人证件号码有误") MessageBox.Show(2) ElseIf e.PostValues("申请人证件类型") = "身份证" AndAlso ValidPIN(e.PostValues("申请人证件号码") ) = "False" Then e.WriteString("申请人证件号码有误") MessageBox.Show(3) Else e.WriteString("OK") MessageBox.Show(4) End If End If e.WriteString(wb.Build) function validit(){ var result=submitAjaxFileds("valid.htm","","出险人证件类型","出险人证件号码","申请人证件类型","申请人证件号码",false); if(result=="OK"){ return true; } else{ showTopTips("toptip1",result,2500); return false; } } |
||||
-- 作者:有点蓝 -- 发布时间:2019/10/6 15:19:00 -- toptip1有添加了吗? wb.AddTopTips("","toptip1","") \'用于显示动态错误提示
|
||||
-- 作者:qqhealth -- 发布时间:2019/10/6 22:21:00 -- 老师您好,在新增收单记录函数里有增加,但是没有报错信息。谢谢! Dim e As RequestEventArgs = args(0) Dim wb As New WeUI \'定义一个基于weui框架的网页生成器 wb.InsertHTML("<h3 align=\'center\' style=\'margin-top:5px\'>收单记录</h3>") If e.PostValues.Count = 0 Then wb.AddToast("","t1", "正在上传",1) \'定义提示 wb.AddTopTips("","toptip1","") \'用于显示动态错误提示 wb.AddForm("","form1","sdjl.htm").Attribute="" With wb.AddInputGroup("form1","ipg1","收单记录") .AddInput("用户名","用户名","text").Value = e.Cookies("username") |
||||
-- 作者:有点蓝 -- 发布时间:2019/10/6 22:37:00 -- 浏览器按f12,学会调试https://www.baidu.com/baidu?word=浏览器+调试 |