- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
if( $user_id < 0 )
die( "I don't know you!" );
if( $action == '' )
die( "I don't know, what you want!" );
if( $action == 'login' )
die();
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+167
if( $user_id < 0 )
die( "I don't know you!" );
if( $action == '' )
die( "I don't know, what you want!" );
if( $action == 'login' )
die();
+163
$img_name_clean = $_FILES[$key]['name'];
$img_name_clean = str_replace (".img","",$img_name_clean);
$img_name_clean = str_replace (".jpeg","",$img_name_clean);
$img_name_clean = str_replace (".jpg","",$img_name_clean);
$img_name_clean = str_replace (".gif","",$img_name_clean);
$img_name_clean = str_replace (".JPG","",$img_name_clean);
$img_name_clean = str_replace (".IMG","",$img_name_clean);
$img_name_clean = str_replace (".GIF","",$img_name_clean);
$img_name_clean = str_replace (".JPEG","",$img_name_clean);
if(!file_exists("../foto/".$img_name_clean."/")){mkdir("../foto/".$img_name_clean."/", 0777); chmod('../foto/'.$img_name_clean, 0777);}
+96
procedure TForm1.Button2Click(Sender: TObject);
var stSQL: string;
i: integer;
begin
try
SQLConnection1.Params.Values['HostName']:=Server; // имя сервера
SQLConnection1.Params.Values['DataBase']:=MyBase ;
SQLConnection1.Params.Values['OS Authentication']:= 'True';
SQLConnection1.Open;
except
MessageDlg('Соединение с БД невозможно', mtError, [mbOK], 0);
exit;
end;
SQLQuery1.SQL.Add('IF EXISTS (SELECT * FROM sysobjects WHERE name ='+''''+'MyTable'+''''+') DELETE FROM MyTable;');
SQLQuery1.ExecSQL;
SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Add('IF EXISTS (SELECT * FROM sysobjects WHERE name ='+''''+'MyTable'+''''+') DROP TABLE MyTable;');
SQLQuery1.ExecSQL;
SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Add('CREATE TABLE MyTable (VZPROJ varchar(50), PARTITION varchar(50), '+
'MAKER varchar(50), STATE varchar(50), DATECRT varchar(50), DATEP varchar(50), '+
'DATEF varchar(50), DATETOCRD varchar(50), DATECRD varchar(50), DATEPLN varchar(50), '+
'DATEFIN varchar(50), DATECNCL varchar(50))');
SQLQuery1.ExecSQL;
cdsList.First;
for i:=1 to cdsList.RecordCount do
begin
stSQL:='INSERT INTO MyTable VALUES(';
if cdsList.FieldByName('VZPROJ').AsString<>'' then
stSQL:=stSQL+' '''+cdsList.FieldByName('VZPROJ').AsString+''','
else
stSQL:=stSQL+' NULL,';
if cdsList.FieldByName('PARTITION').AsString<>'' then
stSQL:=stSQL+' '''+cdsList.FieldByName('PARTITION').AsString+''','
else
stSQL:=stSQL+' NULL,';
if cdsList.FieldByName('MAKER').AsString<>'' then
stSQL:=stSQL+' '''+cdsList.FieldByName('MAKER').AsString+''','
else
stSQL:=stSQL+' NULL,';
if cdsList.FieldByName('STATE').AsString<>'' then
stSQL:=stSQL+' '''+cdsList.FieldByName('STATE').AsString+''','
else
stSQL:=stSQL+' NULL,';
if cdsList.FieldByName('DATECRT').AsString<>'' then
stSQL:=stSQL+' '''+cdsList.FieldByName('DATECRT').AsString+''','
else
stSQL:=stSQL+' NULL,';
if cdsList.FieldByName('DATEP').AsString<>'' then
stSQL:=stSQL+' '''+cdsList.FieldByName('DATEP').AsString+''','
else
stSQL:=stSQL+' NULL,';
if cdsList.FieldByName('DATEF').AsString<>'' then
stSQL:=stSQL+' '''+cdsList.FieldByName('DATEF').AsString+''','
else
stSQL:=stSQL+' NULL,';
if cdsList.FieldByName('DATETOCRD').AsString<>'' then
stSQL:=stSQL+' '''+cdsList.FieldByName('DATETOCRD').AsString+''','
else
stSQL:=stSQL+' NULL,';
if cdsList.FieldByName('DATECRD').AsString<>'' then
stSQL:=stSQL+' "'+cdsList.FieldByName('DATECRD').AsString+''','
else
stSQL:=stSQL+' NULL,';
if cdsList.FieldByName('DATEPLN').AsString<>'' then
stSQL:=stSQL+' '''+cdsList.FieldByName('DATEPLN').AsString+''','
else
stSQL:=stSQL+' NULL,';
if cdsList.FieldByName('DATEFIN').AsString<>'' then
stSQL:=stSQL+' '''+cdsList.FieldByName('DATEFIN').AsString+''','
else
stSQL:=stSQL+' NULL,';
if cdsList.FieldByName('DATECNCL').AsString<>'' then
stSQL:=stSQL+' '''+cdsList.FieldByName('DATECNCL').AsString+''''
else
stSQL:=stSQL+' NULL';
stSQL:=stSQL+');';
SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Add(stSQL);
SQLQuery1.ExecSQL;
cdsList.Next;
end;
end;
дельфипаста с гарниром
+20
if(
('node' == arg(0) ) &&
is_numeric(arg(1) ) &&
($node = node_load(array('nid' => arg(1), 'status' => 1 ) ) ) &&
(
('chapter' == $node->type) ||
('article' == $node->type) ||
('gall' == $node->type)
) &&
isset($node->field_parentchapter) &&
is_array($node->field_parentchapter) &&
count($node->field_parentchapter)
){
/// blah blah
}
матан, или как сделать из кучи одинаковых if() один
+160
/**
* Filtering posted data. Converting localized data if needed
*
* @param array
* @return array
*/
protected function _filterPostData($data)
{
$data = $this->_filterDates($data, array('dob'));
return $data;
}
Загадочный dob - кто он? Миф или реальность?
+115
if(!string.IsNullOrEmpty(((AccessLevelObject)cbAccessLevel.SelectedItem).Description))
txtAccessLevelDescription.Text = ((AccessLevelObject)cbAccessLevel.SelectedItem).Description;
догадайтесь что здесь лишнее )))
+119
#!/usr/local/bin/cpython
回答 = 读入('你认为中文程式语言有存在价值吗 ? (有/没有)')
如 回答 == '有':
写 '好吧, 让我们一起努力!'
不然 回答 == '没有':
写 '好吧,中文并没有作为程式语言的价值.'
否则:
写 '请认真考虑后再回答.'
Не говнокод, но... кто их знает, этих китайцев? :)
http://ru.wikipedia.org/wiki/ChinesePython
+155
void XmlElementHandler::startElement(
const XMLCh* const uri,
const XMLCh* const localname,
const XMLCh* const qname,
const XERCES_CPP_NAMESPACE_QUALIFIER Attributes& attrs
)
{
static XmlContext *context = XmlContext::getInstance();
static XmlParser *parser = XmlParser::getInstance();
оптимизируем обращения к синглтонам. потому что одной невидимой глобальной переменной явно не достаточно. вот такое щасце в 30+ методах на реализации интерфейса к Xerces-C.
+144
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.
Паскаль
Решил сделать тест по мотивам одноименного теста найденного в интернетах
+164
function runIcqBot($username, $password) {
$command = "nohup php-fcgi process.php ". $username ." ". $password ." > logs/".$username.".log &";
shell_exec($command);
}
И похеру на безопасность... Зато ICQ-клиент прямо в браузере!