Function MyIdentityCardVerify &&校验身份证号是否合法 Lparameters lstr &&参数:lstr 传入的号码 Private lstr,relyn,tsfz,m1,m2,m3,m4,m,I,r,c,ai,wi relyn=.F. &&返回值 tsfz=Alltrim(lstr) *分别用m1,m2,m3,m4表示四个条件是否成立 Stor .T. To m1,m2,m3,m4 *条件1：只能是15或18位 m1=Iif(Len(tsfz)=15 Or
下面看下sqlserver2000身份证校验的代码，具体代码如下所示：
/*
身份校验行数
*/
if exists(select * from sysobjects where name='fun_utils_idnumberoprater' and type='FN')
drop function fun_utils_idnumberoprater
go
create function fun_utils_idnumberoprater
(
idnumber varchar(50)=''
