response.write "结果：身份证号码校验为合法号码!"
end if
  else           '如果输入的是十五位号,则计算出十八位新号
  response.write "新身份证："&left(xian,6)&"19"&right(xian,9)&cstr(sfzjy(xian))
end if

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