code tăng giảm cỡ chữ lưu cookie bằng xtscript

<!--parser:xtscript-->
Get size
if $size
# số giây lưu là 86400
call cookie::set $name=size; $val=$size; $expire=86400;$force_current=1; 
Endif
# cỡ chữ mặc định là 12
var $size= call cookie::get $name=size;$default=12
Var $font = <div id="size" class="tab"><div class="td30">cỡ chữ: $size</div><div class="td20"><form action="#size" method="post"><details><summary>($size+2)</summary><input type="number" name="size" value="($size+2)" /></details><input type="submit" value="Tăng" /></form></div><div class="td20"><form action="#size"  method="post"><details><summary>($size-2)</summary><input type="number" name="size" value="($size-2)" /></details><input type="submit" value="Gỉam" /<>/form></div><div class="td30">
If $size==12
Var $in = $font</div></div>
Else
Var $in = $font<form method="post"><input type="hidden" name="size" value="12" /><input type="submit" value="mặc định" /></form></div></div>
Endif
Var $su=px
Print <style>body{font-size:$size$su!important}.tab{display:table;width:100%;margin:0 0 3px;vertical-align:middle}.td20,.td30,.td40{display:table-cell;vertical-align:middle}.td20{width:20%}.td30{width:30%}input[type=number]{width:30%}</style>$in
<!--/parser:xtscript-->