<% set reco=server.createobject("ADODB.recordset") set rc=server.createobject("ADODB.recordset") ac=request("ac") cuowu=0 V=request.form("R1") sex=cstr(request.form("sexv")) dqid=request.form("dq") '得到缺省地址 if len(dqid)=0 then ipdz=ipzh(uip) ' ipdz=ipzh("61.191.29.166") sqlstr="select wz1,wz2 from iplist where sip<=" & ipdz & " and eip>=" & ipdz reco.open sqlstr,conn,1,1 if reco.eof then '无记录 weizhi="未知" else weizhi=reco("wz1") end if reco.close Function getdq(weizhi) dim i,j i=len(weizhi) j=instr(weizhi,"省") if j=0 then j=instr(weizhi,"州") if j=0 then j=instr(weizhi,"盟") weizhi=right(weizhi,i-j) j=instr(weizhi,"市") if j=0 then j=instr(weizhi,"县") if j=0 then j=instr(weizhi,"区") if j>0 then weizhi=left(weizhi,j-1) else weizhi="未知地区" end if getdq=weizhi end function shistr=getdq(weizhi) sqlstr="select dqid from sfzdqm where dqmc like '%" & shistr & "%'" reco.open sqlstr,conn,1,1 if reco.eof then '无记录 dqid=110000 else dqid=reco("dqid") end if reco.close end if shengri=trim(request.form("shengri")) yzh=trim(request.form("yzh")) if V<>"V2" then V="V1" if shengri="" then shengri="1980-1-1" if lcase(left(Request.ServerVariables("HTTP_REFERER"),29))="http://www.fbi2000.com/sjcx/" then if V="V1" then if ac="ac" then if not isdate(shengri) then jgstr="

出生日期错误

" cuowu=1 else Set fjiami = Server.CreateObject ("fjiajiemi.fjiami") nianstr=cstr(year(shengri)) yue=month(shengri) if yue<10 then yuestr="0" & cstr(yue) else yuestr=cstr(yue) end if ri=day(shengri) if ri<10 then ristr="0" & cstr(ri) else ristr=cstr(ri) end if riqi=nianstr & yuestr & ristr end if end if else Set fjiami = Server.CreateObject ("fjiajiemi.fjiami") if len(yzh)=15 then yzjg=fjiami.ch15to18(cstr(yzh)) sqlstr="select showmc from sfzdqm where dqid=" & left(yzh,6) reco.open sqlstr,conn,1,1 if reco.eof then '无记录 showmc="未收录数据库地区" else showmc=reco("showmc") end if reco.close jgstr="

您的15位身份证号 " & yzh & " 转为18位结果为: " & yzjg & "!身份证发放地为: " & showmc & " " else yzjg=fjiami.checkSFZ(cstr(yzh)) if yzjg=1 then sqlstr="select * from sfzdqm where dqid=" & left(yzh,6) reco.open sqlstr,conn,1,1 if reco.eof then '无记录 showmc="未收录数据库地区" else showmc=reco("showmc") end if reco.close jgstr="

您验证的身份证号 " & yzh & " 通过验证!身份证发放地为: " & showmc & " " else jgstr="

您验证的身份证号 " & yzh & " 未通过验证" end if end if end if end if '如果不是来自本站链接 %> 火眼-BLX网页代码查看器

火眼-BLX网页代码查看器

本软件可下载后离线使用

软件截图

功能说明

(下面是一位用户写的说明,比我自己写的更中肯一些)

    经常在网上冲浪,难免会遇到一些暗藏恶意代码的网页陷阱。对于大虾而言,自然有诸多应付之法,但是初学者们对此往往束手无策。在本文中,笔者将为这部分菜鸟介绍一种简单有效的解决方法:使用《火眼——BLX网页代码查看分析器》这款软件来查看指定网页是否安全。

   《火眼——BLX网页代码查看分析器》的界面非常简洁。首先,我们在“地址”输入框中敲入欲检查的网址;其后,在连机状态下,点击“查看此页面代码”按钮即可在界面中部的文本框中显示出当前网页源代码,随后在界面底端的状态显示框中程序将说明此网页是否安全(如图)。

    若提示该网页是安全的,则点击工具栏上的“用IE浏览器打开此页面”即可。

提示:
利用《火眼——BLX网页代码查看分析器》可查看任意网页源代码的特性,我们可以用它来对付一些限制用户查看源代码的站点,将获得的指定网页源代码保存到文件或剪贴板上。

 

软件下载 158KB

本地下载

。。本软件仅用于学习研究,请不要用于非法用途。若因使用本软件引起各类民事、刑事纠纷与本作者无关。。

制作:无情键(FBI)

2003年1月制作;2004年7月第一次升级

BLX在线工具集

手机卡号归属地查询

IP地理位置查询

文本字符串在线加解密

天气预报

身份证号码生成、验证

回到首页