以文本方式查看主题

-  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
--  
老师您好,不知后台验证后怎么及时返回验证信息,就是点击保存确定这条记录时,如果有错就提示身份证号有错。谢谢!录入页面代码见附件。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:求助.txt


--  作者:有点蓝
--  发布时间: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=浏览器+调试