28-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
28-04-2015
lằng nhằng gứm.
cứ up lun title làm tag
28-04-2015
Ukm, 1số code nó thừa như mây cái cắt mô tả nhưng để đó cho nó có vẻ nguy hiểm,
28-04-2015
@tuan, Up cho ai dùng thì dùng
05-05-2015
Sao không hiển thị xem giúp mình.
click here
06-05-2015
tavakiok Cậu đặt tag ở ở trong thư mục hay nó ngang với index??
Share code tags kiểu mới cho xtgem
Tổng số: 8
