File name: addrbook/selfinfo.sub (1,092 bytes) Text file viewer v1.2
    1 : /* file: selfinfo.sub
    2 : 
    3 :    주소록 사용자 자기 정보 수정 폼 출력 부 프로그램 (author: 서광현)
    4 : 
    5 :    Copyright (c) 2001/02/22 by Wesoft
    6 :    All Rights Reserved.
    7 : */
    8 : 
    9 : qstr= "select id,title,kind,name,phone,hdphone,email,pagerec from "
   10 :     ~ myustable ~ " where id='" ~ ckid ~ "'";
   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= "주소록 ID: <font color=#f00000>" ~ ckid
   22 :         ~ "</font> 의 자료가 없습니다!" ~ BACK_BUTTON;
   23 :     formdump(message_form);
   24 :     return disconnect();
   25 :  }
   26 : mysql_free_result(myresult);
   27 : 
   28 : id     = row[0];
   29 : title  = row[1];
   30 : kind   = row[2];
   31 : name   = row[3];
   32 : phone  = row[4];
   33 : hdphone= row[5];
   34 : email  = row[6];
   35 : pagerec= row[7];
   36 : 
   37 : if(kind=="C") selC= " selected";
   38 :   else if(kind=="O") selO= " selected";
   39 : 
   40 : fm= formdump("form/selfinfo.fom");
   41 : if(fm==FORM_OPENERR) return err_form("selfinfo.fom");
   42 : return disconnect();
File name: addrbook/selfinfo.sub (1,092 bytes) Wesoft Corp. ⓒ 2001 All rights reserved.