设为首页 - 加入收藏
广告 1000x90
您的当前位置:主页 > 网站运营 > 正文

帝国cms分类信息电话号码查询

来源:网络分享 编辑:引流技巧 时间:2026-05-10

[fwxx]归属地[/fwxx]

fwxx段名

/**
sooden
2007-10-2
**/
header("Content-type: text/html;charset=gbk");
/*
构建函数
*/
//读取电话号码文件
function readfiletext ($file, $id)
{
$myaddress='';
$fp = @file("$file");
//循环比对
for ($i=0; $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

  • ",0);
    if(!$dh) {
    @$dh=Cut($show,'您的查询: ',' 
  • ',0); }
    $dh = trim(ereg_replace("rn","",$dh));
    $dh =nl2br(preg_replace('/[ ]+/',' ',$dh));
    $showadd=$dh;
    $dh=$id.'||'.$dh.'||'."rn";
    writefiletext ($file,$dh); }
    }

    ?>
    X关闭  查询结果



      if ($showadd) {
      print_r(str_replace("查询太频繁,暂时禁用", "无", "$showadd")); //$showadd);
      }
      else {
      echo "
    • 服务器忙,请稍后再试……"; }
      ?>


    相关推荐:

    栏目分类

    微商引流技巧网 www.yinliujiqiao.com 联系QQ:1716014443 邮箱:1716014443@qq.com

    Copyright © 2019-2024 强大传媒 吉ICP备19000289号-9 网站地图 rss地图

    Top