帝国论坛帝国网站管理系统交流区帝国CMS使用交流[转帖]应众多朋友要求,现放出手机归属地查询方法 【本版专题贴子】  
主题:[转帖]应众多朋友要求,现放出手机归属地查询方法 [加入收藏夹]   

whatup
用户头衔:书生

精华贴   :0
发贴数   :51
经验值   :166
注册时间:2008-09-03
信息 搜索 好友 发送悄悄话 精益求精-帝国网站管理系统7.5正式版开源发布】   [第 1 楼]
[转帖]应众多朋友要求,现放出手机归属地查询方法
申明:本程序来源于网络..简单易懂.解释权归原作者所有.......................
//---------------------------用户自定义标签文件  /e/class/userfun.php

//手机归属地查询
function user_belonging($id)
{
global $empire,$dbtbpre,$navinfor;
$id=$navinfor['id'];
$r=$empire->fetch1("select phone from {$dbtbpre}ecms_info where id=$id");
$number=trim($r['phone']);
if ($number)
        {
                $expr="^1[35][0-9]{9}$";
                $Results=ereg($expr,$number); //验证号码是否正确
                if ($Results==1) {
                        $lent = sub ($number, 0, 7, false);
                        $return='&nbsp;&nbsp;<img src="/images/mobile.gif" alt="手机归属地查询" width="15" height="16" /><a href="#mobi" onclick="MyOnchange(\'/e/key/mobile_search.php?id='.$lent.'\',document.getElementById(\'ShowTel\'));"><span class="px10">手机归属地查询</span></a>';
                        }
                else {
                        $return='';
                        }
        }
else {
        $return='';
        }
echo $return;
}

//----------------------------------------------------------------------------------------------------------------
新建标签
标签名:显示手机归属地查询(随便你写什么)
标签符号:belonging
函数名:user_belonging]
标签格式:[belonging]归属地[/belonging]
标签说明:[belonging]phone[/belonging]
//------------------------------------------------------------------------------------------------------------------
内容页中放上[belonging]phone[/belonging]
//------------------------------------------------------------------------------------------------------------------
mobile_search.php
<?php
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");      //手机号码段
                                //写入文件
                                @$phone=Cut($show,'您的查询:&nbsp;',"\n</li><li>",0);
                                if(!$phone) {
                                        @$phone=Cut($show,'您的查询:&nbsp;','&nbsp;</li><li>',0); }
                                $phone = trim(ereg_replace("\r\n","",$phone));
                                $phone =nl2br(preg_replace('/[ ]+/',' ',$phone));
                                $showadd=$phone;
                                $phone=$id.'||'.$phone.'||'."\r\n";
                                writefiletext ($file,$phone); }
                                }

?>
<span><a href="#clos" onclick="ShowTel();" />X关闭</a></span>&nbsp;&nbsp;<font color=red>查询结果</font>
<div id=cresult>
<ul>
<?php
if ($showadd) {
        print_r(str_replace("查询太频繁,暂时禁用", "无", "$showadd")); //$showadd);
        }
else {
        echo "<li>服务器忙,请稍后再试……"; }
?>
</li>
</ul>
</div>
//----------------------------------------------------------------------------------------------------------------------------------------------------------
mobile.gif


上传以下图片:


[该贴被修改 1 次,最后修改时间 2008-12-22 13:04:56 ]



2008-12-22 13:03:43 已设置保密 顶部 回复 引用 报告 编辑 删除

188cn
用户头衔:探花

精华贴   :0
发贴数   :9148
经验值   :21447
注册时间:2008-10-25
信息 搜索 好友 发送悄悄话 免费开源-EBMA系统:更安全的MYSQL管理和备份系统】   [第 2 楼]

怎么不导成.bq文件




2008-12-22 13:06:07 已设置保密 顶部 回复 引用 报告 编辑 删除

whatup
用户头衔:书生

