$prev$dau$prevvp$prevp$p$nextp$nexttp$cuoi$next
endif
Print $list
endfunction
#Func chuyên mục update
function chuyenmuc $fi=-*.*;$dir=;
var $name = call source $file=../$dir/name.txt
var $temp =
var $temp = call htmlspecialchars $val=$temp;
var $chuyenmuc =
Print $chuyenmuc
endfunction
#Func bbcode
function bbcode $text=;
@code
var $ec=call strrpos $haystack=$text;$needle=[/code]; $offset=0
var $sc=call strrpos $haystack=$text;$needle=[code]; $offset=0
var $code = call substr $val=$text;$start=($sc+6);$length=($ec-$sc-6);
var $copy = call str_ireplace $subject=$code;$search=
;$replace=; var $text = call str_ireplace $subject=$text;$search=[code]$code[/code];$replace={{
var $text = call str_ireplace $subject=$text; $search=[/center]; $replace=
var $text = call str_ireplace $subject=$text; $search=[ten]; $replace=
var $text = call str_ireplace $subject=$text; $search=[/ten]; $replace=
var $text = call str_ireplace $subject=$text;$search=[quote];$replace=
var $text = call str_ireplace $subject=$text;$search=[/dow];$replace=
var $text = call str_ireplace $subject=$text;$search=[tai];$replace=
var $text = call str_ireplace $subject=$text;$search=[url=;$replace=
var $text = call str_ireplace $subject=$text;$search=];$replace=">
var $text = call str_ireplace $subject=$text;$search=:D;$replace=
;$replace=; var $text = call str_ireplace $subject=$text;$search=[code]$code[/code];$replace={{
$code
Copy Code
}}
if $sc
goto @code
endif
@img
var $i=($i+1)
var $ei=call strrpos $haystack=$text;$needle=[/img]; $offset=0
var $si=call strrpos $haystack=$text;$needle=[img]; $offset=0
var $img = call substr $val=$text;$start=($si+5);$length=($ei-$si-5);
var $text = call str_ireplace $subject=$text;$search=[img]$img[/img];$replace={{}}
if $si > 20
goto @img
endif
var $text = call str_ireplace $subject=$text;$search=[text];$replace=
var $text = call str_ireplace $subject=$text;$search=[b];$replace=
var $text = call str_ireplace $subject=$text;$search=[/b];$replace=
var $text = call str_ireplace $subject=$text;$search=[u];$replace=
var $text = call str_ireplace $subject=$text;$search=[/u];$replace=
var $text = call str_ireplace $subject=$text;$search=[i];$replace=
var $text = call str_ireplace $subject=$text;$search=[/i];$replace=
var $text = call str_ireplace $subject=$text; $search=[p]; $replace=var $text = call str_ireplace $subject=$text; $search=[/p]; $replace=
var $text = call str_ireplace $subject=$text; $search=[center]; $replace=
var $text = call str_ireplace $subject=$text;$search=[/quote];$replace=
var $text = call str_ireplace $subject=$text;$search=[dow];$replace=
var $text = call str_ireplace $subject=$text;$search=[/dow];$replace=
var $text = call str_ireplace $subject=$text;$search=[tai];$replace= Tải Về Máy
var $text = call str_ireplace $subject=$text;$search=[/tai];$replace=
var $text = call str_ireplace $subject=$text;$search=];$replace=">
var $text = call str_ireplace $subject=$text;$search=:D;$replace=
var $text = call str_ireplace $subject=$text;$search=:21;$replace=
var $text = call str_ireplace $subject=$text;$search=:));$replace=
return $text
endfunction
#Func phân trang
function page $noidung=;$dir=;
var $show=10000
var $url=http://taigame0d.xtgem.com/xts/function.xttj?p
var $lnd = call strlen $val=$noidung
if $lnd <= $show
var $cut = $noidung
endif
if $lnd >= $show
var $nump = ($lnd/$show)
var $nump = call ceil $num=$nump
get p
if $p ==
var $p=1
endif
if $p <$nump
var $cham = ...
endif
if $p > $nump
var $p=$nump
endif
var $batdau =($p*$show-$show)
var $nump = call ceil $num=$nump
var $textd = call substr $val=$noidung;$start=$batdau;$length=$show
var $st = call strpos $haystack=$textd;$needle=
var $textc = call substr $val=$noidung;$start=($batdau+$show);$length=$show
var $et = call strpos $haystack=$textc;$needle=
if $p==1
var $st=0
endif
if $p==$nump
var $et=0
endif
var $cut = call substr $val=$noidung;$start=($batdau+$st);$length=($show+$et-$st);
if $p > 1
var $dau = 1
var $prev = <<
if $p > 2
var $prevp = ($p-1)
if $p > 3
var $prevvp = ($p-2)
if $p > 4
var $dau = 1...
endif
endif
endif
endif
if $p < $nump
var $next = >>
var $cuoi = $nump
if $p < ($nump-1)
var $nextp = ($p+1)
if $p < ($nump-2)
var $nexttp = ($p+2)
if $p < ($nump-3)
var $cuoi = ...$nump
endif
endif
endif
endif
if $lnd > $show
var $pagego =
endif
print $cut$cham$pagego
endfunction
#Func filelist
function filelist_mod $fi=-index;$dir=;$per_page=7;
var $temp = call htmlspecialchars $val=$temp;
var $list =
var $i = 0
var $path = /xts/function.xttj
if $path == /index
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=/images/icon/noimg.jpg
endif
var $mota = call substr $val=$data;$start=0;$length=150;
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 = {{}}
var $list = call str_replace $subject=$list;$search=[dead]$file[/dead];$replace=$hienthi;
if $start
goto @batdau
endif
var $path = /xts/function.xttj
if $path==/index or $path == /$dir/view
var $list = call str_replace $subject=$list;$search=;$replace=
endif
Print $list
endfunction
var $path = /xts/function.xttj
if $path==/index
var $list = call str_replace $subject=$list;$search=index;$replace=$dir
endif
Print $list
endfunction
endif
Print $list
endfunction
var $path = /xts/function.xttj
if $path==/index
var $list = call str_replace $subject=$list;$search=index;$replace=$dir
endif
Print $list
endfunction
