 sub ipadd{ $datapath="d:/ip";#ip地址文档夹 if ($ip eq "") { $ip=$ENV{’REMOTE_ADDR’}; } ($ip1,$ip2,$ip3,$ip4)=split(/＼./,$ip); $ips=$ip1*1000000000+$ip2*1000000+$ip3*1000+$ip4; $ip1=int($ip1); if (-f "$datapath/$ip1.txt") { $datafile=$datapath."/".$ip1.".txt"; } else { $datafile=$datapath."/other.txt"; } $from1=’’; $from2=’’; open(ipfile,"$datafile"); @ipdata= close(ipfile); for ($i=0;$i<@ipdata;$i++){ ($ip1,$ip2,$from1,$from2)=split(/__/,$ipdata[$i]); ($ipa1,$ipa2,$ipa3,$ipa4)=split(/＼./,$ip1); ($ipb1,$ipb2,$ipb3,$ipb4)=split(/＼./,$ip2); $ipbegin =$ipa1*1000000000+$ipa2*1000000+$ipa3*1000+$ipa4; $ipend =$ipb1*1000000000+$ipb2*1000000+$ipb3*1000+$ipb4; if (($ips<=$ipend)&&($ips>=$ipbegin)) { last;} } if ($from1 eq "") { $from1=qq~未知区域~; }; } #end ips 使用的时候直接声明变量$ip ,输出&ipadd就能够了 IP地址文档请到www.5want.com下载 |
喜欢本文，那就收藏到： |
.text:''):(d.getSelection?d.getSelection():'');void(keyit=window.open('http://my.poco.cn/fav/storeIt.php?t='+escape(d.title)+'&u='+escape(d.location.href)+'&c='+escape(t)+'&img=http://www.h-strong.com/blog/logo.gif','keyit','scrollbars=no,width=475,height=575,status=no,resizable=yes'));keyit.focus(); "添加到POCO网摘"){kind=logo}
Rss Feed
