1. 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)

  2. 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)

  3. 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)

  4. 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)

  5. 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)

  6. Си / Говнокод #4659

    +145

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

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

    nil, 17 Ноября 2010

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

  7. 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)

  8. 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)

  9. 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)

  10. Куча / Говнокод #4655

    +144

    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
    program hurma_by_kotobuben;
uses crt;
var a,b,c,d:integer;
begin
a:=0;
writeln('Тест: "ЛЮБИТЕ ЛИ ВЫ ХУРМУ?');
writeln(' ');
writeln('Вам кажется, что вы отвратительно выглядите, но тут кто-то делает вам комплимент. Ваша реакция?');
writeln('1. Вздрагиваете от неожиданности. Ведь вы думали, что находитесь в комнате в одиночестве.');
writeln('2. Вам приятно, но вы постараетесь это скрыть под напускным эпилептическим припадком');
writeln('3. Вы начинаете покрывать страстными поцелуями свое прекрасное тело');
read(d);
clrscr;
if d=1 then begin
a:=a+1
end;
if d=2 then begin
b:=b+1
end;
if d=3 then begin
c:=c+1
end;
writeln('Вам оторвало голову пропеллером самолета. Как вы поступите?');
writeln('1.Упадете на взлетное поле, обливаясь кровью');
writeln('2.Смешно побежите прочь от самолета, махая руками, словно безголовая курица');
writeln('3.Постараетесь сохранять спокойствие');
   read(d);
clrscr;
if d=1 then begin
a:=a+1
end;
if d=2 then begin
b:=b+1
end;
if d=3 then begin
c:=c+1
end;
writeln('Вы принимаете душ и вдруг слышыте телефонный звонок. Ваши действия?');
writeln('1.Вы продолжаете мытся в душе, делая вид, будто намыливаете подмышки');
writeln('2.Смешно выбегаете из душа, размахивая руками');
writeln('3.Спрашиваете совета окружающих');
  read(d);
clrscr;
if d=1 then begin
a:=a+1
end;
if d=2 then begin
b:=b+1
end;
if d=3 then begin
c:=c+1
end;
writeln('У вас большые оттопыреные уши. Какой пункт вы выберете?');
writeln('1.Пункт 1');
writeln('2.Пункт 2');
writeln('3.Пункт 3');
   read(d);
clrscr;
if d=1 then begin
a:=a+1
end;
if d=2 then begin
b:=b+1
end;
if d=3 then begin
c:=c+1
end;
writeln('ПОДВЕДЕМ ИТОГИ');
writeln();
if a>(b+c)/2 then begin
writeln('Вы независимы, мнение других о хурме для вас ничего не значит');
end;
if b>(a+c)/2 then begin
writeln('В непривычной ситуации вы можете растерятся и смешно побежать, размахивая руками');
end;
if c>(a+b)/2 then begin
writeln('Вы сангвиник, что бы это ни значило');
end;
end.

    Паскаль
    Решил сделать тест по мотивам одноименного теста найденного в интернетах

    kotobuben, 16 Ноября 2010

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