#explode
/* Code phân trang XtScript */
/* Viết bởi Jin9x */
function page $noidung=chưa có gì;$show=500;$
url=;
get p if $p ==
var $p=1
endif
var $batdau =($p*$show-$show)
if $noidung <= $show
var $cut = $noidung else
var $cut = call substr $val=$noidung;$start=$
batdau;$length=$show;
endif
print $cut
var $lnd = call strlen $val=$noidung var $nump =($lnd/$show)
var $nump = call ceil $num=$nump
if $nump>1
print Trang:
if $p!=1
var $dau = 1, var $prev = [<]
if $p != 2
var $prevp = ($p-1),
endif
if $p > 3
var $prevvp = ($p-2) a>,
endif
endif
if $p!=$nump
var $cuoi = ,$nump
if $p != ($nump-1) var $nextp = ,($p+1)
a>
endif
if $p<($nump-2)
var $nexttp = ,($p+2)
a> endif
var $next = [>]
endif
print $prev $dau$prevvp$prevp[$p]$nextp$nexttp
$cuoi $next
Đến trang:
endif
endfunction