Code đánh dấu bài viết cho xtgem

Code này cũng cũ rồi share lại thôi, Dạo này ko tìm đc code gì mới, :hehe: ai dùng thì dùng nhé
hdsd: tạo file save rùi post code này



get del

get name

get url

get idc

var $url = call rawurldecode $val=$url

assign $start=call strrpos $haystack=$url;$needle=&p;$offset=0

var $getname = call substr $val=$list;$start=5;$length=-5;

if $del == ok

call cookie::delete $name=bm1;$force_current=1

call cookie::delete $name=name;$force_current=1

call cookie::delete $name=idc;$force_current=1

endif

if $url

call cookie::set $name=bm1;$val=$url;$expire=31556926;$force_current=1

call cookie::set $name=name;$val=$name;$expire=31556926;$force_current=1

call cookie::set $name=idc;$val=$idc;$expire=31556926;$force_current=1

endif

var $cm = call cookie::get $name=cm;$default=none

var $bm1 = call cookie::get $name=bm1;$default=/

var $name = call cookie::get $name=name;$default=Chưa có đánh dấu. Chức năng này thực hiện được khi bạn dang xem bài viết nhưng chưa xong. Bạn hãy bấm vào nút "Đánh dấu bài viết" để lưu lại trang đang đọc. Sau khi lưu Bài viết được đánh dấu sẽ hiện ở trang chủ.

if $bm1 == /

var $nut =

else

var $nut = 

endif

if $idc == none

var $cm = 

else



var $cm = 
 Chuyên mục: $cm

endif

print Trang đánh đấu của bạn
• Hãy đánh dấu lại bài viết bạn đang xem dở và lần sau từ thiết bị mà bạn đã dùng để đánh dấu bạn có thể đọc tiếp bài viết đó!


if $url

print √ Bạn vừa đánh dấu thành công!!


endif

print  Bài viết: $name [$nut] $cm
« Về trang chủ 

if $id

Print | Quay lại bài viết »


endif

Copy Code

get del
get name
get url
get idc
var $url = call rawurldecode $val=$url
assign $start=call strrpos $haystack=$url;$needle=&p;$offset=0
var $getname = call substr $val=$list;$start=5;$length=-5;
if $del == ok
call cookie::delete $name=bm1;$force_current=1
call cookie::delete $name=name;$force_current=1
call cookie::delete $name=idc;$force_current=1
endif
if $url
call cookie::set $name=bm1;$val=$url;$expire=31556926;$force_current=1
call cookie::set $name=name;$val=$name;$expire=31556926;$force_current=1
call cookie::set $name=idc;$val=$idc;$expire=31556926;$force_current=1
endif
var $cm = call cookie::get $name=cm;$default=none
var $bm1 = call cookie::get $name=bm1;$default=/
var $name = call cookie::get $name=name;$default=Chưa có đánh dấu. Chức năng này thực hiện được khi bạn dang xem bài viết nhưng chưa xong. Bạn hãy bấm vào nút "Đánh dấu bài viết" để lưu lại trang đang đọc. Sau khi lưu Bài viết được đánh dấu sẽ hiện ở trang chủ.
if $bm1 == /
var $nut =
else
var $nut = <a href="/save?del=ok"><img src="http://icons.iconarchive.com/icons/iconarchive/red-orb-alphabet/16/Letter-X-icon.png" alt="Xóa"/></a>
endif
if $idc == none
var $cm = 
else

var $cm = <br/><img src="http://forlam.wap.sh/images/icon/sao.png"/> Chuyên mục: <a href="/$lcm">$cm</a>
endif
print <div class="phdr">Trang đánh đấu của bạn</div><div class="list1">• Hãy đánh dấu lại bài viết bạn đang xem dở và lần sau từ thiết bị mà bạn đã dùng để đánh dấu bạn có thể đọc tiếp bài viết đó!</div><div class="list1">
if $url
print <font color="green">√ Bạn vừa đánh dấu thành công!!</font><br/>
endif
print <img src="http://forlam.wap.sh/images/icon/sao.png"/> Bài viết: <a href="$bm1" title="$name">$name</a> [$nut] $cm<hr/><a href="/">« Về trang chủ</a> 
if $id
Print | <a href="$bm1">Quay lại bài viết »</a></div>
endif

vào file xem wap bạn post code này



var $url = http://hivn.hexat.com/story/bai-viet/38-code-danh-dau-bai-viet-cho-xtgem.html

print ★ Đánh dấu bài viết | Quản lý

Copy Code

Ra index hoặc header post code này



get del

get name

get url

if $del == ok

call cookie::delete $name=bm1;$force_current=1

call cookie::delete $name=name;$force_current=1

call cookie::delete $name=url;$force_current=1

endif

if $url

call cookie::set $name=bm1;$val=$url;$expire=31556926;$force_current=1

call cookie::set $name=name;$val=$name;$expire=31556926;$force_current=1

endif

var $bm1 = call cookie::get $name=bm1;$default=/

var $name = call cookie::get $name=name;$default=none

if $bm1 == /

var $nut =

else

var $nut = [Xoá]

endif

if $bm1==/ or $name==none

print Chào: Mozilla/5.0, chúc bạn online vui vẻ


else

print Đọc tiếp: $name $nut


endif