File name: addrbook/chkdupid.wel (849 bytes) Text file viewer v1.2 
    1 : #!/bin/wel
    2 : 
    3 : /* file: chkdupid.wel
    4 : 
    5 :    주소록 ID 중복 검사 프로그램 (author: 서광현)
    6 : 
    7 :    Copyright (c) 2001/02/22 by Wesoft
    8 :    All Rights Reserved.
    9 : */
   10 : 
   11 : htmlquery("GET");
   12 : include("common.inc");
   13 : 
   14 : dupflag= 1;
   15 : MSG= "주소록의 ID에 대한 중복여부를 검사합니다.";
   16 : if(id=="")
   17 :  {
   18 :     fm= formdump("form/chkdupid.fom");
   19 :     if(fm==FORM_OPENERR) return err_form("chkdupid.fom");
   20 :     return;
   21 :  }
   22 : 
   23 : if(mysql_connection()==MYSQL_ERR) return;
   24 : id= strchange(tolower(left(id,12)), fch~"| ", rch~"|");
   25 : recnt= get_recount(mysql, myustable, "id='" ~ id ~ "'");
   26 : if(recnt>0)
   27 :   {
   28 :     MSG= "<font color=#f00000>" ~ id ~ "</font> 는 이미 등록되어 있습니다!";
   29 :   }
   30 :  else
   31 :   {
   32 :     dupflag= 0;
   33 :     MSG= "<font color=#f00000>" ~ id ~ "</font> 는 사용하셔도 좋습니다!";
   34 :   }
   35 : 
   36 : fm= formdump("form/chkdupid.fom");
   37 : if(fm==FORM_OPENERR) return err_form("chkdupid.fom");
   38 : return disconnect();
File name: addrbook/chkdupid.wel (849 bytes) Wesoft Corp. ⓒ 2001 All rights reserved.