1. Pascal / Говнокод #4643

    +102

    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
    boo:=false;
    j:=length(edit1.text);
    for i:=1 to stringgrid1.RowCount do begin
     le:=length(stringgrid1.Cells[temp,i]);
     if (temp=1) or (temp=5) then begin
      if not (j>le) then
      for npo:=1 to ((le-j)+1) do begin
       str:=copy(Stringgrid1.cells[temp,i],npo,j);
       str_po:=str;
       if AnsiSameText(edit1.Text,str) then begin
        stringgrid1.Row:=i;
        boo:=true;
        break;
       end;
      end;
    end;

    Еще один шедевр. Выполняет поиск введенного текста в Edit в заданой колонке Strinngrid'а.

    Nikitiy_II, 16 Ноября 2010

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

    +145

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    <map name="Map">
    	<area shape="rect" coords="0,1,25,14" href="/rada/control/uk/index">
    	<area shape="rect" coords="40,1,64,14" href="/rada/control/ru/index">
    	<area shape="rect" coords="79,1,104,14" href="/rada/control/en/index">
    </map>

    http://portal.rada.gov.ua/
    Это они так ссылки на переключение языков сделали <_<
    Просто пиздец.

    p.s. категории "html" нет, поэтому запостил в РНР.

    olegsuv, 15 Ноября 2010

    Комментарии (26)
  3. JavaScript / Говнокод #4641

    +160

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    function check() {
      if (document.login.user.value == "user" && document.login.password.value == "correct_password")
        window.location.href = 'http://this.site/login.html';
      else
        window.location.href = 'http://this.site/loginfehler.html';
    return false;
    }

    http://ithappens.ru/bytag/webdev/13 - И смех и грех!

    dwinner, 15 Ноября 2010

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

    +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
    class MysqlResultSet implements Iterator{
      private $strSQL;
      private $databasename;
      private $connection;
      private $result;
      private $valid;
      private $currentrow;
      private $key;
      const INDETERMINATE_TOTAL_NUMBER = 5001;
      const UNNECESSARY_SQL_CALC_FOUND_ROWS = 5002;
      const NOT_SELECT_QUERY = 5003;
      public function __construct( $strSQL, $databasename, $connection ){
        $this->strSQL = $strSQL;
        $this->connection = $connection;
        $this->databasename = $databasename;
        if(!mysql_selectdb($databasename, $connection)){
          throw new MySQLException(mysql_error(), mysql_errno());
        }
        if(!$this->result = mysql_query($strSQL, $connection)){
          throw new MySQLException(mysql_error(), mysql_errno());
        }
        if (stristr($strSQL,"SQL_CALC_FOUND_ROWS")){
          $msg = "No need to use SQL_CALC_FOUND_ROWS.";
          throw new MySQLException($msg, self::UNNECESSARY_SQL_CALC_FOUND_ROWS);
        }
        $this->rewind();
      }
      public function __destruct(){
        $this->close();
      }
      public function __call($name, $args){  
        $args = null;
        $name = "mysql_". $name;
        if(function_exists($name)){
          return call_user_func_array($name, $args);      
        }  
      }
      # Ну и так далее...

    31-38 строки: Не понятно, зачем нужно было вообще этот класс писать?!
    32-ая строка вообще сногсшибательна... (P.S. Из одной book по ООП в PHP5)

    dwinner, 15 Ноября 2010

    Комментарии (5)
  5. VisualBasic / Говнокод #4639

    −101

    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
    Dim lcIsCheck As Boolean = False
    
            Dim lcImages As DS_ExportFIO.sdImageRow = Me.DS_ExportFIO1.sdImage.Rows(0)
    
            If lcImages!Photo Is DBNull.Value Then
    
                lcIsCheck = IIf(lcIsCheck, lcIsCheck, False)
    
            Else
    
                lcIsCheck = True
    
            End If
    
            If lcImages!PhotoIshodn Is DBNull.Value Then
    
                lcIsCheck = IIf(lcIsCheck, lcIsCheck, False)
    
            Else
    
                lcIsCheck = True
    
            End If
    
            If lcImages!Sign Is DBNull.Value Then
    
                lcIsCheck = IIf(lcIsCheck, lcIsCheck, False)
    
            Else
    
                lcIsCheck = True
    
            End If
    
            If lcImages!SignIshod Is DBNull.Value Then
    
                lcIsCheck = IIf(lcIsCheck, lcIsCheck, False)
    
            Else
    
                lcIsCheck = True
    
            End If
    
            Return lcIsCheck

    хм... даже не знаю, как окоментить =)

    HellMaster_HaiL, 15 Ноября 2010

    Комментарии (3)
  6. Perl / Говнокод #4638

    −116

    1. 1
    map { push @{ $cgih->{add_result}->{errors} }, 'НЕ добавлено: ' . $_->{title} } @failed_comps;

    Видимо теперь использовать for это уже не по-пацански!

    antonfin, 15 Ноября 2010

    Комментарии (13)
  7. SQL / Говнокод #4637

    −125

    1. 1
    SELECT rr.hit, count(rr.hit) AS cnt FROM `r_hits` AS rr WHERE rr.hit IN (SELECT DISTINCT rh.hit FROM `r_hits`AS rh) GROUP BY rr.hit;

    Вот что бывает, когда голова не работает в обед в понедельник.
    А делов-то всего на select hit, COUNT(id) from r_hit group by hit было...

    azzz, 15 Ноября 2010

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

    +162

    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
    ..............
    
    $q = mysql_query("SELECT * FROM `$TBL` $WHERE ORDER BY `id`") or die(mysql_error());
    while ($l = mysql_fetch_array($q)) {
    	$result[] = $l;
    	sleep(0.4);
    	$pause = $pause + 0.4;
    
    }
    unset($q);
    
    mysql_close($link);
    
    // получили объект из первой базы
    print ('Получили данные из главной базы N' . $i . '.');
    
    include_once ('start.php');
    
    $sync = rand(10, 99999); // случайное число для проверки синхронизации
    // заносим данные
    
    foreach ($result as $sync_arr) {
    	$id = $sync_arr['id'];
    	//print($id.'<br /><br />');
    	$sch = 0;
    	while ($sch <= 50) {
    		if (isset($sync_arr[$sch])) unset($sync_arr[$sch]);
    		$sch++;
    	}
    
    	$sync_arr['sync'] = $sync;
    
    	$pr = $ExpGlobal['DBCONN']->RowExists($TBL, 'id', $id);
    	if ($pr) {
    		//print_r_pre($sync_arr);
    		$ExpGlobal['DBCONN']->UpdateRow($TBL, $id, $sync_arr);
    		sleep(0.4);
    		$pause = $pause + 0.4;
    
    		$s++;
    	}
    	else {
    		$ExpGlobal['DBCONN']->InsertRow($TBL, $sync_arr);
    		sleep(0.4);
    		$pause = $pause + 0.4;
    
    		$dob++;
    	}
    }
    
    ................

    Что-то вроде синхронизации из одной таблицы с другой...

    Tep, 15 Ноября 2010

    Комментарии (16)
  9. C# / Говнокод #4635

    +113

    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
    public string UploadFileEx(string uploadfile, string url,string fileFormName, 
                string contenttype, NameValueCollection querystring, CookieContainer cookies
            ){
                if ((fileFormName == null) ||
                    (fileFormName.Length == 0))
                {
                    fileFormName = "file";
                }
    
                if ((contenttype == null) ||
                    (contenttype.Length == 0))
                {
                    contenttype = "application/octet-stream";
                }
    
    
                string postdata;
                postdata = "?";
                if (querystring != null)
                {
                    foreach (string key in querystring.Keys)
                    {
                        postdata += key + "=" + querystring.Get(key) + "&";
                    }
                }

    String.IsNullOrEmpty ??????
    http://code.google.com/p/habreffect-uploader/source/browse/trunk/clipboardUploader/Uploader.cs
    http://habrahabr.ru/blogs/net/108165/

    Nigma143, 15 Ноября 2010

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

    +108

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    ...
    while (true)
    {
         if(i > 5 || SourceNumber == Math.Floor(SourceNumber)) break;
         ...
         i++;
    }
    ...

    Мартин, 15 Ноября 2010

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