dead Ở đây là code searchkey của mình mod lại thôi

Code:

#exportable function searchkey $fi=-ten var $tem = <div class="list1">><img src="http://forlam.wap.sh/images/icon/next.gif" alt="ForLam"/><a href="/xem?id=~f~.file_name.~e~#up" title="~dau~.file_name.~cuoi~" rel="nofollow">~dau~.file_name.~cuoi~</a><br/>Đăng: ~sdate[.file_date.]edate~ |Xem: ~tl[.file_name.]~</div> var $temp = call htmlspecialchars $val=$tem; var $list = <xt:filelist sort_type="updated" sort_dir="desc" per_page="15" folder="/data" template="$temp" filter="$fi"/> @batdau assign $end=call strrpos $haystack=$list;$needle=~e~; $offset=0 assign $start=call strrpos $haystack=$list;$needle=~f~; $offset=0 var $namekey = call substr $val=$list;$start=($start+3);$length=($end-$start-3); var $getname = call source $file=/dataf/$namekey 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 $tenfile = $getname var $ft = call strrpos $haystack=$getname;$needle=.;$offset=0 var $idc = call substr $val=$getname;$start=($ft+1);$length=10; var $cm = call source $file=/muc/$idc /* Ngay gio dang bai */ assign $edate=call strrpos $haystack=$list;$needle=]edate~; $offset=0 assign $sdate=call strrpos $haystack=$list;$needle=~sdate[; $offset=0 var $getdate = call substr $val=$list;$start=($sdate+7);$length=($edate-$sdate-7); var $nam = call substr $val=$getdate;$start=0;$length=4; var $thang = call substr $val=$getdate;$start=5;$length=2; var $ngay= call substr $val=$getdate;$start=-2;$length=2; var $tnam = <xt:tdate format="Y" tzone="7"/> var $tthang = <xt:tdate format="m" tzone="7"/> var $tngay = <xt:tdate format="d" tzone="7"/> if $tngay < 10 var $ngayt = call substr $val=$tngay;$start=-1;$length=1; var $ngayt = 0($ngayt -1) else var $ngayt = ($tngay-1) endif if $getdate == $tnam-$tthang-$tngay var $dang = Hôm nay <img src="http://forlam.wap.sh/images/icon/hot.gif" alt="hot"/> elseif $getdate == $tnam-$tthang-$ngayt var $dang = Hôm qua <img src="http://forlam.wap.sh/images/icon/new_fl.gif" alt="new"/> else var $dang = $ngay.$thang.$nam endif /*Ket thuc ngay gio*/ var $list = call str_replace $subject=$list;$search=~sdate[$getdate]edate~;$replace=$dang; var $list = call str_replace $subject=$list;$search=~f~$namekey~e~;$replace=$getname; var $list = call str_replace $subject=$list;$search=~dau~$namekey~cuoi~;$replace=$rename; var $list = call str_replace $subject=$list; $search=~tl[$namekey]~; $replace=$cm if $start > 10 goto @batdau endif print $list endfunction

Chú thích:
*Code dành cho list này chỉ giành cho filelist dạng id thôi nhé. Và dành cho filelist có dữ liệu chưa nhiều
data: thư mục chứa dữ liệu cũ
dataf: là thư mục chứa dữ liệu mới. Ở đây có gì?
Ở đây bạn tạo các file mới dạng txt với tên bất kì(nhưng mình khuyên nen tạo cùng tên với data cũ). Nội dung trong 1 file là tên file trong data cũ nhé.
VD: Mình tạo file tên ten-em-kac-trong-tim-anh.tn(tên này thay đổi dc) chứa nội dung là ten-em-kac-trong-tim-anh.tn(tên này không thay đổi dc, vì dùng làm link).

Vậy là xong rồi đấy. Vừa nãy mình nói dành cho fl chưa có data nhiều là do nhiều quá nên làm biếng tạo thêm các file mới thôi.

Code hoạt động theo cách lệch hướng, nghĩa là file trong mục dataf dùng làm link cho bài viết, cũng vì thế nên file rất nhẹ nên không hề timeout.

Các bạn dọc kĩ hướng dẫn nhé, đừng hỏi những cái có nói rồi .

Chú ý nữa là: Nếu bị timeout thì do trang cũa b có code đang lỗi nên ảnh hưởng thôi
File import bên dưới

Nguồn: dead - ForLam.Wap.Sh