asp中验证文本框输入字符个数的函数

我想验证当前输入的身份证号码是否是正确的要怎么验证请贴出源码给高分... 我想验证当前输入的身份证号码是否是正确的要怎么验证请贴出源码给高分 展开
 我来答
月半的缪染染0C
2006-11-28 · TA获得超过109个赞
知道小有建树答主
回答量:201
采纳率:0%
帮助的人:130万
展开全部
一般ASP中的验证都是由JS代码实现的

<script>
function checkIdcard(idcard){
var Errors=new Array(
"验证通过!",
"身份证号码位数不对!",
"身份证号码出生日期超出范围或含有非法字符!",
"身份证号码校验错误!",
"身份证地区非法!"
);
var area={11:"北京",12:"天津",13:"河北",14:"山西",15:"内蒙古",21:"辽宁",22:"吉林",23:"黑龙江",31:"上海",32:"江苏",33:"浙江",34:"安徽",35:"福建",36:"江西",37:"山东",41:"河南",42:"湖北",43:"湖南",44:"广东",45:"广西",46:"海南",50:"重庆",51:"四川",52:"贵州",53:"云南",54:"西藏",61:"陕西",62:"甘肃",63:"青海",64:"宁夏",65:"新疆",71:"台湾",81:"香港",82:"澳门",91:"国外"}

var idcard,Y,JYM;
var S,M;
var idcard_array = new Array();
idcard_array = idcard.split("");
//地区检验
if(area[parseInt(idcard.substr(0,2))]==null) return Errors[4];
//身份号码位数及格式检验
switch(idcard.length){
case 15:
if ( (parseInt(idcard.substr(6,2))+1900) % 4 == 0 || ((parseInt(idcard.substr(6,2))+1900) % 100 == 0 && (parseInt(idcard.substr(6,2))+1900) % 4 == 0 )){
ereg=/^[1-9][0-9]{5}[0-9]{2}((01|03|05|07|08|10|12)(0[1-9]|[1-2][0-9]|3[0-1])|(04|06|09|11)(0[1-9]|[1-2][0-9]|30)|02(0[1-9]|[1-2][0-9]))[0-9]{3}$/;//测试出生日期的合法性
} else {
ereg=/^[1-9][0-9]{5}[0-9]{2}((01|03|05|07|08|10|12)(0[1-9]|[1-2][0-9]|3[0-1])|(04|06|09|11)(0[1-9]|[1-2][0-9]|30)|02(0[1-9]|1[0-9]|2[0-8]))[0-9]{3}$/;//测试出生日期的合法性
}
if(ereg.test(idcard)) return Errors[0];
else return Errors[2];
break;
case 18:
//18位身份号码检测
//出生日期的合法性检查
//闰年月日:((01|03|05|07|08|10|12)(0[1-9]|[1-2][0-9]|3[0-1])|(04|06|09|11)(0[1-9]|[1-2][0-9]|30)|02(0[1-9]|[1-2][0-9]))
//平年月日:((01|03|05|07|08|10|12)(0[1-9]|[1-2][0-9]|3[0-1])|(04|06|09|11)(0[1-9]|[1-2][0-9]|30)|02(0[1-9]|1[0-9]|2[0-8]))
if ( parseInt(idcard.substr(6,4)) % 4 == 0 || (parseInt(idcard.substr(6,4)) % 100 == 0 && parseInt(idcard.substr(6,4))%4 == 0 )){
ereg=/^[1-9][0-9]{5}19[0-9]{2}((01|03|05|07|08|10|12)(0[1-9]|[1-2][0-9]|3[0-1])|(04|06|09|11)(0[1-9]|[1-2][0-9]|30)|02(0[1-9]|[1-2][0-9]))[0-9]{3}[0-9Xx]$/;//闰年出生日期的合法性正则表达式
} else {
ereg=/^[1-9][0-9]{5}19[0-9]{2}((01|03|05|07|08|10|12)(0[1-9]|[1-2][0-9]|3[0-1])|(04|06|09|11)(0[1-9]|[1-2][0-9]|30)|02(0[1-9]|1[0-9]|2[0-8]))[0-9]{3}[0-9Xx]$/;//平年出生日期的合法性正则表达式
}
if(ereg.test(idcard)){//测试出生日期的合法性
//计算校验位
S = (parseInt(idcard_array[0]) + parseInt(idcard_array[10])) * 7
+ (parseInt(idcard_array[1]) + parseInt(idcard_array[11])) * 9
+ (parseInt(idcard_array[2]) + parseInt(idcard_array[12])) * 10
+ (parseInt(idcard_array[3]) + parseInt(idcard_array[13])) * 5
+ (parseInt(idcard_array[4]) + parseInt(idcard_array[14])) * 8
+ (parseInt(idcard_array[5]) + parseInt(idcard_array[15])) * 4
+ (parseInt(idcard_array[6]) + parseInt(idcard_array[16])) * 2
+ parseInt(idcard_array[7]) * 1
+ parseInt(idcard_array[8]) * 6
+ parseInt(idcard_array[9]) * 3 ;
Y = S % 11;
M = "F";
JYM = "10X98765432";
M = JYM.substr(Y,1);//判断校验位
if(M == idcard_array[17]) return Errors[0]; //检测ID的校验位
else return Errors[3];
}
else return Errors[2];
break;
default:
return Errors[1];
break;
}

}
alert(checkIdcard("220183198808081610"))
</script>
梦想花開
2006-11-28 · TA获得超过1878个赞
知道大有可为答主
回答量:1865
采纳率:0%
帮助的人:1689万
展开全部

