asp身份验证代码功能
身份验证代码功能功能checkcardid（E）
arrverifycode =分裂（1,0，X，9,8,7,6,5,4,3,2
Wi =分裂（7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2
检查组分（1,9,8,7,6,5,4,3,2,1,1
如果Len（e）18，那么
checkcardid =身份证号码是15码或18位
checkcardid = false
退出功能
最后如果
朦胧的爱
如果Len（e）＝18
ai =中（E，1, 17）
ElseIf Len（E）= 15
AI = E
ai =左（ai，6）19中（ai，7, 9）
最后如果
如果Not IsNumeric（Ai）然后
checkcardid =身份证除了最后一个，必须是一个数字！
退出功能
最后如果
昏暗的stryear，strmonth，strday
stryear = Cint（MID（AI，7, 4））
strmonth = Cint（MID（AI，11, 2））
strday = Cint（MID（AI，13, 2））
生日=装饰（stryear）+-+装饰（strmonth）+-+装饰（strday）
如果IsDate（生日）然后
如果DateDiff（yyyy
checkcardid =ID卡输入错误！
退出功能
最后如果
如果strmonth或strday然后31 > > 12
checkcardid =ID卡输入错误！
退出功能
最后如果
其他的
checkcardid =ID卡输入错误！
退出功能
最后如果
朦胧的我，totalmulaiwi
对于我= 0比16
totalmulaiwi = totalmulaiwi + Cint（中（Ai，我+ 1, 1））*无线（我）
下一个
昏暗的modvalue
modvalue = totalmulaiwi mod 11
昏暗的strverifycode
strverifycode = arrverifycode（modvalue）
AI = Ai strVerifyCode
checkcardid =爱
如果Len（e）= 18和E < Ai Then
CheckCardId= ID card number input error!
退出功能
最后如果
端功能
Response.write CheckCardId（528337194801020025）'''''''''我谁也不认识这个ID，我试试。哈哈
如果返回是输入身份证，那是正确的，否则会提示错误…