Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+145
{pascal}
{$M 65520,0,10000}
program govnokod;
a:word;
begin
repeat
writeln('кто считает что он дебил нажмите 1, кто наоборот 2');
readln(a);
if a=1
then
writeln('да ты прав');
readln
else
writeln('да нет ты не понял, надо нажать 1');
until a=1
end.просто прикольная надоедаловка,
we-stalkers,
18 Ноября 2010
−103
'==========================================================================
'обновляю таблицу okFIO
lcSQl = "UPDATE okFIO SET"
If Not (Me.DS_ExportFIO.okFIO.Rows(0)!dateBegin Is System.DBNull.Value) Then
lcSQl &= " dateBegin = '" & Format(Me.DS_ExportFIO.okFIO.Rows(0)!dateBegin, "yyyyMMdd") & "'"
End If
If Not (Me.DS_ExportFIO.okFIO.Rows(0)!Prim Is System.DBNull.Value) Then
lcSQl &= ", Prim = '" & Me.DS_ExportFIO.okFIO.Rows(0)!Prim.ToString & "'"
End If
If Not (Me.DS_ExportFIO.okFIO.Rows(0)!oldFam Is System.DBNull.Value) Then
lcSQl &= ", oldFam = '" & Me.DS_ExportFIO.okFIO.Rows(0)!oldFam.ToString & "'"
End If
'If Not (Format(Me.DS_ExportFIO.okFIO.Rows(0)!dateFill.ToString, "yyyyMMdd")) = "" Then
' lcSQl &= ", dateFill = " & Format(Me.DS_ExportFIO.okFIO.Rows(0)!dateFill.ToString, "yyyyMMdd") & ""
'End If
If Not (Me.DS_ExportFIO.okFIO.Rows(0)!FIOR Is System.DBNull.Value) Then
lcSQl &= ", FIOR = '" & Me.DS_ExportFIO.okFIO.Rows(0)!FIOR.ToString & "'"
End If
If Not (Me.DS_ExportFIO.okFIO.Rows(0)!FIOD Is System.DBNull.Value) Then
lcSQl &= ", FIOD = '" & Me.DS_ExportFIO.okFIO.Rows(0)!FIOD.ToString & "'"
End If
......
If Not (Me.DS_ExportFIO.okFIO.Rows(0)!isSoprPF Is System.DBNull.Value) Then
lcSQl &= ", isSoprPF = " & Me.DS_ExportFIO.okFIO.Rows(0)!isSoprPF.ToString & ""
End If
If Not (Me.DS_ExportFIO.okFIO.Rows(0)!isReadyFotoPC Is System.DBNull.Value) Then
lcSQl &= ", isReadyFotoPC = " & Me.DS_ExportFIO.okFIO.Rows(0)!isReadyFotoPC.ToString & ""
End If
If Not (Me.DS_ExportFIO.okFIO.Rows(0)!isReadySignPC Is System.DBNull.Value) Then
lcSQl &= ", isReadySignPC = " & Me.DS_ExportFIO.okFIO.Rows(0)!isReadySignPC.ToString & ""
End If
If Not (Me.DS_ExportFIO.okFIO.Rows(0)!SNILS Is System.DBNull.Value) Then
lcSQl &= ", SNILS = '" & Me.DS_ExportFIO.okFIO.Rows(0)!SNILS.ToString & "'"
End If
If Not (Me.DS_ExportFIO.okFIO.Rows(0)!idPrivilege Is System.DBNull.Value) Then
lcSQl &= ", idPrivilege = " & Me.DS_ExportFIO.okFIO.Rows(0)!idPrivilege.ToString & ""
End If
lcSQl &= " WHERE(id = " & Me.idFIO & ")"
myCommand = New SqlClient.SqlCommand(lcSQl, myConn)
myCommand.CommandTimeout = 0
myCommand.ExecuteNonQuery(И так далее... всего около 150ти строк кода (весь сюда запихнуть не могу) на формирования SQL-запроса.
HellMaster_HaiL,
18 Ноября 2010
+145
if not Assigned(ArbPower) then
DoException('Блятство');эмокод, но какой душевный!
stokito,
18 Ноября 2010
−154
Public appWorld As Excel.Application
Public wbWorld As Excel.Workbook
Sub Setup()
On Error Resume Next 'ignore errors
Set appWorld = GetObject("Excel.Application")
If Err.Number <> 0 Then
Set appWorld = CreateObject("Excel.Application") 'run it
End If
Err.Clear
End Subсвиснул с бигресорс
TEEN,
18 Ноября 2010
+114
public static DataTable GetMainMenu()
{
DataTable dt = null;
if (DataManager.IsClientServer)
{
dt = new DataTable();
using (OracleCommand qGetMainMenu = new OracleCommand())
{
qGetMainMenu.Connection = DataManager.OracleSession;
qGetMainMenu.CommandText = String.Format("SELECT * FROM {0}.V_MENU", DataManager.DataSchema);
using (OracleDataReader odr = qGetMainMenu.ExecuteReader())
{
dt.Load(odr);
odr.Close();
}
}
}
else
{
using (Service.AbvServiceClient client = Utils.CreateServiceClient())
{
dt = client.GetMainFormMenu();
}
}
return dt;
}
2-х или 3-х звенка? прямой вызов или Wcf-служба?
з.ы. повсеместно во всем проекте
coyote,
18 Ноября 2010
+155
<?php
if ( !defined("MAGIC_WORD") ) die( "Доступ к данной странице запрещен!" );
/**
* ==============================
* Page Load
* ==============================
*/
$file = phpInjection(sqlInjection(@$_GET['f']));
switch ($file)
{
case "news":
$module = "news.php";
break;
case "lk":
$module = "profile.php";
break;
case "register":
$module = "register.php";
break;
case "stat":
$module = "stat.php";
break;
case "forget":
$module = "forget.php";
break;
case "vote":
$module = "vote.php";
break;
case "webmoney":
$module = "webmoney.php";
break;
default:
$module = "main.php";
}
if (file_exists(ROOT_DIR . "/engine/" . $module))
{
include ROOT_DIR . '/engine/' . $module;
}
else
{
$tpl->result["content"] = "<div class='error'>Ошибка 404. Страница не найдена</div>";
}
?>
rat4,
17 Ноября 2010
+145
for(i=0;i<=15;i++) {
o=Odd(N[i]);s=Simple(N[i]);//Odd-проверка на нечётность всех цифр, Simple-на простое число
if((o&&s)||(N[i]==3||N[i]==5||N[i]==7))
{
}
else cprintf("%d ",N[i]); //и вот тут замкнуло...но по другому никак)
if(i>n+4) goto exit;//потерялись 4 элемента...
}лаба..сдам на следующей неделе, в надежде что у препода произойдёт переполнение и поставит, всё-таки всё работает =)
aelaa,
17 Ноября 2010
+164
public function __destruct () {
$props =& get_object_vars($this);
$props = array();
}Двойное уничтожение (если прокатит )))).
dwinner,
17 Ноября 2010
−856
create Function [dbo].[BuildString]( @a char(1),
@b char(1),
@c char(2),
@d char(2),
@e char(1),
@f char(1),
@g char(1),
@h char(2),
@i char(2),
@j char(1),
@k char(2),
@l char(1),
@m char(2),
@n char(1),
@o char(1),
@p char(1),
@q char(2),
@r char(2),
@s char(1),
@t char(1),
@u char(1),
@v char(1),
@w char(2),
@x char(2),
@y char(2),
@z char(1),
@a0 char(1),
@a1 char(1),
@a2 char(2),
@a3 char(2),
@a4 char(4))
returns char(47)
as
begin
declare @text char(47)
set @text = @a+@b+@c+@d+@e+@f+@g+
@h+@i+@j+@k+@l+@m+@n+
@o+@p+@q+@r+@s+@t+@u +
@v+@w+@x+@y+@z+
@a0+@a1+@a2+@a3+@a4
return @textАвтор наверное что-то хотел этим сказать. Я так и не понял :)
adler,
17 Ноября 2010
+153
<?php if (isset($primary_links)) : ?>
<?php print theme('links', $primary_links, array('class' => 'nav1')) ?>
<?php endif; ?>украинская система верстки
fatdevil,
17 Ноября 2010
Follow us!