[XTGEM] Share file list.xt giảm timeout gần như hoàn toàn | Xtgem

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

Copy code

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

# 2014-03-15 13:38

list.xt.js · text/html · 2.61KB

(edited 2014-03-15 13:41 by dead ) · (0)