函數|函數 因需要對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 myIdentify
myIdentify = "36050219781218133?"
response.write chkIdentiyCard(myIdentify,false)
Function chkIdentiyCard(Src,iChk)
dim myWi,myAi,mySrc(17),i,myCount
myAi = "10X98765432"
myWi = split("7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2",",")
if iChk then
if len(Src) = 18 then
for i = 0 to 16
mySrc(i) = mid(Src,i+1,1)
myCount = myCount + mySrc(i) * myWi(i)
next
if mid(myAi,(mycount mod 11)+1,1) = right(Src,1) then
chkIdentiyCard = true '返回結果，TRUE為合法身份證驗證碼
else
chkIdentiyCard = false '返回結果，FALSE為非法身份證驗證碼
end if
else
chkIdentiyCard = false '因為不是18位身份證所以返回FALSE
end if
else
if len(Src) = 15 or len(Src) = 18 then
if len(Src) = 15 then Src = mid(Src,1,6) & "19" & mid(Src,7,9)
for i = 0 to 16
mySrc(i) = mid(Src,i+1,1)
myCount = myCount + mySrc(i) * myWi(i)
next
chkIdentiyCard = mid (myAi,(mycount mod 11)+1,1) '返回正確的驗證碼
else
chkIdentiyCard = false '輸入不不是15位或18位社會安全號碼
end if
end if
End Function
%>
關於身份證第18是怎麼計算的，原理如下
根據〖中華人民共和國國家標準 GB 11643-1999〗中有關公民身份號碼的規定，公民身份號碼是特徵組合碼，由十七位元字本體碼和一位元字校正碼組成。排列順序從左至右依次為：六位元字地址碼，八位元字出生日期碼，三位元字順序碼和一位元字校正碼。
地址碼錶示編碼對象常住戶口所在縣(市、旗、區)的行政區劃代碼。生日期碼錶示編碼對象出生的年、月、日，其中年份用四位元字表示，年、月、日之間不用分隔字元。順序碼錶示同一地址碼所標識的地區範圍內，對同年、月、日出生的人員編定的順序號。順序碼的奇數分給男性，偶數分給女性。校正碼是根據前面十七位元字碼，按照ISO 7064:1983.MOD 11-2校正碼計算出來的檢驗碼。下面舉例說明該計算方法。
15位的身份證編碼首先把出生年擴充為4位，簡單的就是增加一個19，但是這對於1900年出生的人不使用（這樣的壽星不多了）
某男性公民身份號碼本體碼為34052419800101001，首先按照公式⑴計算：
∑(ai×Wi)(mod 11)……………………………………(1)
公式(1)中：
i----表示號碼字元從由至左包括校正碼在內的位置序號；
ai----表示第i位置上的號碼字元值；
Wi----示第i位置上的加權因子，其數值依據公式Wi=2（n-1）(mod 11)計算得出。
i 18 17 16 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1
ai 3 4 0 5 2 4 1 9 8 0 0 1 0 1 0 0 1 a1
Wi 7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2 1
ai×Wi 21 36 0 25 16 16 2 9 48 0 0 9 0 5 0 0 2 a1
根據公式(1)進行計算：
∑(ai×Wi) =（21+36+0+25+16+16+2+9+48++0+0+9+0+5+0+0+2) = 189
189 ÷ 11 = 17 + 2/11
∑(ai×Wi)(mod 11) = 2
然後根據計算的結果，從下面的表中查出相應的校正碼，其中X表示計算結果為10：
∑(ai×WI)(mod 11) 0 1 2 3 4 5 6 7 8 9 10
校正碼字元值ai 1 0 X 9 8 7 6 5 4 3 2
根據上表，查出計算結果為2的校正碼為所以該人員的公民身份號碼應該為 34052419800101001X。
a[0]*7+a[1]*9+a[2]*10+a[3]*5+a[4]*8+a[5]*4+a[6]*2+a[7]*1+a[8]*6+a[9]*3
+a[10]*7+a[11]*9+a[12]*10+a[13]*5+a[14]*8+a[15]*4+a[16]*2
%11
