身份证校验算法与ASP程序(2)

        aa=mid(xian,17,1)         '18位身分证取第十七位,能被2整除为女性
    end if 
if aa mod 2=0 then 
  xb="女"
  else
  xb="男"
end if 

if lenx=18 then
if mid(xian,18,1)<>cstr(sfzjy(xian)) then    '如果第十八位校验码不等于计算出的校验码则身份证号码有误.
  response.write "提示：身份证校验位错误!"
  else
   response.write "结果：身份证号码校验为合法号码!" 
end if
  else           '如果输入的是十五位号,则计算出十八位新号
  response.write "新身份证："&left(xian,6)&"19"&right(xian,9)&cstr(sfzjy(xian))
end if

关于户籍判断则而要数据库.这里就不提供了.