精华贴   :0
发贴数   :51
经验值   :166
注册时间:2008-09-03
信息 搜索 好友 发送悄悄话 精益求精-帝国网站管理系统7.5正式版开源发布】   [第 3 楼]

俺是农民.不会导...

有些人不肯放.,,我就做回罪人放一次....有什么问题这里留言.....有空我会上来的.




2008-12-22 13:08:30 已设置保密 顶部 回复 引用 报告 编辑 删除

爱筒
用户头衔:书生 *

精华贴   :0
发贴数   :20
经验值   :55
注册时间:2008-02-26
信息 搜索 好友 发送悄悄话 免费开源-EBMA系统:更安全的MYSQL管理和备份系统】   [第 4 楼]

后台>模板管理>管理标签>导出标签




2008-12-22 13:40:02 已设置保密 顶部 回复 引用 报告 编辑 删除

vsxp
用户头衔:举人

精华贴   :0
发贴数   :322
经验值   :1242
注册时间:2007-07-12
信息 搜索 好友 发送悄悄话 精益求精-帝国网站管理系统7.5正式版开源发布】   [第 5 楼]

感谢分享




2008-12-22 20:04:00 已设置保密 顶部 回复 引用 报告 编辑 删除

niehang
用户头衔:进士

精华贴   :0
发贴数   :523
经验值   :2141
注册时间:2007-09-30
信息 搜索 好友 发送悄悄话 免费开源-EBMA系统:更安全的MYSQL管理和备份系统】   [第 6 楼]

mobile_search.php 和图片放到那?



520语录 www.520yulu.com 文书吧 www.wenshu8.com 简笔画大全 www.jianbh.com
2009-02-12 14:58:05 已设置保密 顶部 回复 引用 报告 编辑 删除

chinapz
用户头衔:举人

精华贴   :0
发贴数   :305
经验值   :1138
注册时间:2008-12-29
信息 搜索 好友 发送悄悄话 精益求精-帝国网站管理系统7.5正式版开源发布】   [第 7 楼]

在内容页中放上[belonging]phone[/belonging] 然后刷新审核一个信息测试,在联系方式栏出现:
Unknown column 'phone' in 'field list'
select phone from ***_ecms_info where id=21

Unknown column 'phone' in 'field list'
select phone from ***_ecms_info where id=21




2009-05-10 21:03:38 已设置保密 顶部 回复 引用 报告 编辑 删除

chinapz
用户头衔:举人

精华贴   :0
发贴数   :305
经验值   :1138
注册时间:2008-12-29
信息 搜索 好友 发送悄悄话 免费开源-EBMA系统:更安全的MYSQL管理和备份系统】   [第 8 楼]


在内容页中放上[belonging]phone[/belonging] 然后刷新审核一个信息测试,在联系方式栏出现:
Unknown column 'phone' in 'field list'
select phone from ***_ecms_info where id=21

Unknown column 'phone' in 'field list'
select phone from ***_ecms_info where id=21  





2009-05-11 19:26:31 已设置保密 顶部 回复 引用 报告 编辑 删除

chb511gg
用户头衔:秀才

精华贴   :0
发贴数   :122
经验值   :471
注册时间:2008-11-19
信息 搜索 好友 发送悄悄话 精益求精-帝国网站管理系统7.5正式版开源发布】   [第 9 楼]

原帖由 chinapz 于 2009-05-11 19:26:31 发表

在内容页中放上[belonging]phone[/belonging] 然后刷新审核一个信息测试,在联系方式栏出现:
Unknown column 'phone' in '...

你的电话号码的字段名不是phone。




2009-10-12 22:27:30 已设置保密 顶部 回复 引用 报告 编辑 删除

快速回复
内容

表情
使用EBB代码 使用smile代码 显示签名 自动分析url 自动分析img
     【进入高级模式】   (按 Ctrl+Enter 直接提交)
    顶部  加入收藏夹
关于帝国 | 广告服务 | 联系我们 | 法律声明 | 隐私条款 | 许可协议
Powered by: EBB Version 2.2.1