網址縮短 短網址程式

這是一個網上的代碼，無需資料庫，將要縮短的網址存在於一個同目錄裡的txt檔案裡。 示範：http://www.ucmbaa.org/u/ 目的一是縮短了網址，二是不讓搜尋引擎識別這個地址。 /* location of file to store URLS */ $file = 'urls.txt'; /* use mod_rewrite: 0 - no or 1 - yes */ $use_rewrite = 1; /* language/style/output variables */ $l_url= 'URL'; $l_nourl= '沒有輸入URL地址'; $l_yoururl= '你的短網址:'; $l_invalidurl= '無效的URL.'; $l_createurl= '產生短網址'; //////////////////// NO NEED TO EDIT BELOW //////////////////// if(!is_writable($file) || !is_readable($file)) { die('Cannot write or read from file. Please CHMOD the url file (urls.txt) by default to 777 and make sure it is uploaded.'); } $action = trim($_GET['id']); $action = (empty($action) || $action == '') ? 'create' : 'redirect'; $valid = "^(https?|ftp)\:\/\/([a-z0-9+!*(),;?&=\$_.-]+(\:[a-z0-9+!*(),;?&=\$_.-]+)?@)?[a-z0-9+\$_-]+(\.[a-z0-9+\$_-]+)*(\:[0-9]{2,5})?(\/([a-z0-9+\$_-]\.?)+)*\/?(\?[a-z+&\$_.-][a-z0-9;:@/&%=+\$_.-]*)?(#[a-z_.-][a-z0-9+\$_.-]*)?\$"; $output = ''; if($action == 'create') { if(isset($_POST['create'])) { $url = trim($_POST['url']); if($url == '') { $output = $l_nourl; } else { if(eregi($valid, $url)) { $fp = fopen($file, 'a'); fwrite($fp, "{$url}\r\n"); fclose($fp); $id= count(file($file)); $dir= dirname($_SERVER['PHP_SELF']); $filename= explode('/', $_SERVER['PHP_SELF']); $filename = $filename[(count($filename) - 1)]; $shorturl = ($use_rewrite == 1) ? "http://{$_SERVER['HTTP_HOST']}{$dir}{$id}" : "http://{$_SERVER['HTTP_HOST']}{$dir}{$filename}?id={$id}"; $output = "{$l_yoururl} {$shorturl}"; } else { $output = $l_invalidurl; } } } } if($action == 'redirect') { $urls = file($file); $id = trim($_GET['id']) - 1; if(isset($urls[$id])) { header("Location: {$urls[$id]}"); exit; } else { die('Script error'); } } //////////////////// FEEL FREE TO EDIT BELOW //////////////////// ?> 短網址服務可以協助你把一個長網址縮短，方便你在社交網路和微博上分享連結。 ob_end_flush(); ?> 複製代碼

