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

老师您好，foxtable通过ValidPIN验证身份证号是否正确，不知在web端输入页面时怎么实现验证？谢谢！

老师您好，不知后台验证后怎么及时返回验证信息，就是点击保存确定这条记录时，如果有错就提示身份证号有错。谢谢！录入页面代码见附件。

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

老师您好，根据帮助做的代码如下，不知怎么修改，目前没有反应。谢谢！

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

e.WriteString(wb.Build)

function validit(){

var result=submitAjaxFileds("valid.htm","","出险人证件类型"，"出险人证件号码"，"申请人证件类型"，"申请人证件号码",false);

if(result=="OK"){

return true;

}

else{

showTopTips("toptip1",result,2500);

return false;

}

老师您好，在新增收单记录函数里有增加，但是没有报错信息。谢谢!

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")

主题：web如何验证身份证号