link.php

来自「主要功能： 1、输入域名查询网站外链及外链域名对应的IP地址； 2、DIV+」· PHP 代码 · 共 59 行

<?php
header("Content-Type:text/html;charset=gbk");
$url=$_POST[message];
if(preg_match("/(.*?)\/$/i",$url)){
	$url=preg_replace("/\/$/","",$url);
}
$message=eregi_replace("http://","",$url);
function _link($url){
	$contents = @file_get_contents("$url");
	if($contents=="Forbidden"){
		$ch = curl_init();
		$timeout = 5;
		curl_setopt ($ch, CURLOPT_URL, "$url");
		curl_setopt ($ch, CURLOPT_RETURNTRANSFER, 1);
		curl_setopt ($ch, CURLOPT_USERAGENT, "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)");
		curl_setopt ($ch, CURLOPT_CONNECTTIMEOUT, $timeout);
		$contents = curl_exec($ch);
		curl_close($ch);
	}
	if(empty($contents)){
		exit('<font color=red>对不起，不能正常访问该网站，请更换域名.</font>');
	}
	preg_match_all("/charset=(.*?)>/is",$contents,$cod);
	if(!empty($cod[1][0])){
		if(preg_match("/utf-8/i",$cod[1][0])){
			$contents=iconv("UTF-8","gbk//TRANSLIT",$contents);
		}
	}
	return $contents;
}
$contents=_link($url);
preg_match_all("/<a href=(.*?)<\/a>/is",$contents,$link);
foreach($link[0] as $val){
	if(strip_tags($val)){
		preg_match_all("/<a href=\"(.*?)\"/is",$val,$link_url);
		$links[] = $val;
		if(preg_match("/http/i",$link_url[1][0])){
			if(!preg_match("/$message/i",$link_url[1][0])){
				$links_out[] = $link_url[1][0];
				$link_out[]=preg_replace("/\/(.*?)$/","",eregi_replace("http://","",$link_url[1][0]));
			}else{
			}
		}else{
			if(!preg_match("/^\/(.*?)/",$link_url[1][0]))$link_url[1][0]='/'.$link_url[1][0];
		}
	}
}

if(!empty($link_out)){
	echo "<center>网站：<font color=red>".$url."</font><br><br></center>";
	echo "<div class=list_left><b>外链地址</b></div><div class=list_right><b>IP地址</b></div>";
	$link_out=array_unique($link_out);
	sort($link_out);
	foreach($link_out as $list){
		echo "<div class=list_left><a href=http://".$list.">".$list."</a></div><div class=list_right>".gethostbyname($list).'</div>';
	}
}else{echo "<center><br><br>网站：<font color=red>".$url."</font>无法查询，或者没有外链，请更换查询地址！</center>";}
?>