<% sfz=trim(request("sfz")) if len(sfz)<15 or not issfz(sfz) then mess="请输入15-18位的合法身份证!" sfz="" else mier="ok" end if function issfz(sfz) issfz=true n=len(sfz) if n=18 then n=17 end if for i=1 to n if instr("0123456789",cstr(mid(cstr(sfz),i,1)))<1 then issfz=false end if next end function function mier_xy(num) if len(num)=15 then cID = left(num,6)&"19"&right(num,9) elseif len(num)=17 or len(num)=18 then cID = left(num,17) end if nSum=mid(cID,1,1) * 7 nSum=nsum+mid(cID,2,1) * 9 nSum=nsum+mid(cID,3,1) * 10 nSum=nsum+mid(cID,4,1) * 5 nSum=nsum+mid(cID,5,1) * 8 nSum=nsum+mid(cID,6,1) * 4 nSum=nsum+mid(cID,7,1) * 2 nSum=nsum+mid(cID,8,1) * 1 nSum=nsum+mid(cID,9,1) * 6 nSum=nsum+mid(cID,10,1) * 3 nSum=nsum+mid(cID,11,1) * 7 nSum=nsum+mid(cID,12,1) * 9 nSum=nsum+mid(cID,13,1) * 10 nSum=nsum+mid(cID,14,1) * 5 nSum=nsum+mid(cID,15,1) * 8 nSum=nsum+mid(cID,16,1) * 4 nSum=nsum+mid(cID,17,1) * 2 check_number=12-nsum mod 11 If check_number=10 then check_number="X" End if If check_number=12 then check_number="1" End if If check_number=11 then check_number="0" End if sfzjy=check_number End function %> <% if mier="ok" then mier_num=clng(left(sfz,6)) rs.open "select * from sfz where BM="& mier_num ,conn,1,1 if rs.bof or rs.eof then mess="您输入的身份证有误或不存在!" sfz="" else mier_ddr=rs("dq") rs.close if len(sfz)=15 then mier_y="19"&mid(sfz,7,2) mier_m=mid(sfz,9,2) mier_d=mid(sfz,11,2) mier_a=mid(sfz,15,1) mier_sfz=left(sfz,6)&"19"&right(sfz,9)&cstr(mier_xy(sfz)) end if if len(sfz)=18 then mier_y=mid(sfz,7,4) mier_m=mid(sfz,11,2) mier_d=mid(sfz,13,2) mier_a=mid(sfz,17,1) '18位身分证取第十七位,能被2整除为女性 end if if mier_a mod 2=0 then mier_xb="女" else mier_xb="男" end if mier_cs=mier_y&"年"&mier_m&"月"&mier_d&"日" end if end if %>
当前位置 >> 千年阳光健康生活网 >> 健康生活实用查询 >> 身份证查询
   身份证查询  
 
 
请输入身份证号码:
 
<%=mess%>
 
 查询结果
  查询号码: <%=sfz%>   
  户籍所在地: <%=mier_ddr%>   
  性别: <%=mier_xb%>   
  出生年月: <%=mier_cs%>   
  15位生成18位号码: <%if len(sfz)=15 then%><%=mier_sfz%><%end if%>