File name: addrbook/admmodify.sub (1,263 bytes) Text file viewer v1.2 
    1 : /* file: admmodify.sub
    2 : 
    3 :    주소록 사용자 수정 폼 출력 부 프로그램 (author: 서광현)
    4 : 
    5 :    Copyright (c) 2001/02/22 by Wesoft
    6 :    All Rights Reserved.
    7 : */
    8 : 
    9 : qstr= "select id,title,class,kind,useflag,name,phone,hdphone,email,pagerec"
   10 :     ~ " from " ~ myustable ~ " where selno=" ~ no;
   11 : 
   12 : if(mysql_query(mysql, qstr)==MYSQL_ERR) return err_query();
   13 : myresult= mysql_store_result(mysql);
   14 : if(myresult==MYSQL_ERR) return err_store_result();
   15 : 
   16 : recnt= mysql_num_rows(myresult);
   17 : if(recnt>0) row= mysql_fetch_row(myresult);
   18 : if(recnt<1 || row==MYSQL_ERR)
   19 :  {
   20 :     MSG1= "[" ~ recnt ~ "] 자료가 없습니다!";
   21 :     MSG2= "번호" ~ no ~ "의 자료가 없습니다!" ~ BACK_BUTTON;
   22 :     formdump(message_form);
   23 :     return disconnect();
   24 :  }
   25 : mysql_free_result(myresult);
   26 : 
   27 : id     = row[0];
   28 : title  = row[1];
   29 : class  = row[2];
   30 : kind   = row[3];
   31 : useflag= row[4];
   32 : name   = row[5];
   33 : phone  = row[6];
   34 : hdphone= row[7];
   35 : email  = row[8];
   36 : pagerec= row[9];
   37 : 
   38 : if(kind=="C") selC= " selected";
   39 :   else if(kind=="O") selO= " selected";
   40 : 
   41 : if(useflag=="S") selS= " selected";
   42 :   else if(useflag=="Y") selY= " selected";
   43 :   else if(useflag=="N") selN= " selected";
   44 : 
   45 : if(class=="A") user= "관리자"; else user= "소유자";
   46 : 
   47 : fm= formdump("form/admmodify.fom");
   48 : if(fm==FORM_OPENERR) return err_form("admmodify.fom");
   49 : return disconnect();
File name: addrbook/admmodify.sub (1,263 bytes) Wesoft Corp. ⓒ 2001 All rights reserved.