- 1
http://rghost.ru/23248281
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+90
http://rghost.ru/23248281
−853
Create Proc char32add1(
@char32 nvarchar(1) =Null,
@rez nvarchar(1) output,
@rez1 int=-1 output
)
As
Begin
if (@char32 is Null) return -1
Select @rez1=0
if (@char32 = "0") Begin Select @rez="1"
return 0 End
if (@char32 = "1") Begin Select @rez="2"
return 0 End
if (@char32 = "2") Begin Select @rez="3"
return 0 End
if (@char32 = "3") Begin Select @rez="4"
return 0 End
if (@char32 = "4") Begin Select @rez="5" return 0 End
if (@char32 = "5") Begin Select @rez="6" return 0 End
if (@char32 = "6") Begin Select @rez="7" return 0 End
if (@char32 = "7") Begin Select @rez="8" return 0 End
if (@char32 = "8") Begin Select @rez="9" return 0 End
if (@char32 = "9") Begin Select @rez="A" return 0 End
if (@char32 = "a" or @char32 = "A" ) Begin Select @rez="B" return 0 End
if (@char32 = "b" or @char32 = "B" ) Begin Select @rez="C" return 0 End
if (@char32 = "c" or @char32 = "C" ) Begin Select @rez="D" return 0 End
if (@char32 = "d" or @char32 = "D" ) Begin Select @rez="E" return 0 End
if (@char32 = "e" or @char32 = "E" ) Begin Select @rez="F" return 0 End
if (@char32 = "f" or @char32 = "F" ) Begin Select @rez="G" return 0 End
if (@char32 = "g" or @char32 = "G" ) Begin Select @rez="H" return 0 End
if (@char32 = "h" or @char32 = "H" ) Begin Select @rez="I" return 0 End
if (@char32 = "i" or @char32 = "I" ) Begin Select @rez="J" return 0 End
if (@char32 = "j" or @char32 = "J" ) Begin Select @rez="K" return 0 End
if (@char32 = "k" or @char32 = "K" ) Begin Select @rez="L" return 0 End
if (@char32 = "l" or @char32 = "L" ) Begin Select @rez="M" return 0 End
if (@char32 = "m" or @char32 = "M" ) Begin Select @rez="N" return 0 End
if (@char32 = "n" or @char32 = "N" ) Begin Select @rez="O" return 0 End
if (@char32 = "o" or @char32 = "O" ) Begin Select @rez="P" return 0 End
if (@char32 = "p" or @char32 = "P" ) Begin Select @rez="Q" return 0 End
if (@char32 = "q" or @char32 = "Q" ) Begin Select @rez="R" return 0 End
if (@char32 = "r" or @char32 = "R" ) Begin Select @rez="S" return 0 End
if (@char32 = "s"or @char32 = "S" ) Begin Select @rez="T" return 0 End
if (@char32 = "t" or @char32 = "T" ) Begin Select @rez="U" return 0 End
if (@char32 = "u" or @char32 = "U" ) Begin Select @rez="V" return 0 End
Select @rez1=1
if (@char32 = "v" or @char32 = "V" ) Begin Select @rez="0" return 1 End
End
−160
Номенклатура
Слово гадкое, не то что программа.
+161
public function &entityFactory() {
$entityObject = new stdClass();
return $entityObject;
}
+126
public static bool GetSafeBool(object val, bool defaultVal)
{
//TODO: check functionality
bool result = defaultVal;
try
{
if (val != null)
{
string str = val.ToString().Trim();
// compare ignore case, for performance
result = (0 == string.Compare(str, true.ToString(), true) || str == "1" || str == "-1");
}
}
catch { }
return result;
}
Продолжая тему расовых индусов...
−140
Процедура Кнопка1Нажатие(Элемент)
// Вставить содержимое обработчика.
//орг=элементыформы.организация.Значение;
запрос1=новый запрос;
запрос1.текст=""выбрать * из регистрсведений.регионыорганизаций где регион=&регион"";
запрос1.УстановитьПараметр(""регион"",регион);
выборка=запрос1.Выполнить().Выбрать();
запрос2=новый запрос;
пока выборка.Следующий()цикл
орг=выборка.организация;
//Сообщить(выборка.Количество());
запрос2.Текст=""выбрать * из регистрсведений.сведенияосотруднике где организация=&орг и ""+
""должность=&должн"";
запрос2.УстановитьПараметр(""орг"", орг);
запрос2.УстановитьПараметр(""должн"",должность);
выборка2=запрос2.Выполнить().Выбрать();
если выборка2.Количество()>2 тогда
сообщить(строка(орг )+"" - ""+строка(выборка2.количество()));
конецесли;
конеццикла
КонецПроцедуры
Задание было такое
Написать интерфейс для выборки данных о количестве заместителей генерального директора в каждой организации, работающей в n-й области, где таковых заместителей более двух.
Авторское решение приведено в первозданном виде.
+169
/*
=====================================================
Данный код защищен авторскими правами
=====================================================
Файл: index.php
-----------------------------------------------------
Версия: 1
-----------------------------------------------------
Назначение: минимальные необходимые настройки
=====================================================
*/
if(!defined('SIGELENGINE')){die();}
#[cache configuration flag]
final class _config
{
private $config = array();
function __construct()
{
$this->set();
}
private function set()
{
$this->config['db']['use_buffer'] = 0;
$this->config['db']['show_errors'] = 1;
$this->config['db']['host'] = "...";
$this->config['db']['port'] = "...";
$this->config['db']['name'] = "...";
$this->config['db']['user'] = "...";
$this->config['db']['pass'] = "...";
$this->config['mail']['mailbox'] = array("...", "...", "...");
$this->config['defaults']['mod'] = "controller";
$this->config['defaults']['skin'] = "index";
$this->config['defaults']['debug'] = 0;
#[dynamic configuration]
}
function get()
{
return $this->config;
}
}
+73
final QOrder qSub = new QOrder("qSub");
final Predicate[] filters = getFilters(qSub, null, null);
if (filters.length > 0) {
// conditions.add(Arrays.asList(filters)); // Do not do this.
// The subquery is here so that MySQL doesn't use the wrong index for
// ORDER BY... LIMIT if we directly add the filter by custid/custdept
// to the list of filters, which will make the search very slow.
// Well, perhaps an ugly workaround, and we might want to adjust
// the custid/custdept index in the future... somehow.
conditions.add(q.id.in(QueryDsl.subFrom(qSub).where(filters).list(qSub.id)));
}
Обход косяков конкретной СУБД на уровне ORM. Абстракция, что и говорить.
+157
// если пользователь зашел на www.site.ru,
// удаляем его куки и перенаправляем с www.site.ru на site.ru
// (чтобы куку всегда ставить только на домене третьего уровня)
if (stristr($_SERVER["HTTP_HOST"], 'www.site.ru')) {
setcookie("cookie1", "", time() - 3600);
setcookie("cookie1", "", time() - 3600);
header("Location: http://site.ru/" . $query_string);
die();
}
Нашел в очень старых скриптах. Комменты сохранены.
Доменное имя сайта изменено, названия кук изменены, любые совпадения являются случайными.
+158
<?
$thePrice = $iblockelem[ "PROPERTIES" ][ "PRICE" ][ "VALUE" ];
$thePrice_s = '';
if(strlen(trim($thePrice))>3)
{
$priceArray = str_split($thePrice);
$priceArray = array_reverse($priceArray);
for($i = 1; $i <= count($priceArray); $i++)
{
$thePrice_s.=$priceArray[$i-1];
if(($i%3)==0)
$thePrice_s.=' ';
}
$thePrice = str_split($thePrice_s);
}
echo rtrim(ltrim(implode(array_reverse($thePrice))))
?>
<?=number_format($thePrice,0,"."," ")?>