$prev$dau$prevvp$prevp$p$nextp$nexttp$cuoi$next
endif
print $cut$cham$pagego
endfunction
#Func filelist
function filelist_mod $fi=-c;$dir=;$per_page=10;
var $temp = call htmlspecialchars $val=$temp;
var $list =
var $i = 0
var $path = /xts/as
if $path == /story.html
var $path =;
else
var $path = /..;
endif
@batdau
var $i = ($i+1)
assign $end=call strrpos $haystack=$list;$needle=[/dead]; $offset=0
assign $start=call strrpos $haystack=$list;$needle=[dead]; $offset=0
var $file = call substr $val=$list;$start=($start+6);$length=($end-$start-6);
var $data = call source $file=$path/$dir/data/$file
var $tenbv = call source $file=$path/$dir/name/$file
assign $endi=call strpos $haystack=$data;$needle=[/img]; $offset=0
assign $starti=call strpos $haystack=$data;$needle=[img]; $offset=0
if $endi > 20
var $img = call substr $val=$data; $start=($starti+5); $length=($endi-$starti-5);
else
var $img=http://blog2g.hexat.com/images/truyen-ngan.jpg
endif
var $spc = call chr $val=32;
var $mota = call strrpos $haystack=$mota;$needle=$spc;$offset=0;
var $mota = call substr $val=$data;$start=0;$length=$mota;
var $mota = call strip_tags $val=$mota;
var $idcm = call substr $val=$file;$start=0;$length=2;
var $cm = call source $file=$path/$dir/muc/$idcm
var $hienthi = {{