File name: addrbook/delmark.wel (1,182 bytes) Text file viewer v1.2 
    1 : #!/bin/wel
    2 : 
    3 : /* file: delmark.wel
    4 : 
    5 :    주소록 자료 삭제 표시 프로그램 (author: 서광현)
    6 : 
    7 :    Copyright (c) 2001/02/22 by Wesoft
    8 :    All Rights Reserved.
    9 : */
   10 : 
   11 : htmlquery("GET");
   12 : include("common.inc");
   13 : if(mysql_connection()==MYSQL_ERR) return;
   14 : login= admin= 0; // 로긴 상태가 아니며 관리자 메뉴 사용불능
   15 : if(include("chkuser.sub")!=OK) return disconnect();
   16 : 
   17 : if(openpassmatch==0)
   18 :  {
   19 :     MSG1= "개방형 주소록 읽기 전용 상태";
   20 :     MSG2= "주소록을 개방형으로 했을 경우 ID와 암호가 일치해야만"
   21 :         ~ " 신규등록/수정/삭제가 가능하며<br>암호가 일치하지 않으면"
   22 :         ~ " 주소록을 조회만 할 수 있습니다!" ~ BACK_BUTTON;
   23 :     formdump(message_form);
   24 :     return disconnect();
   25 :  }
   26 : no= val(no);
   27 : if(no<1)
   28 :  {
   29 :     MSG1= "자료번호 오류";
   30 :     MSG2= "자료 번호가 없거나 잘못되었습니다." ~ HELP_ADMIN;
   31 :     formdump(message_form);
   32 :     return disconnect();
   33 :  }
   34 : 
   35 : if(del==1) dflag= "d"; else dfalg= "";
   36 : qstr= "update " ~ mytable ~ " set delflag='" ~ dflag ~ "' where selno=" ~ no;
   37 : 
   38 : if(mysql_query(mysql, qstr)==MYSQL_ERR) return err_query();
   39 : url= strform("addrbook.wel?list={$list}&k={$k}&n={$n}&o={$o}",
   40 :              "&pi={$pi}&pw={$pw}&pm={$pm}&ps={$ps}&pd={$pd}");
   41 : replace_location(url);
   42 : return disconnect();
File name: addrbook/delmark.wel (1,182 bytes) Wesoft Corp. ⓒ 2001 All rights reserved.