|
||||
1 : #!/bin/wel¢Ò 2 : ¢Ò 3 : /* file: adminsert.wel¢Ò 4 : ¢Ò 5 : ÁÖ¼Ò·Ï »ç¿ëÀÚ µî·Ï ÇÁ·Î±×·¥ (author: ¼±¤Çö)¢Ò 6 : ¢Ò 7 : Copyright (c) 2001/02/22 by Wesoft¢Ò 8 : All Rights Reserved.¢Ò 9 : */¢Ò 10 : ¢Ò 11 : htmlquery("GET");¢Ò 12 : htmlquery("POST");¢Ò 13 : include("common.inc");¢Ò 14 : if(mysql_connection()==MYSQL_ERR) return;¢Ò 15 : login= 0, admin= 1; // ·Î±ä »óÅ°¡ ¾Æ´Ï¸ç °ü¸®ÀÚ ¸Þ´º »ç¿ë°¡´É¢Ò 16 : if(include("chkuser.sub")!=OK) return disconnect();¢Ò 17 : ¢Ò 18 : if(writeflag!=1)¢Ò 19 : {¢Ò 20 : pagerec= 10;¢Ò 21 : fm= formdump("form/adminsert.fom");¢Ò 22 : if(fm==FORM_OPENERR) return err_form("adminsert.fom");¢Ò 23 : return disconnect();¢Ò 24 : }¢Ò 25 : ¢Ò 26 : id= strchange(tolower(left(id,12)), fch~"| ", rch~"|");¢Ò 27 : recnt= get_recount(mysql, myustable, "id='" ~ id ~ "'");¢Ò 28 : if(recnt>0)¢Ò 29 : {¢Ò 30 : MSG1= "ID Áߺ¹ µî·Ï ¿À·ù";¢Ò 31 : MSG2= "ÁÖ¼Ò·Ï ID: " ~ id ~ " ´Â ÀÌ¹Ì µî·ÏµÇ¾î ÀÖ½À´Ï´Ù!" ~ BACK_BUTTON;¢Ò 32 : formdump(message_form);¢Ò 33 : return disconnect();¢Ò 34 : }¢Ò 35 : ¢Ò 36 : wdtime= date(1) ~ " " ~ left(time(1),5);¢Ò 37 : pass= encode(tolower(left(pass,12)), encodekey(), "", decode_variable);¢Ò 38 : title= strchange(lrtrim(title), fch, rch);¢Ò 39 : name= strchange(lrtrim(name), fch, rch);¢Ò 40 : phone= strchange(lrtrim(phone), fch, rch);¢Ò 41 : hdphone= strchange(lrtrim(hdphone), fch, rch);¢Ò 42 : email= strchange(lrtrim(email), fch, rch);¢Ò 43 : ¢Ò 44 : qstr= "insert into " ~ myustable¢Ò 45 : ~ " (wdtime,id,pass,title,class,kind,useflag,name,phone,hdphone,email,pagerec) "¢Ò 46 : ~ strform("values('{$wdtime}','{$id}','{$pass}','{$title}','U','{$kind}',",¢Ò 47 : "'{$useflag}','{$name}','{$phone}','{$hdphone}','{$email}','{$rpp}')");¢Ò 48 : ¢Ò 49 : if(mysql_query(mysql, qstr)==MYSQL_ERR) return err_query();¢Ò 50 : ¢Ò 51 : include("adminsert.sub");¢Ò 52 : if(mysql_query(mysql, create_addrtable)==MYSQL_ERR)¢Ò 53 : {¢Ò 54 : MSG1= "ÁÖ¼Ò·Ï ID: " ~ id ~ " Å×ÀÌºí »ý¼º ¿À·ù";¢Ò 55 : MSG2= "ÁÖ¼Ò·Ï ID: " ~ id ~ " Å×À̺íÀ» »ý¼ºÇÒ ¼ö ¾ø½À´Ï´Ù!" ~ BACK_BUTTON;¢Ò 56 : formdump(message_form);¢Ò 57 : return disconnect();¢Ò 58 : }¢Ò 59 : ¢Ò 60 : url= strform("admin.wel?list=w&k={$k}",¢Ò 61 : "&ps={$ps}&pw=1&pS={$pS}&pN={$pN}&pl={$pl}&pr={$pr}");¢Ò 62 : replace_location(url);¢Ò 63 : return disconnect();¢Ò |
||||
|