因需要對(duì)15位舊身份證號(hào)碼進(jìn)行升位和校驗(yàn)、查詢處理，又沒(méi)有搜索到現(xiàn)成的函數(shù)，于是自己寫了一個(gè)簡(jiǎn)單的過(guò)程，希望能夠幫得上需要的朋友。
本函數(shù)的功能單一，只能校驗(yàn)第18位號(hào)碼是否正確或者取得第18位號(hào)碼，其他功能留給大家自己擴(kuò)展吧！

<%
'  Version:  1.0.1
' Author:   sfply(sfply@163.com)
' Last Modified: 2004/7/17 12:03
' Src是身份證號(hào)碼,可以是15位也可以是18位,15位時(shí)只能返回驗(yàn)證碼方式使用
' iChk參數(shù)取值真假,真代表校驗(yàn)Src是否18位身份證，并且校驗(yàn)第18位是否正確號(hào)碼而確定是否有效身份證,返回只值為true或false
'       假代表返回正確的校驗(yàn)碼，返回值為(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  '返回結(jié)果，TRUE為合法身份證驗(yàn)證碼
   else
    chkIdentiyCard = false  '返回結(jié)果，F(xiàn)ALSE為非法身份證驗(yàn)證碼
   end if
  else
   chkIdentiyCard = false   '因?yàn)椴皇?8位身份證所以返回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) '返回正確的驗(yàn)證碼
  else
   chkIdentiyCard = false        '輸入不不是15位或18位身份證號(hào)
  end if  
end if
End Function
%>

關(guān)于身份證第18是怎么計(jì)算的，原理如下

  根據(jù)〖中華人民共和國(guó)國(guó)家標(biāo)準(zhǔn) GB 11643-1999〗中有關(guān)公民身份號(hào)碼的規(guī)定，公民身份號(hào)碼是特征組合碼，由十七位數(shù)字本體碼和一位數(shù)字校驗(yàn)碼組成。排列順序從左至右依次為：六位數(shù)字地址碼，八位數(shù)字出生日期碼，三位數(shù)字順序碼和一位數(shù)字校驗(yàn)碼。

  地址碼表示編碼對(duì)象常住戶口所在縣(市、旗、區(qū))的行政區(qū)劃代碼。生日期碼表示編碼對(duì)象出生的年、月、日，其中年份用四位數(shù)字表示，年、月、日之間不用分隔符。順序碼表示同一地址碼所標(biāo)識(shí)的區(qū)域范圍內(nèi)，對(duì)同年、月、日出生的人員編定的順序號(hào)。順序碼的奇數(shù)分給男性，偶數(shù)分給女性。校驗(yàn)碼是根據(jù)前面十七位數(shù)字碼，按照ISO 7064:1983.MOD 11-2校驗(yàn)碼計(jì)算出來(lái)的檢驗(yàn)碼。下面舉例說(shuō)明該計(jì)算方法。

  15位的身份證編碼首先把出生年擴(kuò)展為4位，簡(jiǎn)單的就是增加一個(gè)19，但是這對(duì)于1900年出生的人不使用（這樣的壽星不多了）

  某男性公民身份號(hào)碼本體碼為34052419800101001，首先按照公式⑴計(jì)算：

  ∑(ai×Wi)(mod 11)……………………………………(1)

  公式(1)中：
  i----表示號(hào)碼字符從由至左包括校驗(yàn)碼在內(nèi)的位置序號(hào)；
  ai----表示第i位置上的號(hào)碼字符值；
  Wi----示第i位置上的加權(quán)因子，其數(shù)值依據(jù)公式Wi=2（n-1）(mod 11)計(jì)算得出。

  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

  根據(jù)公式(1)進(jìn)行計(jì)算：

  ∑(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

  然后根據(jù)計(jì)算的結(jié)果，從下面的表中查出相應(yīng)的校驗(yàn)碼，其中X表示計(jì)算結(jié)果為10：

  ∑(ai×WI)(mod 11) 0 1 2 3 4 5 6 7 8 9 10
  校驗(yàn)碼字符值ai 1 0 X 9 8 7 6 5 4 3 2
  根據(jù)上表，查出計(jì)算結(jié)果為2的校驗(yàn)碼為所以該人員的公民身份號(hào)碼應(yīng)該為 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