asp身份证验证代码函数
2017-02-06
32
身份证验证代码函数 FunctionCheckCardId(e) arrVerifyCode=Split("1,0,x,9,8,7,6,5,4,3,2",",") Wi=Split("7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2",",") Checker=Split("1,9,8,7,6,5,4,3,2,1,1",",") IfLen(e)<15OrLen(e)=16OrLen(e)=17OrLen(e)>18The...