#exportable
function filelist $fi=-ten
var $list = <xt:filelist sort_type="updated" sort_dir="desc" per_page="10" folder="/data" template="&lt;div class=&quot;list&quot;&gt;&lt;table cellpadding=&quot;0&quot; cellspacing=&quot;0&quot; width=&quot;100%&quot;&gt;&lt;tr&gt;&lt;td width=&quot;40&quot; align=&quot;center&quot;&gt;&lt;img class=&quot;ic1 ic2&quot; src=&quot;~img[.file_name.]~&quot; width=&quot;40px&quot; height=&quot;50px&quot; alt=&quot;&quot;/&gt;&lt;/td&gt;&lt;td width=&quot;auto&quot; valign=&quot;top&quot;&gt;· &lt;a href=&quot;/xem.html?id=.file_name.&quot;&gt;~dau~.file_name.&lt;/a&gt;~cuoi~&lt;div class=&quot;sub&quot;&gt;&lt;span class=&quot;gray&quot;&gt;? .file_date. / .file_time.&lt;/span&gt;&lt;/div&gt;&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;&lt;/div&gt;" filter="$fi"/>
@batdau
assign $end=call strrpos $haystack=$list;$needle=~cuoi~; $offset=0
assign $start=call strrpos $haystack=$list;$needle=~dau~; $offset=0
var $getname = call substr $val=$list;$start=($start+5);$length=($end-$start-9);
var $data = call source $file=/data/$getname
assign $endt =call strpos $haystack=$data;$needle=[/ten]; $offset=0
assign $startt=call strpos $haystack=$data;$needle=[ten]; $offset=0
assign $endi=call strpos $haystack=$data;$needle=[/img]; $offset=0
assign $starti=call strpos $haystack=$data;$needle=[img]; $offset=0
var $rename = call substr $val=$data;$start=($startt+5);$length=($endt-$startt-5);
if $endi > ($starti+13)
var $img = call substr $val=$data; $start=($starti+5); $length=($endi-$starti-5);
else
var $img=http://GocFree.Com/img/empty.png
endif
var $list = call str_replace $subject=$list;$search=~dau~$getname</a>~cuoi~;$replace=$rename</a>;
var $list = call str_replace $subject=$list; $search=~img[$getname]~; $replace=$img;
if $start > 25
goto @batdau
endif
assign $today=<xt:tdate format="Y-m-d" />
var $list = call str_replace $subject=$list; $search=</a><div class="sub"><span class="gray">? $today; $replace=</a><img src="http://gocfree.com/img/new.gif" alt="New"/><div class="sub"><span class="gray">? $today
get __filelist_page
if $__filelist_page ==
var $__filelist_page = 1
endif
var $list = call str_replace $subject=$list; $search=<span>$__filelist_page</span>; $replace=<span class="currentpage"><b>$__filelist_page</b></span>
print <div class="sublist">$list</div>
endfunction