【www.bbyears.com--Perl】
代码如下/**
* 分页函数
*
* @param int $count 条目总数
* @param int $perlogs 每页显示条数目
* @param int $page 当前页码
* @param string $url 页码的地址
*/
function pagination($count,$perlogs,$page,$url,$anchor=""){
$pnums = @ceil($count / $perlogs);
$re = "";
$urlHome = preg_replace("|[?&/][^./?&=]*page[=/-]|","",$url);
for ($i = $page-5;$i <= $page+5 && $i <= $pnums; $i++){
if ($i > 0){
if ($i == $page){
$re .= " $i ";
} elseif($i == 1) {
$re .= " $i ";
} else {
$re .= " $i ";
}
}
}
if ($page > 6) $re = "«...$re";
if ($page + 5 < $pnums) $re .= "... »";
if ($pnums <= 1) $re = "";
return $re;
}