File name: welboard2/include/pagebar.sub (2,017 bytes) Text file viewer v1.2
    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;
File name: welboard2/include/pagebar.sub (2,017 bytes) Wesoft Corp. ⓒ 2001 All rights reserved.