备案查询程序这个API接口可以运用到自己网站上面，比如说一个导航的详细页面你加上这段代码也显示出了一个网站的备案信息资料这些内容，这个备案查询API我感觉只对做导航的人有用吧！今天分享给大家，不喜欢的也可以研究下代码！<?php
error_reporting(0);
$url = $_GET['url'];
var_dump();
if(!isset($url)){
echo '参数错误!';
die;
}elseif($url==''){
echo '未输入要查询的域名!';
}else{
$str = file_get_contents('http://icp.chinaz.com/'.$url);
$sitenames = getSubstr($str, '</a></p>', '>[');
preg_match('/<a target="_blank" href=".*?">(.*?)<\/a>/',$str,$name);
preg_match('/<p><strong class="fl fwnone">(.*?)<\/strong><\/p>/',$str,$nature);
preg_match('/<p><font>(.*?)<\/font><a href="(.*?)" target="_blank" id="checkscreen" class="fz12 pl15">/',$str,$icp);
preg_match('/<p>(.*?)<\/p>/',$sitenames,$sitename);
preg_match('/<p class="Wzno">(.*?)<\/p>/',$str,$siteindex);
$time = getSubstr($str, '审核时间', ' <p class="fz12">');
//echo $time;
preg_match('/<p>(.*?)<\/p>/',$time,$time);
if(strpos($str,'未备案或备案取消') == 0){
print_r(json_encode(array('name'=>$name[1],'siteindex'=>$siteindex[1],'nature'=>$nature[1],'icp'=>$icp[1],'sitename'=>$sitename[1],'img'=>'http://icp.chinaz.com'.$icp[2],'time'=>$time[1]),320));
}else{
print_r(json_encode(array('code'=> -1,'msg'=>'未查询到备案!'),320));
}
}
function getSubstr($str, $leftStr, $rightStr){
$left = strpos($str, $leftStr);
$right = strpos($str, $rightStr,$left);
if($left < 0 or $right < $left) return '';
return substr($str, $left + strlen($leftStr), $right-$left-strlen($leftStr));
}
?>使用方法：把源码保存到beian.php，然后访问“域名/beian.php?url=查询域名”即可。
评论
19条评论PON Lv.1
Sogou Explorer 
Windows 7 x64 Edition 回复
感谢楼主
山东省济南市 联通
小刘 Lv.1
Chrome 122.0.6261.95 
Windows 回复
感谢楼主表情，好人一生平安
四川省绵阳市 电信
need login Lv.1
Chrome 119.0.6045.160 
Windows 回复
感谢楼主
，好人一生平安
山东省淄博市 电信
大发发大发发 Lv.1
Chrome 86.0.4240.198 
Windows 回复
大发发
中国 移动
太阳风 Lv.1
Firefox 115.0 
Windows 7 x64 Edition 回复
一直在学习
河南省南阳市 电信
超规格 Lv.1
Chrome 79.0.3945.79 
Windows 7 x64 Edition 回复
我看看呢
湖北省十堰市 电信
怪兽 Lv.1
Chrome 113.0.0.0 
Windows 回复
股份大股东是VS
陕西省榆林市米脂县 电信
海纳百川 Lv.1
Chrome 109.0.0.0 
Windows 回复
手术室
新疆哈密地区 电信
明了 Lv.1
Chrome 86.0.4240.198 
Windows 回复
正是需要的，求下载
重庆市云阳县 电信
joannefal Lv.1
Chrome 86.0.4240.198 
Windows 回复
㞏福安后方晚饭发拉横幅啊
澳大利亚