Просмотр файла new_book_line/del.php

WEB разработчику
Размер файла: 5.18Kb 
  1. <?
  2.  
  3.                     //                                      //////             //                                                //                        //           //
  4.                     //                                      //       //                          //            /////                     /////                 
  5.                     /////    \\        //          //        //         //       //    //        //     //      //     //               //           //
  6.                     //   //     \\     //           //          //       //    //         //      //      //     //      //////     //           // 
  7.                     //   //       \\ //             //        //         //      //    //         //      //     //               //     //           //
  8.                     /////         \//               //////            //         //               //      //     //     /////        //           //  
  9.                                          //                                                                                                                                    /////
  10.                                         //
  11.  
  12.                   ///////////////////////////      dionisij@nm.ru      ///////////////////////////////                         
  13.  
  14.  
  15.  
  16. Error_Reporting(E_ALL & ~E_NOTICE);          /////////////// игнорируем ошибки
  17. header("Content-type:text/vnd.wap.wml;charset=utf-8");      //////// тип и кодировка документа
  18.  
  19. ////////////// Параметры книги /////////////////////////////////////////////////
  20.  
  21. $gl="ssilka_na_glavnyu";     /////////ссылка на главную
  22. $admin="Admin";                   ////////админ
  23. $parad="admin";                    ////////пароль админа
  24. $zag="Guest book";              ///////// заголовок
  25. $ydal="100";                         ///////// количество сообщений оствляемых на сервере. Если вы хотите, чтобы оставлялись все сообщения, то оставьте =""
  26. //////////////////////////////////////////////////////////////////////////////
  27.  
  28. $u1=getenv('HTTP_USER_AGENT');
  29. $brayz=strtok($u1,'/');
  30.  
  31.  
  32. $currHour=date("H",time());///////////формат даты и времени
  33. $currDate=date("dS F, Y", time());
  34. $curr=date("i:s", time());
  35. $currTime=date("$currHour:i:s", time());
  36. $vrem=time();
  37. if($log!=$admin){$log="";}
  38. if($pas!=$parad) {$log="";}
  39.  
  40. print "<?xml version=\"1.0\" encoding=\"utf-8\"?>
  41. 	<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.2//EN\" \"http://www.wapforum.org/DTD/wml12.dtd\">
  42. 	<wml><card id=\"mas\" title=\"$zag\" ontimer=\"index.php?log=$log&amp;pas=$pas\" > 
  43. <timer value=\"20\"/><p>";
  44. 							///////////// выводим вмл заголовок
  45.  
  46.  
  47.  if ($delname==true) {
  48.  
  49.  
  50.  
  51. $vsegodel = file("vsego.shet");
  52. $vsegodel=$vsegodel[0];
  53. $nmesdel=$vsegodel;
  54. $kpdel=1;
  55. $tmpdl=0;
  56.  
  57.   while($kpdel <= $vsegodel)
  58.         {$tex=@file("zapis/$kpdel.mess");
  59.         $utex=explode(":||:",$tex[0]);
  60.         $obr=trim($utex[0]);
  61.         if ($obr==$namedel) { unlink ("zapis/$kpdel.mess");
  62.                               $tmpdl=$tmpdl+1;
  63.         }
  64.   $kpdel=$kpdel+1;}
  65.    print "&#1057;&#1086;&#1086;&#1073;&#1097;&#1077;&#1085;&#1080;&#1081; &#1091;&#1076;&#1072;&#1083;&#1077;&#1085;&#1086;: $tmpdl";
  66.   }
  67.  
  68.  elseif ($delnumber==true) {
  69.  
  70. $vsegodel = file("vsego.shet");
  71. $vsegodel=$vsegodel[0];
  72. $nmesdel=$vsegodel;
  73. $kpdel=1;
  74. $tmpdl=0;
  75.  
  76.  
  77.  
  78.  
  79.     if  (strpos($number, "-")==true)
  80.   {
  81.  
  82.      $ntemp=explode("-",$number);
  83.      $number1=trim($ntemp[0]);
  84.      $number2=trim($ntemp[1]);
  85.  
  86.  
  87.   for ($kpdel=$number1; $kpdel <= $number2;)
  88.         {$tex=@file("zapis/$kpdel.mess");
  89.         $utex=explode(":||:",$tex[0]);
  90.         $obr=trim($utex[0]);
  91.         if (is_writeable("zapis/$kpdel.mess"))
  92.         {unlink ("zapis/$kpdel.mess");
  93.         $tmpdl=$tmpdl+1;
  94.         }
  95.   $kpdel=$kpdel+1;}
  96.    print "&#1057;&#1086;&#1086;&#1073;&#1097;&#1077;&#1085;&#1080;&#1081; &#1091;&#1076;&#1072;&#1083;&#1077;&#1085;&#1086;: $tmpdl";
  97.    }
  98.  
  99.  
  100.  
  101.                            }
  102.  
  103.  else {
  104.  
  105. if($log!=""){unlink ("zapis/$nmes.mess");
  106. print"&#x0421;&#x043E;&#x043E;&#x0431;&#x0449;&#x0435;&#x043D;&#x0438;&#x0435; &#x0443;&#x0434;&#x0430;&#x043B;&#x0435;&#x043D;&#x043E;";}
  107.  
  108. else{print"&#x041F;&#x0440;&#x043E;&#x0438;&#x0437;&#x043E;&#x0448;&#x043B;&#x0430; &#x043E;&#x0448;&#x0438;&#x0431;&#x043A;&#x0430; &#x043F;&#x0440;&#x0438; &#x0443;&#x0434;&#x0430;&#x043B;&#x0435;&#x043D;&#x0438;&#x0438; &#x0441;&#x043E;&#x043E;&#x0431;&#x0449;&#x0435;&#x043D;&#x0438;&#x044F;. &#x0412;&#x043E;&#x0437;&#x043C;&#x043E;&#x0436;&#x043D;&#x043E;, &#x0443; &#x0432;&#x0430;&#x0441; &#x043D;&#x0435;&#x0434;&#x043E;&#x0441;&#x0442;&#x0430;&#x0442;&#x043E;&#x0447;&#x043D;&#x043E; &#x043F;&#x0440;&#x0430;&#x0432; &#x0447;&#x0442;&#x043E;&#x0431;&#x044B; &#x044D;&#x0442;&#x043E; &#x0441;&#x0434;&#x0435;&#x043B;&#x0430;&#x0442;&#x044C;, &#x0443;&#x0434;&#x0430;&#x043B;&#x044F;&#x0442;&#x044C; &#x0441;&#x043E;&#x043E;&#x0431;&#x0449;&#x0435;&#x043D;&#x0438;&#x044F; &#x043C;&#x043E;&#x0436;&#x0435;&#x0442; &#x0442;&#x043E;&#x043B;&#x044C;&#x043A;&#x043E; &#x0430;&#x0434;&#x043C;&#x0438;&#x043D;&#x0438;&#x0441;&#x0442;&#x0440;&#x0430;&#x0442;&#x043E;&#x0440;.";}
  109.  };
  110.  
  111.  
  112. print "
  113. <br/><a href=\"$gl\">&#x041D;&#x0430; &#x0433;&#x043B;&#x0430;&#x0432;&#x043D;&#x0443;&#x044E;</a><br/>
  114. </p></card></wml>";
  115.  
  116. ?>