一个18位身份证校验计算函数.docVIP

一个18位身份证校验计算函数 因需要对15位旧身份证号码进行升位和校验、查询处理，又没有搜索到现成的函数，于是自己写了一个简单的过程，希望能够帮得上需要的朋友。本函数的功能单一，只能校验第18位号码是否正确或者取得第18位号码，其他功能留给大家自己扩展吧！ % ?Version:??1.0.1?Author: ??sfply( sfply@163.com)?Last Modified:?2004/7/17 12:03?Src是身份证号码,可以是15位也可以是18位,15位时只能返回验证码方式使用?iChk参数取值真假,真代表校验Src是否18位身份证，并且校验第18位是否正确号码而确定是否有效身份证,返回只值为true或false?????? 假代表返回正确的校验码，返回值为(1~x)dim myIdentifymyIdentify = 36050219781218133? response.write chkIdentiyCard(myIdentify,false) Function chkIdentiyCard(Src,iChk)?dim myWi,myAi,mySrc(17),i,myCount?myAi = 10?myWi = split(7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2,,)?if iC