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 Đủ
rồi 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 Yêu
thếtscript-->
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 Yêu
thếtscript-->
---
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 Yêu
thếtscript-->
$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 Yêu
thếtscript-->
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