身份证号码按照什么编排的你知道不就行了吗?

可是我也不知道身份证是按照什么规律编的。反正我试过了,
到身份证验证的时候我随便输入就会显示错误,说明他是有
规律的。

建议你去你当地的派出所问问,看看能不能告诉你

晕!!!楼上的只是判断了长度有什么用啊?他说的是真假啊!靠

你要把身份证编排的规律给他才行的!

------我敢说只验证长度绝对不对!不信咱们看楼主最后怎么解决
不信大家可以去身份证归属地网站查查,当你输入你的身份
证号码正确的时候回提示你是那的!!但是当你改变一下你
身份证最后一位号码的时候你就会发现还是会提示你的是错
误的号码!!所以我说验证长度是不对的!
------初学编程的时候老师教你们的时候肯定是教你验证的是长度
但是国家编排身份证号码的时候是有规律的,绝对不是按照
顺序编排的!更不可能只是验证长度就能判断真假的!
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
小乐烜
2006-11-28 · 超过26用户采纳过TA的回答
知道答主
回答量:89
采纳率:0%
帮助的人:0
展开全部
验证只能通过字符的长度,二楼说的对
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
一千馆原创短视频
2006-11-28 · TA获得超过1205个赞
知道小有建树答主
回答量:1105
采纳率:0%
帮助的人:1232万
展开全部
if len(s)<>18 and len(s)<>15 then 错误信息
没看楼主写着要输入字符个数的函数么????
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
流香羽
2006-11-28 · TA获得超过1540个赞
知道小有建树答主
回答量:925
采纳率:50%
帮助的人:1351万
展开全部
简单的使用正则:
Dim CertCode '作为身份证号码
CertCode = request.form("certcode")
If Len(CertCode) = 15 Then
strPattern = "^[1-9]\d{7}((0\d)|(1[0-2]))(([0|1|2]\d)|3[0-1])\d{3}$"
Else Len(CertCode) = 18 Then
strPattern = "[1-9]\d{5}[1-9]\d{3}((0\d)|(1[0-2]))(([0|1|2]\d)|3[0-1])\d{4}$"
Else
response.write "身份证号码错误"
response.end()
End If
Dim regEx
Set regEx = New RegExp
regEx.Global = True
regEx.IgnoreCase = True
rsgEx.Pattern = strPattern
if regEx.Test(CertCode) then
'正确
else
'错误
end if
Set regEx = Nothing
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友dc91b32
2006-11-28 · TA获得超过5650个赞
知道大有可为答主
回答量:5653
采纳率:0%
帮助的人:0
展开全部
同上
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 4条折叠回答
收起 更多回答(5)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式