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
Online:
Guests: 1
