Share Code phân trang cho xtgem

[dgtupltn95]

Làm theo yêu cầu bạn nào ý,Code rã tay mới biết có người share rùi , nhưng thôi, cứ share ae vì mình ko ăn trộm hay lấy ở đâu cả
---
Bạn có một nội dung dài (tiểu thuyết chẳng hạn), không thể post tản mạn đc. Code này sẽ giúp bạn phân tách nội dung đó theo từng trang, số kí tự 1 trang là do bạn quyết định
---
B1. Tạo file page.xt paste code sau:

#explode
/* Code phân trang XtScript */
/* Viết bởi Jin9x */
function page $noidung=chưa có gì;$show=500;$url=;
get p
if $p ==
var $p=1
endif
var $batdau =($p*$show-$show)
if $noidung <= $show
var $cut = $noidung
else
var $cut = call substr $val=$noidung;$start=$batdau;$length=$show;
endif
print $cut<br />
var $lnd = call strlen $val=$noidung
var $nump =($lnd/$show)
var $nump = call ceil $num=$nump
if $nump>1
print Trang:
if $p!=1
var $dau = <a href="$url?p=1">1</a>,
var $prev = <a href="$url?p=($p-1)">[<]</a>
if $p != 2
var $prevp = <a href="$url?p=($p-1)">($p-1)</a>,
endif
if $p > 3
var $prevvp = <a href="$url?p=($p-2)">($p-2)</a>,
endif
endif
if $p!=$nump 
var $cuoi = ,<a href="$url?p=$nump">$nump</a>
if $p != ($nump-1)
var $nextp = ,<a href="$url?p=($p+1)">($p+1)</a>
endif 
if $p<($nump-2)
var $nexttp = ,<a href="$url?p=($p+2)">($p+2)</a>
endif
var $next = <a href="$url?p=($p+1)">[>]</a>
endif
print $prev $dau$prevvp$prevp[$p]$nextp$nexttp$cuoi $next<br />Đến trang: <form method="get"><input type="text" size="3" name="p" /><input type="submit" value="Đến" /></form>
endif
endfunction

B2. Chèn code sau vào chỗ bạn muốn

<!--parser:xtscript-->
include /page.xt
call @page $noidung=Nội dung cần phân tách;$show=Số kí tự 1 trang;$url=đường dẫn file mà bạn đặt code
<!--/parser:xtscript-->

---
Ví dụ
1. Mình đã chuẩn bị sẵn truyện Dế mèn phiêu lưu ký ở đây http://wmvn.hexat.com/data/dmplk.txt
2. Mình đã có file page.xt như trên
3. Giờ mình đặt code sau ở file /test

<!--parser:xtscript--> 
$text = call source $file=/data/dmplk.txt;$html_safe=1;$nl2br=1;$space2nbsp=0
#lấy nội dung file dmplk.txt
include /page.xt
#chèn file page.xt
call @page $noidung=$text;$show=1000;$url=/test
#nội dung vừa lấy, số kí tự 1 trang là 1000, mình đặt code ở file test nên url là /test
<!--/parser:xtscript-->

4. Demo nè: XtGem.com
---
xong! , không phải mình "phức tạp hoá vấn đề" mà làm thế này. Với cách này bạn có thể áp dụng mọi lúc mọi nơi. Kết hợp file list và 1 chút xtscript bạn hoàn toàn có thể tạo 1 wap truyện update.
Chúc thành công