1. Си / Говнокод #4665

    +132

    1. 1
    2. 2
    3. 3
    const long long_value = PyInt_AsLong(value);                                      
    const int int_value = (int)long_value;                                            
    if (PyErr_Occurred() || long_value != int_value) { /* Overflow */

    PyMongo...

    raorn, 17 Ноября 2010

    Комментарии (12)
  2. PHP / Говнокод #4664

    +145

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    function Redirect($url) {
      print "<html><head>\n";
      print "<meta http-equiv='Refresh' content='0; url=$url'>\n";
      print "</head></html>\n";
      exit();
    }

    Во как делают переадресацию нереальные пацаны!

    dwinner, 17 Ноября 2010

    Комментарии (7)
  3. PHP / Говнокод #4663

    +158

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    84. 84
    85. 85
    86. 86
    87. 87
    88. 88
    89. 89
    <?php
    define("LOGIN", "login");
    define("PASSWORD", "password");
    define("BASE", "base");
    define("HOST", "IP");
    
    $table = "table";
    
    $err_name = "Вы не написали свое имя! <br />";
    $err_text = "Вы не написали текст! <br />";
    $err_email = "Вы не указали свой email! <br />";
    
    $conn = mysql_connect(HOST, LOGIN, PASSWORD) or die ('соединение с БД установить не удалось!');
    $db = mysql_select_db(BASE, $conn) or die ('проверьте наличие БД!');
    
    $stop = 0;
    if (isset($_POST['save'])) {
     if ((strlen($_POST['name']) !=0) && (strlen($_POST['text']) !=0) && (strlen($_POST['email']) !=0)) {
     
      $name = $_POST['name'];
      $text = $_POST['text'];
      $email = $_POST['email'];
      if (strlen($_POST['url']) !=0) {
        $url = $_POST['url'];
        $create = mysql_query("INSERT INTO $table VALUES (NULL, '$name', '$text', '$email', '$url')", $conn) or die ('запрос в БД не выполнен!');
      $stop = 1 ;
      }
      if ($stop != 1) {
       $create = mysql_query("INSERT INTO $table VALUES (NULL, '$name', '$text', '$email', NULL)", $conn) or die ('запрос в БД не выполнен!');
      } 
     }
    
    }
    
    if (error('name')) {
    echo $err_name;
    }
    
    if (error('text')) {
    echo $err_text;
    }
    
    if (error('email')) {
    echo $err_email;
    }
    
    
    function error($err) {
    return (isset($_POST['save']) && strlen($_POST[$err]) == 0);
    }
    
    $result = mysql_query("SELECT * FROM $table", $conn) or die ('Выбранная таблица не существует!');
    
    
    $stroki = mysql_num_rows($result);
    $stolb = mysql_num_fields($result);
    
    
    for ($i=0; $i<$stroki; $i++) {
    $s = mysql_fetch_row($result);
     for ($j=0; $j<$stolb; $j++) {
     $massiv[$i][$j] = $s[$j];
     }
    }
    
    for ($i=0; $i<$stroki; $i++) {
     for ($j=0; $j<$stolb; $j++) {
     echo $massiv[$stroki-$i-1][$j] . " ";
     }
    echo "<br />";
    }
    
    if (isset($_POST['clear'])) {
    $delete = mysql_query("TRUNCATE TABLE $table", $conn) or die ('запрос на удаление выполнить не удалось!');
    echo "<br />" . "<hr />" . "Все данные стерты!" . "<hr />" . "<br />";
    }
    
    mysql_close($conn);
    
    	echo "<form method=\"POST\">\n";
    	echo "<table border=\"1\" cellpadding=\"5\" cellspacing=\"5\">\n";
    	echo "<tr><td>Ваше имя</td><td><input type=\"text\" name=\"name\" /></td></tr>\n";
    	echo "<tr><td>Ваш email</td><td><input type=\"text\" name=\"email\" /></td></tr>\n";
    	echo "<tr><td>Ваша домашняя страница (URL)</td><td><input type=\"text\" name=\"url\" /></td></tr>\n";
    	echo "<tr><td>Текст сообщения</td><td><textarea name=\"text\"></textarea></td></tr>\n";
    	echo "<tr><td colspna=\"2\"><input type=\"submit\" name=\"save\" value=\"Отослать\"/></td></tr>\n";
    	echo "<tr><td colspna=\"2\"><input type=\"submit\" name=\"clear\" value=\"Очистить\"/></td></tr>\n";
    
    ?>

    гостевая книга (php +mysql)

    mihailhouse, 17 Ноября 2010

    Комментарии (165)
  4. PHP / Говнокод #4662

    +159

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    <?php
    //debug($item[$modelname]);
    if($item[$modelname]['has_rooms_furniture']){
            __('has_rooms_furniture');
            
    } else {
        echo 'без ';
        __('has_rooms_furniture');
    }
    echo'<br>';
    if($item[$modelname]['has_kitchen_furniture']){
            __('has_kitchen_furniture');
            
    }
    else {
        echo 'без ';
        __('has_kitchen_furniture');
    }
    echo'<br>';
    if($item[$modelname]['has_phone']){
            __('has_phone');
    }else {
        echo 'без ';
        __('has_phone');
    }
    echo'<br>';
    if($item[$modelname]['has_tv']){
            __('has_tv');
            echo'<br>';
    }
    if($item[$modelname]['has_fridge']){
            __('has_fridge');
            echo'<br>';
    }
    if($item[$modelname]['has_washer']){
            __('has_washer');
            echo'<br>';
    }
    if($item[$modelname]['has_balcon']){
            __('has_washer');
            echo'<br>';
    }
    if($item[$modelname]['may_children']){
            __('may_children');
            echo'<br>';
    }
    if($item[$modelname]['may_animals']){
            __('may_animals');
            echo'<br>';
    }
    echo " ";
    ?>

    Код из проекта на CakePHP
    __() - функция для локализации термина

    Shiz89, 17 Ноября 2010

    Комментарии (8)
  5. PHP / Говнокод #4661

    +156

    1. 1
    2. 2
    3. 3
    4. 4
    # Записываем в БД новый хеш авторизации и IP
            $query=mysql_query("UPDATE user SET hash='".$hash."'".$insip." WHERE id='".$data['id']."'");
            $result = mysql_query($query)
              or die ("<p>Нельзя выполнить запрос ".mysql_error());

    qbasic, 17 Ноября 2010

    Комментарии (13)
  6. PHP / Говнокод #4660

    +164

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    # Обрабатываем встроенные теги
    $msg = str_replace("[u]", "<u>", $msg);
    $msg = str_replace("[U]", "<u>", $msg);
    $msg = str_replace("[i]", "<i>", $msg);
    $msg = str_replace("[I]", "<i>", $msg);
    $msg = str_replace("[b]", "<b>", $msg);
    $msg = str_replace("[B]", "<b>", $msg);
    $msg = str_replace("[sub]", "<sub>", $msg);
    $msg = str_replace("[SUB]", "<SUB>", $msg);
    $msg = str_replace("[sup]", "<sup>", $msg);
    $msg = str_replace("[SUP]", "<sup>", $msg);
    $msg = str_replace("[/u]", "</u>", $msg);
    $msg = str_replace("[/U]", "</u>", $msg);
    $msg = str_replace("[/i]", "</i>", $msg);
    $msg = str_replace("[/I]", "</i>", $msg);
    $msg = str_replace("[/b]", "</b>", $msg);
    $msg = str_replace("[/B]", "</b>", $msg);
    $msg = str_replace("[/SUB]", "<sub>", $msg);
    $msg = str_replace("[/sub]", "</sub>", $msg);
    $msg = str_replace("[/SUP]", "</sup>", $msg);
    $msg = str_replace("[/sup]", "</sup>", $msg);

    Года 4 назад пришлось лазить и исправлять код чужой гостевухи,
    вот такое встретилось, и это ещё не хит ;-)

    dwinner, 17 Ноября 2010

    Комментарии (15)
  7. Си / Говнокод #4659

    +145

    1. 1
    #define ISODD( i ) ( (((i) % 2) == 0) ? 0 : 1 )

    Особо выдающимся китайцам платят не построчно, а посимвольно.

    nil, 17 Ноября 2010

    Комментарии (95)
  8. SQL / Говнокод #4658

    −120

    1. 1
    2. 2
    3. 3
    4. 4
    t = SQLEXEC(cc,"INSERT INTO CARDS (N, NAME1, NAME2, NAME3, PDEPARTMENT, PPOST, DCREATE, DMODIFY, PFIRM, PGROUP);
                       VALUES( '"+ALLTRIM('65905')+"', '"+UPPER('Ивасик')+"', '"+UPPER('Иван')+"', '"+UPPER('Андреевич')+"',;
                       '"+ALLTRIM('565')+"', '"+ALLTRIM('2184800')+"', '"+ALLTRIM('24/06/2009')+"', '"+ALLTRIM('07/07/2009')+"',;
                       '"+ALLTRIM('5')+"','"+ALLTRIM('5')+"')")

    Пример залива данных в базу на Visual FoxPro

    gavno2000, 17 Ноября 2010

    Комментарии (5)
  9. Pascal / Говнокод #4657

    +95

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    function  TForm1.beta(i:integer) : integer;
    var bt:integer;
    begin
    bt:=0;
    curI:=i;
    if (alf=1) and (cad=0) then
    begin
    if i<=26 then bt:=2;
    if (i<=36) and (i>=27) then bt:=3;
    if (i<=48) and (i>=37) then  begin  bt:=1; addortolexlist(cT);  end;
    if i=49 then bt:=4;
    if i=50 then bt:=5;
    if i=51 then bt:=6;
    if i=52 then bt:=7;
    end;
    if (alf=2) and (cad=0) then
    begin
    if i<=26 then bt:=2;
    if (i<=36) and (i>=27) then bt:=2;
    end;
    if (alf=3) and (cad=0) then
    begin
    if (i<=36) and (i>=27) then bt:=3;
    end;
    if (alf=4) and (cad=0) then
    begin
    if i=50 then
    begin
     Tl[lexnow].n:=jj;
      Tl[lexnow].subst:='<>';
      Tl[lexnow].lexcod:=21;
      Tl[lexnow].index:=0;
      bt:=1;
       inc(lexnow);
       ii:=ii+1;
    end;
    if i=51 then
    begin
      Tl[lexnow].n:=jj;
      Tl[lexnow].subst:='<=';
      Tl[lexnow].lexcod:=24;
      Tl[lexnow].index:=0;
     bt:=1;
     ii:=ii+1;
        inc(lexnow);
    end;

    Кусок кода из лабораторной работы по трансляторам. Как сказал парень - "Я не умею пользоваться функциями, поэтому я все пишу на массивах" О_о
    Дальше в коде заполнение массивов размерностью в сотню элементов вручную!
    Главное, что всё работает...

    niravzi, 17 Ноября 2010

    Комментарии (1)
  10. Pascal / Говнокод #4656

    +108

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    TCalc = Class
      Public
        Order : 1..2;
        BMouseDown : Boolean;
        TSS : TPoint;
        mas : array[1..8,1..8] of Byte;
        Constructor Create;
        Procedure MouseDown (Stroka, Stolb : Byte; Var Bool : Boolean);
        Procedure FiguresCount (Var White, Black : Byte);
        Procedure Messages (i : Byte);
        Procedure Proverka (T : TPoint; Stroka, Stolb : Byte;
                            Var Bool, Double : Boolean; Var Dbl : TPoint);
        Procedure ReloadMas (Str, Stolb : Byte; Point : TPoint; Double : Boolean; DblP : TPoint);
        Procedure BoardHelp (Stroka, Stolb : Byte);
        Procedure NoChangeOrder (Stroka, Stolb : Byte; Var NoChangeOrder : Boolean);
        Procedure Proverka_GoTo (Str, Stolb : Byte; Var masBool : ArrBool;
                                 Var masCoord : ArrCoord);
        Procedure Scanner (Var kol : Byte; Var ScanMas : ArrCoord);
        Procedure PlaySound (Wave : TLMDWaveComp; ind : Byte);
        Procedure FigureTrue (Str, Stolb : Byte);
        Procedure Damka_Go (Fig : TPoint; Str, Stolb : Byte;
                            Var Bool, Double : Boolean; Var Dbl : TPoint);
        Procedure IsDamka_Fight (X, Y : Byte; Var Bool : Boolean; Var Coord : TPoint);                    
    end;

    Объявление класса, отвечающего за логику в игре шашки.
    Объектный подход :)

    ClassVar, 16 Ноября 2010

    Комментарии (6)