27-04-2015
Mình gà quá nên chả viết đc code nào hot, đang sửa lại cái filelist thì nghĩ ra cái này, hi. thấy code tag kiểu này chưa ai share nên share cho ae có thể dùng làm tag hoặc đám mây từ khóa v.v
Code này lấy chữ đầu tiên của tên bài viết và nội dung bài viết của filelist để làm tag nhé
Hdsd: tạo file tag.xt hay tên gì đó tùy bạn rùi dán code này vào

#exportable function tag $fi= var $tem = ~dau~.file_name.~cuoi~ var $temp = call htmlspecialchars $val=$tem; var $list = <xt:filelist sort_type="updated" sort_dir="desc" per_page="" folder="/data" template="$temp" 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-5); 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 var $rename = call substr $val=$data;$start=($startt+5);$length=($endt-$startt-5); assign $infoa=call strstr $haystack=$data; $needle=[/info]; $before_needle=1; assign $infob=call strstr $haystack=$infoa; $needle=[info]; $before_needle=0; assign $info=call str_replace $subject=$infob;$search=[info];$replace=; var $spc=call chr $val=32 var $tag = call strip_tags $val=$rename var $mota = call strip_tags $val=$info var $pupy = call chr $val=32 var $mt = call substr $val=$mota;$start=$pupy;$length=200; var $mt = call str_replace $subject=$mt;$search=$pupy;$replace=¤; var $py = call strrpos $haystack=$mt; $needle=¤; $offset=0; var $mt = call substr $val=$mt;$start=0;$length=$py; var $mt = call str_replace $subject=$mt;$search=¤;$replace=$pupy; var $smt=call strpos $haystack=$mt;$needle=$spc;$offset=0 var $mtt=call substr $val=$mt;$start=0;$length=$smt; var $stag=call strpos $haystack=$tag;$needle=$spc;$offset=0 var $key=call substr $val=$tag;$start=0;$length=$stag; var $ser = <a href="http://google.com.vn/search?sitesearch=<xt:url type="domain" />&q=$key $mtt" title="$key $mtt" rel="nofollow">$key $mtt</a>,$spc var $list = call str_replace $subject=$list;$search=~dau~$getname~cuoi~;$replace=$ser; if $start > 10 goto @batdau endif print $list endfunction

Rồi muốn tag này hiển thị ở đâu thì dán code này

<!--parser:xtscript--> include /tag.xt call @tag <!--/parser:xtscript-->

Nhớ sửa lại thư mục data trong filelist cho hợp với wap bạn
Nguồn: code by pupy - aichat.wap.sh