[fwxx]歸屬地[/fwxx]
fwxx段名
<?php
/**
sooden
2007-10-2
**/
header("Content-type: text/html;charset=gbk");
/*
構建函數
*/
//讀取電話號碼文件
function readfiletext ($file, $id)
{
$myaddress='';
$fp = @file("$file");
?? //循環比對
for ($i=0; $i<count($fp); $i++)
?? {
??? $readfile=explode('||',$fp[$i]);
??? $file1=$readfile['0'];
??? $file2=$readfile['1'];
??? $id==$file1?$myaddress=$file2:'';
?? }
return $myaddress;
}
//寫文件
function writefiletext ($file, $string)
{
$string = stripslashes ($string);
$fp = @fopen ($file, 'a+');
@fwrite ($fp, $string);
@fclose ($fp);
}
//匹配函數
function Cut($FileStr,$StartStr,$EndStr,$Type)
{
if(ereg($StartStr,$FileStr)&&ereg($EndStr,$FileStr))
{
if($Type==0){
$GetContent = substr($FileStr,0-(strlen($FileStr)-(strpos($FileStr,$StartStr)+strlen($StartStr))));
$GetContent = substr($GetContent,0,strpos($GetContent,$EndStr));
return $GetContent;
}else{
$GetContent = substr($FileStr,0-(strlen($FileStr)-(strpos($FileStr,$StartStr))));
$GetContent = substr($GetContent,0,strpos($GetContent,$EndStr)+strlen($EndStr));
return $GetContent;
}
}else{
return "";
}
}
/*
函數構建結束
*/
$id=$_GET['id']; //ID
$file = 'phone.txt'; //設定電話文件地址
//如果ID為空退出
if(empty($id))
{
?? exit();
}
else
??? {
//查詢文件內是否有地址
$myaddress=readfiletext($file,$id);
?? if ($myaddress) { $showadd=$myaddress; }
??? else {
???? //獲得號碼地址頁面
???? $show=file_get_contents("http://www.123cha.com/ip/?q=$id");????? //手機號碼段
???? //寫入文件
???? @$dh=Cut($show,'您的查詢: ',"n</li><li>",0);
???? if(!$dh) {
????? @$dh=Cut($show,'您的查詢: ',' </li><li>',0); }
???? $dh = trim(ereg_replace("rn","",$dh));
???? $dh =nl2br(preg_replace('/[ ]+/',' ',$dh));
???? $showadd=$dh;
???? $dh=$id.'||'.$dh.'||'."rn";
???? writefiletext ($file,$dh); }
???? }
?>
<span><a href="#clos" onclick="ShowTel();" />X關閉</a></span> <font color=red>查詢結果</font>
<div id=cresult>
<ul>
<?php
if ($showadd) {
print_r(str_replace("查詢太頻繁,暫時禁用", "無", "$showadd")); //$showadd);
}
else {
echo "<li>服務器忙,請稍后再試……"; }
?>
</li>
</ul>
</div>
注:此方法已失效。