File name: addrbook/zap.wel (1,244 bytes) Text file viewer v1.2 
    1 : #!/bin/wel
    2 : 
    3 : /* file: zap.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 : if(no=="all")  qstr= "delete from " ~ mytable ~ " where delflag='d'";
   27 :  else
   28 :   {
   29 :      no= val(no);
   30 :      if(no<1)
   31 :       {
   32 :          MSG1= "자료번호 오류";
   33 :          MSG2= "자료 번호가 없거나 잘못되었습니다." ~ HELP_ADMIN;
   34 :          formdump(message_form);
   35 :          return disconnect();
   36 :       }
   37 :      qstr= "delete from " ~ mytable ~ " where selno=" ~ no;
   38 :   }
   39 : 
   40 : if(mysql_query(mysql, qstr)==MYSQL_ERR) return err_query();
   41 : url= strform("addrbook.wel?list={$list}&k={$k}&n={$n}&o={$o}",
   42 :              "&pi={$pi}&pw={$pw}&pm={$pm}&ps={$ps}&pd={$pd}");
   43 : replace_location(url);
   44 : return disconnect();
File name: addrbook/zap.wel (1,244 bytes) Wesoft Corp. ⓒ 2001 All rights reserved.