File name: addrbook/register.wel (2,229 bytes) Text file viewer v1.2
    1 : #!/bin/wel¢Ò
    2 : ¢Ò
    3 : /* file: register.wel¢Ò
    4 : ¢Ò
    5 :    ÁÖ¼Ò·Ï »ç¿ëÀÚ µî·Ï½Åû ÇÁ·Î±×·¥ (author: ¼­±¤Çö)¢Ò
    6 : ¢Ò
    7 :    Copyright (c) 2001/02/22 by Wesoft¢Ò
    8 :    All Rights Reserved.¢Ò
    9 : */¢Ò
   10 : ¢Ò
   11 : htmlquery("POST");¢Ò
   12 : include("common.inc");¢Ò
   13 : if(register_flag==0)¢Ò
   14 :  {¢Ò
   15 :     MSG1= "ÁÖ¼Ò·Ï ½Å±Ô ½Åû ºÒ´É »óÅÂ";¢Ò
   16 :     MSG2= "ÇöÀç´Â °ü¸®ÀÚ°¡ ½Åû¼­¸¦ ÀÛ¼ºÇÒ ¼ö ¾øµµ·Ï Çß½À´Ï´Ù.<br>"¢Ò
   17 :         ~ "µî·ÏÀ» Èñ¸ÁÇϽøé Á÷Á¢ " ~ HELP_ADMIN;¢Ò
   18 :     print_type("");¢Ò
   19 :     formdump(message_form);¢Ò
   20 :     return;¢Ò
   21 :  }¢Ò
   22 : step= val(step);¢Ò
   23 : if(step<2)¢Ò
   24 :  {¢Ò
   25 :     if(step==0) fmfile= "register.fom"; else fmfile= "register2.fom";¢Ò
   26 :     print_type("");¢Ò
   27 :     fm= formdump("form/" ~ fmfile);¢Ò
   28 :     if(fm==FORM_OPENERR) err_form(fmfile);¢Ò
   29 :     return;¢Ò
   30 :  }¢Ò
   31 : if(mysql_connection()==MYSQL_ERR) return;¢Ò
   32 : id= strchange(tolower(left(id,12)), fch~"| ", rch~"|");¢Ò
   33 : recnt= get_recount(mysql, myustable, "id='" ~ id ~ "'");¢Ò
   34 : if(recnt>0)¢Ò
   35 :  {¢Ò
   36 :     MSG1= "ID Áߺ¹ ¿À·ù";¢Ò
   37 :     MSG2= "ÁÖ¼Ò·Ï ID: " ~ id ~ " ´Â ÀÌ¹Ì µî·ÏµÇ¾î ÀÖ½À´Ï´Ù!" ~ BACK_BUTTON;¢Ò
   38 :     print_type("");¢Ò
   39 :     formdump(message_form);¢Ò
   40 :     return disconnect();¢Ò
   41 :  }¢Ò
   42 : ¢Ò
   43 : wdtime= date(1) ~ " " ~ left(time(1),5);¢Ò
   44 : pass= tolower(left(pass,12));¢Ò
   45 : enpass= encode(pass, encodekey(), "", decode_variable);¢Ò
   46 : title= strchange(lrtrim(title), fch, rch);¢Ò
   47 : name= strchange(lrtrim(name), fch, rch);¢Ò
   48 : phone= strchange(lrtrim(phone), fch, rch);¢Ò
   49 : hdphone= strchange(lrtrim(hdphone), fch, rch);¢Ò
   50 : email= strchange(lrtrim(email), fch, rch);¢Ò
   51 : ¢Ò
   52 : if(register_flag==2) useflag= "Y"; else useflag= "S";¢Ò
   53 : qstr= "insert into " ~ myustable¢Ò
   54 :   ~ " (wdtime,id,pass,title,class,kind,useflag,name,phone,hdphone,email,pagerec) "¢Ò
   55 :   ~ strform("values('{$wdtime}','{$id}','{$enpass}','{$title}','U','{$kind}',",¢Ò
   56 :             "'{$useflag}','{$name}','{$phone}','{$hdphone}','{$email}','10')");¢Ò
   57 : ¢Ò
   58 : if(mysql_query(mysql, qstr)==MYSQL_ERR) return err_query();¢Ò
   59 : ¢Ò
   60 : include("adminsert.sub");¢Ò
   61 : if(mysql_query(mysql, create_addrtable)==MYSQL_ERR)¢Ò
   62 :  {¢Ò
   63 :     MSG1= "ÁÖ¼Ò·Ï ID: " ~ id ~ " Å×ÀÌºí »ý¼º ¿À·ù";¢Ò
   64 :     MSG2= "ÁÖ¼Ò·Ï ID: " ~ id ~ " Å×À̺íÀ» »ý¼ºÇÒ ¼ö ¾ø½À´Ï´Ù." ~ HELP_ADMIN;¢Ò
   65 :     print_type("");¢Ò
   66 :     formdump(message_form);¢Ò
   67 :     return disconnect();¢Ò
   68 :  }¢Ò
   69 : ¢Ò
   70 : url= "register3.wel?id=" ~ id ~ "&use=";¢Ò
   71 : if(register_flag==2)¢Ò
   72 :  {¢Ò
   73 :     send_cookie(id, pass);¢Ò
   74 :     url~= "1";¢Ò
   75 :  }¢Ò
   76 : else¢Ò
   77 :  {¢Ò
   78 :     print_type("");¢Ò
   79 :     url~= "0";¢Ò
   80 :  }¢Ò
   81 : replace_location(url);¢Ò
   82 : return disconnect();¢Ò
File name: addrbook/register.wel (2,229 bytes) Wesoft Corp. ¨Ï 2001 All rights reserved.