纯ASP(VBscript)写的全球IP地址搜索程序
本文由zhangdeqing168贡献
<%@LANGUAGE="VB SCR I PT" C ODE PAGE="936"%>
<%dim finishgetip, showip,allip
'/////////////////////////////////////////////////////////
'程序还不是很精简 以后再修改
'本程序所用的数据库为-- “冯志宏” --所写的-- “追捕” --软件中所带IP数据库和
' “国华软件Guohua Soft”的作者-- “冯国华”—所写的
“全球IP地址分配表.chm”合二为一得到的
'感谢“冯志宏”和“冯国华”提供的数据
'数据库中还有不少的重复IP地址希望有心人能将其删除减小数据库
'我的程序写的还很笨拙希望大家能多提意见多多交流谢谢
'//////////////////////////////////////////////////////////
/
'解决思路: www.knowsky.com
'取得的客户端IP一般是202. 11.25. 1这种而数据库中的IP格式为202.011.025.001,这就需要将取得的
'客户端IP转换为与数据库中IP一样的格式
'因为目前我们所用的IP是分为4段每段3位 中间以“. ”分隔
'所以我的思路是将客户端IP以“. ”符号分割为4段,即202/11/25/1
'然后再分别核对每一段如果是3位则不变如不足3位为2位该段前补1个0为1 同理则补2个0
'得到格式化后的IP后去掉IP的最后一段即取包括“. ”的前11位与数据库中的startip字段的前11位相比较查找相同的值
'因为从数据库中可以看到 start ip和endip的前三段都是一样的而最后一段不过是内部子网地址可以去掉
'所以只要取startip或endip的任意一个字段的前11位与客户端IP的前11位相比较就可以查到正确的所在地
'//////////////////////////////////////////////////////////
/////function checkip_trueip()
'取客户端真实IPgetclientip =
Request.ServerVariabl e s("HTTP_X_FORWARDED_FOR") '如果客户端用了代理服务器则用Reques t.ServerVar iab les("REMOTE_ADDR")方法只能得到空值,则应该用
S erv erVar i ab l es("HTTP_X_FORWARDED_FOR")方法
If getclientip = "" Thengetcli ent ip = Request.ServerVariabl es("REMOTE_ADDR") '如果客户端没用代理则
Request.ServerVariabl e s("HTTP_X_FORWARDED_FOR")得到是空值应该用Reque st.ServerVar iab les("REMOTE_ADDR")方法end ifcheckip_trueip = getclientipend function
'/////////////////////////////////////////////////////////function getaccessrecordset(db, sql,mark,read) '取得Recordset对象
set conn=getaccessconn(db) '输入参数为db-数据库的相对路径 sql-SQL语句 mark,read为数据库读取方式 1, 1为只读, 1,3为读写
'constr="Provider=microsoft. jet.oledb.4.0;"&"dataSource="&Server.MapPath(db)
' conn.open constrsetgetaccessrecordset=server.CreateObject("ADODB.Recordset")getaccessrecordset.open sql,conn,mark,read
End function
'//////////////////////////////////////////////////////////
//function getaccessconn(db) '取得connection对象setgetaccessconn=server.CreateObject("ADODB.Connection")
'constr="DRIVER={MICROSOFT ACCESS DRIVER
(*.MDB) } ;DBQ="&SERVER.MAPPATH("al l con/#bbs al l.mdb")constr="Provider=microsoft. jet.oledb.4.0;"&"dataSource="&Server.MapPath(db)getaccessconn.open constrend function
'//////////////////////////////////////////////////////////
//dim getip
'getip=(trim(request.ServerVariables("REMOTE_ADDR"))) '从客户端获取IP
'getip=(trim(request.QueryString("comes") )) ' 自己输入IP测试
'response.Write(getip&"
")
'//////////////////////////////////////////////////////////
//function checkip_locations(checkstring) '返回IP中分隔字符的位置函数checkip_locations=Instr(checkstring, ". ") '将位置的值赋予给函数end function
'//////////////////////////////////////////////////////////
//
'以下函数为分割IP取得每次分割后“. ”符号右边的IP剩余的字符串function checkip_left(checkstring)locations_left=checkip_locations(checkstring) '得到在IP剩余的字符串中“. ”第一次出现的位置iplength_left=Len(checkstring) '取得IP剩余的字符串的长度divide_locations_left=iplength_left-locations_left '取得在IP剩余的字符串中“. ”第一次出现的位置从右往左数是多少位ipstr_left=Right(checkstring,divide_locations_left) '取得本次分割后, “. ”符号右边的IP剩余的字符串checkip_left=ipstr_left '将上面得到的字符串赋给函数
end function
'//////////////////////////////////////////////////////////
/
'以下函数为分割IP取得每次分割后“. ”符号左边的IP字符串,即将IP分为四段每一段的字符串function checkip_right(checkstring)locations_right=checkip_locations(checkstring) '取得在IP中“. ”第一次出现的位置iplength_right=Len(checkstring) '取得IP字符串长度divide_locations_right=iplength_right-locations_right '取得在IP剩余的字符串中“. ”第一次出现的位置从右往左数是多少位ipstr11=Trim(Replace(Left(checkstring, locations_right) , ". ","")) '将得到的“. ”左边的字符串去掉". "符号
'如果IP分为4段后每一段不足3位则补0if Len(ipstr11)="2" then ipstr11="0"&ipstr11if Len(ipstr11)="3" then ipstr11=ipstr11if Len(ipstr11)="1" then ipstr11="00"&ipstr11checkip_right=ipstr11 '得到“. ”符号之前的字符串即本次分割后得到的IP分割为四段后其中的一段end function
'/////////////////////////////////////////////////////////
'检查IP是否为内部网IP
'我写的判断是以:127.0.0.0-127.XX X.X XX. 255和
192.0.0.0-192.XXX.XXX.255为依据如果为这二者则是内部网I P反之为外部网
'判断内部IP的依据是什么我也不清楚所以这里要高手多多指点并加以修正与我联系function checkiplocal (checkstring)dim re1set re1=new RegExp '取得正则表达式对象
're1.pattern中的表达式为,内部网的IP应为127或192开头中间为0-9中任意1-3个数字加". "组成一段re1.pattern="^ (127\. [0-9] {1, 3}\. [0-9] {1,3}\. [0-9] {1,3} ) | (192\. [0-9] {1,3}\. [0-9] {1,3}\. [0-9] {1,3})$"re1.global=falsere1. Ignorecase=falsecheckiplocal=re1.test(checkstring)set re1=nothingend function
'//////////////////////////////////////////////////////////
////////////function checkip_remote(checkstring)dim iplength ' IP字符串的长度dim locations ' ". "字符出现的位置iplength=Len(checksting)locations=Instr(checkstring, ". ") '从左到右检索“. ”符号在IP字符串中第一次出现的位置
'以“. ”字符将IP分割为4段locations2=iplength-locationsipstring1=Left(checkstring, locations)ipstring2=Right(checkstring, locations2)end function
'/////////////////////////////////////////////////////////
'/////////////////////////////////////////////////////////ipinfo_local="您的IP是内部网IP!"ipinfo_remote="外部网IP!"getip=checkip_trueip()currentip=checkiplocal(getip) '调用checkiplocal 函数对得到的IP进行检查确定是内部网地址还是外部网地址
' if currentip=true then'测试代码
'response.Write(ipinfo_local)if currentip=true then '为假response.Write(ipinfo_local) '说明为内部网IPelse
'进行转换
'以下为循环提取并按位补0将IP分为4段locations=checkip_locations(getip) '取得“. ”在第一次分割前在IP中第一次出现的位置iplength=Len(getip) '取得客户端IP的长度divide_locations=iplength-locations '取得将客户端IP从右向左数到IP从左往右数第一个“. ”的位置ipstr1=Trim(Replace(Left(getip, locations) , ". ", ""))ipstr2=Right(getip,divide_locations) '取得第一次分割后客户端右边剩下的数值
'如果IP分为4段后每一段不足3位则补0if Len(ipstr1)="2" then ipstr1="0"&ipstr1 '长度为二不
足三位在字符串之前补一个0if Len(ipstr1)="3" then ipstr1=ipstr1 '据上类推if Len(ipstr1)="1" then ipstr1="00"&ipstr1 '这时的ipstr1为IP的第一段ipstr12=checkip_right(ipstr2) '这时的ipstr12为IP的第二段ipstr122=checkip_left(ipstr2)ipstr13=checkip_right(ipstr122) '这时的ipstr13为IP的第三段ipstr14=checkip_left(ipstr122) '这时的ipstr14为IP的第四段if Len(ipstr14)="1" then ipstr14="00"&ipstr14 '对得到的IP的第四段进行补0此步骤可不要if Len(ipstr14)="2" then ipstr14="0"&ipstr14if Len(ipstr14)="3" then ipstr14=ipstr14
'response.write ipstr1&"
" '写出IP分割后的每段的值
'response.write ipstr12&"
"
'response.write ipstr13&"
"
'response.write ipstr14allip=ipstr1&". "&ipstr12&". "&ipstr13&". "&ipstr14finishgetip=left(allip, 11)dim ipaddr, iplocal, sqls
'以下SQL语句为提取startip字段左边11位值是否等于客户端IP的左边的11位的值sqls="SELECT country_state,areauser FROM ip WHERE
Left(startip, 11)=' "&finishgetip&"' "set rs=getaccessrecordset("#worldip.mdb", sqls, "1", "1") '得到查询值if rs. eof then '如果没找到与客户端IP相等的值showip=checkip_trueip() '把客户端IP赋予showipipaddr="未知地区" '国家或省份iplocal="未知地点" '具体的地方elseshowip=checkip_trueip()ipaddr=rs("country_state")iplocal=rs("areauser")end if
'response.write("您的IP是 "&showip&" ")
'response.write("您来自 "&ipaddr&" ")
'response.write("您是:"&iplocal)rs. closeset rs=nothing
%>
<%="您的IP是 "&showip&" "%>
<%="您来自 "&ipaddr&" "%>
<%="您是:"&iplocal&"
"%>
如果IP地址有错误请与我联系或下载数据库更正谢谢
下载Scr ipt56.CHM-->1.34M
简介 Microsoft的帮助文档有VBscript语法,JScript语法,正则表达式
zji怎么样?zji是一家老牌国人主机商家,公司开办在香港,这个平台主要销售独立服务器业务,和hostkvm是同一样,两个平台销售的产品类别不一平,商家的技术非常不错,机器非常稳定。昨天收到商家的优惠推送,目前针对香港邦联四型推出了65折优惠BGP线路服务器,性价比非常不错,有需要香港独立服务器的朋友可以入手,非常适合做站。zji优惠码:月付/年付优惠码:zji 物理服务器/VDS/虚拟主机空间订...
整理一下CloudCone商家之前推送的闪购VPS云服务器产品,数量有限,活动推出可能很快机器就售罄了,有需要美国便宜VPS云服务器的朋友可以关注一下。CloudCone怎么样?CloudCone服务器好不好?CloudCone值不值得购买?CloudCone是一家成立于2017年的美国服务器提供商,国外实力大厂,自己开发的主机系统面板,CloudCone主要销售美国洛杉矶云服务器产品,优势特点是...
搬瓦工怎么样?这几天收到搬瓦工发来的邮件,告知香港pccw机房(HKHK_1)即将关闭,这也不算是什么出乎意料的事情,反而他不关闭我倒觉得奇怪。因为目前搬瓦工香港cn2 GIA 机房和香港pccw机房价格、配置都一样,可以互相迁移,但是不管是速度还是延迟还是丢包率,搬瓦工香港PCCW机房都比不上香港cn2 gia 机房,所以不知道香港 PCCW 机房存在还有什么意义?关闭也是理所当然的事情。点击进...