字符串[教学研究]纯ASP(VBscript)写的全球IP地址搜索程序

ip搜索时间:2021-03-06 阅读:()

纯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语法,正则表达式  

展开全文