Share code làm wap truyện từ file TXT

Admin · Jun 29, 2012

Copy vào trang bạn

HTML:

<!DOCTYPE html PUBLIC "-//WAPFORUM//DTD XHTML Mobile 1.2//EN" "http://www.openmobilealliance.org/tech/DTD/xhtml-mobile12.dtd"><html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
<head>
<xt:code><!--parser:xtscript-->
//-------
// Mã viết bởi: Nguyễn Bá Anh
// Email: nba.1.6.94@gmail.com
// Ola: ngbaanh
get l
get lk
get pz
get t
assign $link = call stristr $haystack=$l; $needle=.; $before_needle=1;
assign $lincc = call str_replace $subject=$link;$search=^;$replace=/;
assign $lk = call str_replace $subject=$lincc;$search=*;$replace=.;
assign $info = call strstr $haystack=$l; $needle=.; $before_needle=0;
assign $infoo = call str_replace $subject=$info;$search=.;$replace=;
assign $daonguoc = call strrev $val=$infoo
assign $cat1 = call strstr $haystack=$daonguoc; $needle=~; $before_needle=0 ;
assign $cat2 = call str_replace $subject=$cat1;$search=~;$replace=;
assign $ten = call strrev $val=$cat2
assign $info2 = call strstr $haystack=$l; $needle=~; $before_needle=0;
assign $pz = call str_replace $subject=$info2;$search=~;$replace=;
print <title>[NBAW] - $ten</title>
<!--/parser:xtscript-->
</xt:code>
<style type="text/css">
      *{margin:0; padding:0; font-family:arial; font-size: 12px;}
  h1 {color: red; font-size:25px; text-align:center;}
      .cnt {max-width:500px; border:1px solid black;padding:3px; margin:2px auto;}
      .page_nav {width:200px; border:1px solid black;padding:3px; margin:2px auto; text-align:center; border-radius: 10px;}
      .sep {float:none; clear:both;}
      .page_nav a, .page_num{border:1px solid green; margin:2px; padding:2px; width:30px; height:30px; display:block; float:left; border-radius:5px;}
      .page_nav a:hover{border:1px solid red; background-color: red;  border-radius:5px;}
      form[input].page_nav {max-width:15px; border:1px solid silver;}
</style>
    <meta http-equiv="Content-Type" content="application/vnd.wap.xhtml+xml; charset=utf-8" />
</head>
  <body style="">
<div class="cnt">
<xt:code>
<!--parser:xtscript-->  
assign $text = call source $file=$lk;$html_safe=1;$nl2br=1;$space2nbsp=0
var $dodai=call strlen $val=$text
if not $t
var $t=1
endif
if $pz==1
var $cpp=10000
elseif $pz==2
var $cpp=20000
endif
if $t==1
var $batdau=0
var $cppp=$cpp
else
var $pc=($t-1)
var $batdau=($pc*$cpp)
var $cppp=($cpp*$t)
endif
var $tmac=($dodai/$cpp)
var $tmax=call ceil $num=$tmac
var $tn=($t+1)
var $tn=($t-1)
print <h1>$ten</h1><br/><b>Độ dài: $dodai</b>.<br/>Bạn đang xem trang $t. Tổng số trang: $tmax. Số kí tự tối đa trên mỗi trang: $cpp.<br/><hr/>
include waptag.wap.sh/xts/ngbaanh.xt 
call waptag.wap.sh@hien_thi $v=$text;$st=$batdau;$kt=$cppp
var $tmac=($dodai/$cpp)
var $tmax=call ceil $num=$tmac
var $tn=($t+1)
var $tp=($t-1)
print <div class="page_nav"><a href="<xt:url noquery="1" />?l=$l&t=1">&lt;::</a>
if $t<$tmax
print <a href="<xt:url noquery="1" />?l=$l&t=$tn">&gt;</a>
endif
print <p class="page_num">[$t/$tmax]</p>
if $t>1
print <a href="<xt:url noquery="1" />?l=$l&t=$tp">&lt;</a>
endif
print <a href="<xt:url noquery="1" />?l=$l&t=$tmax">::&gt;</a><div class="sep"></div>Trang: <form action='<xt:url noquery="1" />'><input type="hidden" name="l" value="$l"><input type="text" name="t" style="max-width:15px;"  value=""><input type="submit" value="Tới"></form></div><p>Link: <font color="#ff00ff"><xt:url /></font></p> 
<!--/parser:xtscript--></xt:code>
</body>
</html>

Hướng dẫn:
1. tạo thư mục ví dụ:
/truyen/
/truyen/dulieu/
truyen/dulieu/truyencuoi/
...
2. upload tệp txt lên các thư mục vừa tạo, ví dụ mình up lên /truyen/dulieu/truyencuoi/abc.txt
3.
tạo tệp html "index" trong /truyen/ và dán mã trên kia vào
4. tạo link:
link theo mẫu: http://wapban.xtgem.com/truyen/index?l=dulieu^truyencuoi^abc*txt.Ten-Truyen-O-Day~1
lưu ý: thay "/" trong địa chỉ tệp txt thành "^" nhé
đem ra sử dụng thui
đây là sản phần hoàn chỉnh: http://xtvn.mobie.in/zzz/phantrangtxt/?l=dulieu^dmplk*txt.Dế Mèn phiêu lưu kí~1

Share code làm wap truyện từ file TXT

Admin

Well-Known Member

Facebook Comments

Similar threads

Share code làm wap truyện từ file TXT

AdminAdmin is verified member.

Well-Known Member

Facebook Comments

Similar threads

Admin