1 : /* file: pagebar.sub¶
    2 : ¶
    3 :    페이지 이동 폼 출력 부 프로그램 (author: 서광현)¶
    4 : ¶
    5 :    Copyright (c) 2001/03/25 by Wesoft¶
    6 :    All Rights Reserved.¶
    7 : */¶
    8 : ¶
    9 : max_page= 5;¶
   10 : if(gopage=="") gopage= "gopage";¶
   11 : gopage0= gopage ~ "(0)";¶
   12 : onstyle= "width:30;height:16px;font-size:7pt;letter-spacing:-2;border-color:#909090";¶
   13 : offstyle= "!" ~ onstyle ~ ";color:#c0c0c0";¶
   14 : space= "    \n";¶
   15 : left1= "처음 페이지로 이동";¶
   16 : left2= "이전 페이지로 블럭 단위 페이지 이동";¶
   17 : left3= "이전 페이지로 한 페이지 이동";¶
   18 : right1= "마지막 페이지로 이동";¶
   19 : right2= "다음 페이지로 블럭 단위 페이지 이동";¶
   20 : right3= "다음 페이지로 한 페이지 이동";¶
   21 : start_page= tot_page - fix((tot_page-view_page)/max_page) * max_page;¶
   22 : end_page= start_page - max_page + 1;¶
   23 : if(end_page<1) end_page= 1;¶
   24 : if(view_page>=tot_page) action1= action3= gopage0, style= offstyle;¶
   25 :  else¶
   26 :   {¶
   27 :      action1= gopage ~ "(" ~ tot_page ~ ")";¶
   28 :      action3= gopage ~ "(" ~ view_page + 1 ~ ")";¶
   29 :      style= onstyle;¶
   30 :   }¶
   31 : if(start_page>=tot_page) action2= gopage0, style2= offstyle;¶
   32 :   else action2= gopage ~ "(" ~ start_page + 1 ~ ")", style2= onstyle;¶
   33 : ¶
   34 : print("\n");¶
   35 : bt_comment= left1; button(2, action1, "◀◀", style);¶
   36 : print(space);¶
   37 : bt_comment= left2, button(2, action2, "◀ 〓", style2);¶
   38 : bt_comment= left3; button(2, action3, "◀", style);¶
   39 : print("\n&nbsp;&nbsp;");¶
   40 : for(page= start_page; page>=end_page; page--)¶
   41 :  {¶
   42 :     if(page==view_page) print("<font color=#f00000>", page, "</font>");¶
   43 :      else print("<a href='javascript:"~gopage~"(", page, ")'>", page, "</a>");¶
   44 :     print("&nbsp;&nbsp;");¶
   45 :  }¶
   46 : if(view_page<=1) action1= action3= gopage0, style= offstyle;¶
   47 :  else¶
   48 :   {¶
   49 :      action1= gopage ~ "(1)";¶
   50 :      action3= gopage ~ "(" ~ view_page - 1 ~ ")";¶
   51 :      style= onstyle;¶
   52 :   }¶
   53 : if(end_page<=1) action2= gopage0, style2= offstyle;¶
   54 :   else action2= gopage ~ "(" ~ end_page - 1 ~ ")", style2= onstyle;¶
   55 : bt_comment= right3; button(2, action3, "▶", style);¶
   56 : bt_comment= right2, button(2, action2, " 〓▶", style2);¶
   57 : print(space);¶
   58 : bt_comment= right1; button(2, action1, "▶▶", style);¶
   59 : print("\n");¶
   60 : return;¶