快捷導(dǎo)航

php簡單實現(xiàn)短網(wǎng)址(短鏈)還原的方法(測試可用)

更新時間：2016年05月09日 11:45:19 投稿：shichen2014

這篇文章主要介紹了php簡單實現(xiàn)短網(wǎng)址還原的方法,以腳本之家短網(wǎng)址http://t.cn/heEHwk為例介紹了php還原短網(wǎng)址的實現(xiàn)技巧,非常簡單實用,需要的朋友可以參考下

本文實例講述了php簡單實現(xiàn)短網(wǎng)址還原的方法。分享給大家供大家參考，具體如下：

這里以腳本之家http://www.fzitv.net的短網(wǎng)址http://t.cn/heEHwk為例運行效果截圖如下：

具體代碼如下：

<?php
$info1 = '親！暫不能解析此類短網(wǎng)址。';
$info2 = '親！網(wǎng)址解析失敗，請重試。';
$info3 = '<br/><b><a href="';
$info4 = '" target="_blank">立即訪問>></a></b>';
$info5 = '親！不是短網(wǎng)址或無效。';
function unshort($url)
{
global $info1,$info2,$info3,$info4;
 $curl = curl_init();
 curl_setopt($curl, CURLOPT_URL, $url);
 curl_setopt($curl, CURLOPT_RETURNTRANSFER,1);
 curl_setopt ($curl, CURLOPT_USERAGENT, 'Mozilla/8.0 (compatible; MSIE 8.0; Windows 7');
 curl_setopt($curl, CURLOPT_HEADER, 1);
 curl_setopt($curl, CURLOPT_NOBODY, 0);
 curl_setopt($curl, CURLOPT_TIMEOUT, 15);
 curl_setopt($curl,CURLOPT_ENCODING, 'gzip');
 $data = curl_exec($curl);
 if(!empty($data)){
 $message = curl_getinfo($curl);
  curl_close($curl);
   $status = $message['http_code'];
   if ($status == '301' || $status == '302' ){
    $UrlHeader = (get_headers($url,1));
    $unurl = $UrlHeader[Location];
    if(is_array($unurl)) {
     $unurl = $unurl[0];
     $unurl .=$info3.$unurl.$info4;
     return $unurl;
     }
    else {
    $unurl .=$info3.$unurl.$info4;
    return $unurl;
    }
   }
  return $info1;
 }
 return $info2;
}
function adfunshort($url)
{
global $info3,$info4,$info5;
 $c = file_get_contents($url);
 $p = "/url = '(.*)';/isU";
 preg_match($p, $c, $content);
 $unurl = $content[1];
 if($unurl == '') {
  return $info5;
 }
 else {
  $unurl .=$info3.$unurl.$info4;
  return $unurl;
 }
}
?>
<form action="" method="post">
短網(wǎng)址：<input type="text" name="turl" class="inurl" size="26" />
<input type="hidden" name="url_done" value="done" />
<input type="submit" value="提交" class="suburl" />
</form>
<div id="trurl">
<?php
$turl = $_POST['turl']?$_POST['turl']:"";
$url_done= $_POST['url_done']?$_POST['url_done']:"";
if ($url_done == 'done'){
$http = substr($turl,0,7);
 if ($http != 'http://' && $http != 'https:/'){
  $turl = 'http://'.$turl;
  }
  $tturl = substr($turl,0,11);
  if ($tturl == 'http://adf.'){
  $longurl = adfunshort($turl);
  }else {
  $longurl = unshort($turl);
 }echo "短網(wǎng)址 ".$turl." 的真實網(wǎng)址為：<br />$longurl ";
}
?>

另外，本站還提供了短網(wǎng)址生成工具，具體鏈接如下：

http://tools.jb51.net/password/dwzcreate