- 1
- 2
- 3
- 4
- 5
- 6
- 7
$text=strip_tags($text);
$text=substr("$text", 0, 350);
echo"<div align=justify>";
echo"$text ";
echo"... ";
echo "<a href=../news/viewnews.php?kley=$kley>>></div><hr></td></tr>";
echo "</table>";
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+144
$text=strip_tags($text);
$text=substr("$text", 0, 350);
echo"<div align=justify>";
echo"$text ";
echo"... ";
echo "<a href=../news/viewnews.php?kley=$kley>>></div><hr></td></tr>";
echo "</table>";
Какой то бянист не мог через одно ехо вывести я уже молчу про двойные скобки...
автор неизвестен
−157.8
CREATE PROCEDURE "auot".uot_inv_procs2
(
NumFunc Integer, -- Номер функции :
-- 1 - Вставляет строку
-- 2 - Создает временную таблицу
-- 3 - Удаляет временную таблицу
-- 4 - Создает временную таблицу
-- 5 - Удаляет временную таблицу
-- 6 - Возвращает Dogovor.Dog_id
-- 7 - Создает TempTableInvoice
-- 8 - Создает TmpTabDeclInv
-- 9 - Создает TmpTabDeclSel
--10 - Заолняет TmpTabDeclSel
--11 - Добавляет в TmpTabVCSel
--12 - Обновляет информацию
n_Numb_inv NVarChar(10,0) DEFAULT NULL,
n_Date_inv Date DEFAULT NULL,
n_Code_exp Char(2) DEFAULT NULL,
n_Prod_code Char(3) DEFAULT NULL,
n_Code_Transport Char(1) DEFAULT NULL,
n_Code_Date_Cen Char(1) DEFAULT NULL,
n_Contract NVarChar(30,0) DEFAULT NULL,
n_DateContract Date DEFAULT NULL,
n_Weight Numeric(10,3) DEFAULT NULL,
n_Price Numeric(8,2) DEFAULT NULL,
n_Total Numeric(15,2) DEFAULT NULL,
n_Kod_val_id Integer DEFAULT NULL,
n_Date_konos Date DEFAULT NULL,
n_SHB_Signature Char(6) DEFAULT NULL,
n_Seller_Sign Char(6) DEFAULT NULL,
n_Date_prix Date DEFAULT NULL,
n_Date_move Date DEFAULT NULL,
n_SUM_CLS Numeric(15,2) DEFAULT NULL,
n_Consignee NVarChar(150,0) DEFAULT NULL,
n_Buyer NVarChar(150,0) DEFAULT NULL,
n_Pnt_departure NVarChar(150,0) DEFAULT NULL,
n_Destination NVarChar(150,0) DEFAULT NULL,
n_Steam_vessel NVarChar(50,0) DEFAULT NULL,
n_Delivery_terms NVarChar(18,0) DEFAULT NULL,
n_Status Char(1) DEFAULT 'N',
n_Dogovor_id Integer DEFAULT NULL,
n_Date_min Date DEFAULT NULL,
n_Date_max Date DEFAULT NULL,
n_Invoice_id Integer DEFAULT NULL,
n_Res_Code Char(8) DEFAULT NULL,
n_Date_Sale_Uved Date DEFAULT NULL,
n_Month Date DEFAULT NULL
)
RETURNING INTEGER;
DEFINE GLOBAL __current_user INTEGER DEFAULT NULL;
DEFINE GLOBAL err_sqlcode INTEGER DEFAULT 0;
DEFINE GLOBAL err_isamcode INTEGER DEFAULT 0;
DEFINE GLOBAL err_detail CHAR(80) DEFAULT '';
DEFINE _inv_id Integer;
DEFINE _Name_exp NVarChar(40,0);
DEFINE _Name_rus NVarChar(50,0);
DEFINE _Smlval Char(3);
DEFINE _rlw_id Integer;
DEFINE _weight_brutto Decimal(12,3);
DEFINE _Bes_inv Decimal(12,3);
DEFINE _Sum_inv Numeric(15,2);
DEFINE _Bes_free Decimal(12,3);
DEFINE _Sum_free Numeric(15,2);
DEFINE _Sum_Weight_Inv DECIMAL(12,3);
DEFINE _SHB_Name NVARCHAR(60,0);
DEFINE _dogovor NChar(15);
DEFINE _dlv_id Integer;
DEFINE _Decl_num Char(23);
DEFINE _Decl_date Date;
DEFINE _Buyer NVarChar(80);
DEFINE _Currency_rate Money(16,2);
DEFINE _CenaRus Money(16,2);
DEFINE _Prod_All NVarChar(93);
DEFINE _org_name NVarChar(80,0);
DEFINE _SumRUR Money(16,2);
DEFINE _SumKinef Money(16,2);
DEFINE _Delta Money(16,2);
DEFINE _Effect Money(16,2);
DEFINE _Dog_id Integer;
DEFINE _Res_code Char(8);
DEFINE _carriage_num NChar(18);
DEFINE _nom_nakl NChar(10);
DEFINE _Shpok_char Char(4);
DEFINE _Parent SmallInt;
DEFINE _Date_otgr DateTime YEAR TO SECOND;
IF NumFunc=2 THEN -- Создаем временную табл. SprInvByProd
CREATE TEMP TABLE SprInvByProd......
и так далее по каждому из 12 пунктов.....просто процедура на все случаи жизни..чувак реально попотел когда сие изобретал....
+162.2
$l = array('q', 'w', 'e', 'r', 't', 'y', 'u', 'i', 'o', 'p', 'a', 's', 'd', 'f', 'g', 'h', 'j', 'k', 'l', 'z', 'x', 'c', 'v', 'b', 'n', 'm', '-', '.');
$len = 9;
for ($i = 0; $i < 100; $i++) //цикл для проверки=)
{
$login = '';
while (strlen($login) < $len) {
$current = $l[mt_rand(0, (((strlen($login) + 1 == $len) || (strlen($login) == 0)) ? count($l) - 3 : count($l) - 1))]; //мама ради миня абратна
$login. = ((substr($login, strlen($login) - 1, 1)) == $current) ? '' : $current;
}
echo $login."<br>";
}
наверно самый извращенный код для генереции случайних строк который я когда либо писал=)
примерно такие требования
в начале и в конце как точки, так и тире быть тоже не должно
Т.е другими словами, должен начинаться буквой и заканчиваться буквой
не иметь двух тире и двухточие подряд
−863
CREATE PROCEDURE mix_kach1_spravka(
_date_time DATETIME YEAR TO MINUTE, -- дата
_param_rez_id integer -- признак
) RETURNING integer, -- туфта
decimal; -- туфта
define _date_r nchar(19);
define _wzliv decimal;
define _n_nn_rez nchar(4);
define _mass integer;
define _mass1 integer;
define _date_begin DATETIME YEAR TO MINUTE;
define _date_end DATETIME YEAR TO MINUTE;
define _count integer;
define _wzliv_beg INTEGER;
define _bes_pas DECIMAL;
define i int;
define _spr_id integer;
define _all_w decimal(7,1);
define _go_w decimal(7,1);
define _pr_w decimal(7,1);
define _proc_go decimal(4,1);
define _proc_pr decimal(4,1);
define _edatebegin Datetime year to minute;
define _w int;
define _m_go decimal;
define _m_pr decimal;
define test_date DATETIME YEAR TO MINUTE;
/*Опустим блок обработки ошибок*/
CREATE TEMP TABLE tmp_raschet1(
--spr_id SERIAL NOT NULL,
edate Datetime year to MINUTE, --27.08.2008 Лазарев Е.В.
w int,
all_w decimal(7,1),
go_w decimal(7,1),
pr_w decimal(7,1),
proc_go decimal(4,1),
proc_pr decimal(4,1)
) with no log;
let _m_go = 0;
let _m_pr = 0;
execute procedure get_mix_quality(_date_time,_param_rez_id) into _w, _all_w, _go_w, _pr_w, _proc_go, _proc_pr, _edatebegin;
insert into tmp_raschet1 (edate,w,all_w, go_w,pr_w,proc_go,proc_pr) values (_edatebegin,_w,_all_w, _go_w, _pr_w, _proc_go, _proc_pr);
END PROCEDURE;
Вот честно, что это и зачем такое нужно? Наверно выполнить процедуру и просто взять выходные данные не судьба.
А лишние переменные видимо на всякий случай.
P.S. Боже за что?!!!
+161
function isValidEmail(address) {
if (address.indexOf('@') < 1) return false;
var name = address.substring(0, address.indexOf('@'));
var domain = address.substring(address.indexOf('@') + 1);
if (name.indexOf('(') != -1 || name.indexOf(')') != -1 || name.indexOf('<') != -1 || name.indexOf('>') != -1 || name.indexOf(',') != -1 || name.indexOf(';') != -1 || name.indexOf(':') != -1 || name.indexOf('\\') != -1 || name.indexOf('"') != -1 || name.indexOf('[') != -1 || name.indexOf(']') != -1 || name.indexOf(' ') != -1) return false;
if (domain.indexOf('(') != -1 || domain.indexOf(')') != -1 || domain.indexOf('<') != -1 || domain.indexOf('>') != -1 || domain.indexOf(',') != -1 || domain.indexOf(';') != -1 || domain.indexOf(':') != -1 || domain.indexOf('\\') != -1 || domain.indexOf('"') != -1 || domain.indexOf('[') != -1 || domain.indexOf(']') != -1 || domain.indexOf(' ') != -1) return false;
return true;
}
проверка email на валидность по индусски
+63.2
bool FindActualQtyOfWeightedReceptacle
( std::map<double,double> &ReceptacleWeighings,
const double ReceptacleId,
double &Weight)
{
Weight = 0.0;
bool recepFound = false;
for (std::map<double,double>::iterator iter = ReceptacleWeighings.begin();
iter != ReceptacleWeighings.end() && !recepFound;
iter++)
{ if (iter->first == ReceptacleId)
{ recepFound = true;
Weight = iter->second;
}
}
return(recepFound);
}
Во Франции одного ведущего (!) С++ программиста с ироничной фамилией Паскаль попросили таки ознакомиться со стандартными контейнерами из библиотеки STL. В частности с std::map. В итоге из-под палки он выдал вот такой "код". Возникает как минимум два вопроса:
1. производительность?
2. и зачем так многа букаф?
Пардон, Жан-Люк, не обижайся. Наговнокодил...
−151
CREATE TEMP TABLE tmp_sale_exp (
id SERIAL NOT NULL,
dog_id integer,
shpok char(4),
is_komiss integer,
F2 nchar(80)
F3 nchar(3),
F4 date,
F5 char(3),
nakl_item_id integer,
F9 char(9),
F10 date,
act_qnt decimal(16,3),
F11 nchar(1),
F12 nvarchar(32),
decl_id integer,
F16 char(23),
F17 date,
F18 decimal(16,3),
F21 money(16,2),
F22 money(16,2),
ppd_decl_num char(23),
ppd_weight decimal(16,3),
ppd_summa money(16,2),
ppd_price money(16,2),
invoice_id integer,
F23 nvarchar(10),
F24 date,
F25 decimal(16,3),
smlval char(3),
nakl2inv decimal(16,3),
price money(16,2),
total money(16,2),
prod_code char(3) ,
res_name nvarchar(45),
F48 date,
F49 money(16,2),
ip_id integer
) WITH NO LOG;
вот недопрограммист создает временную таблицу, с очень ясными и понятными полями, он же думает что он вечный, и в его говнокоде потом никто разбираться не будет.
ммммммммммм....а какие интересные суммы, то decimal, то money, жалко но в этом конкретном примере нет еще и float, обычно они присутствуют все 3 типа и в одной таблице.....зачем???? я не знаю
+94.2
procedure TNamePlay.OKBtnClick(Sender: TObject);
var
reg:treginifile;
a,s,d,f,g,h,j,k,l,z,x:integer;
begin
if setp.CheckBox1.Checked =true then
playsound('Music\xxx.WAV',0,snd_async);
if vopros.Easy.Checked=false then
och.Caption:=inttostr(strtoint(och.caption)+50);
with gamers do begin
Reg := TReginifile.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
with reg do begin
o1.caption:=readstring('Software\xxx\Gamers\Result','First','');
o2.caption:=readstring('Software\xxx\Gamers\Result','Two','');
o3.caption:=readstring('Software\xxx\Gamers\Result','Three','');
o4.caption:=readstring('Software\xxx\Gamers\Result','Four','');
o5.caption:=readstring('Software\xxx\Gamers\Result','Five','');
o6.caption:=readstring('Software\xxx\Gamers\Result','Six','');
o7.caption:=readstring('Software\xxx\Gamers\Result','Seven','');
o8.caption:=readstring('Software\xxx\Gamers\Result','Eight','');
o9.caption:=readstring('Software\xxx\Gamers\Result','Nine','');
o10.caption:=readstring('Software\xxx\Gamers\Result','Ten','');
g1.caption:=readstring('Software\xxx\Gamers','First','');
g2.caption:=readstring('Software\xxx\Gamers','Two','');
g3.caption:=readstring('Software\xxx\Gamers','Three','');
g4.caption:=readstring('Software\xxx\Gamers','Four','');
g5.caption:=readstring('Software\xxx\Gamers','Five','');
g6.caption:=readstring('Software\xxx\Gamers','Six','');
g7.caption:=readstring('Software\xxx\Gamers','Seven','');
g8.caption:=readstring('Software\xxx\Gamers','Eight','');
g9.caption:=readstring('Software\xxx\Gamers','Nine','');
g10.caption:=readstring('Software\xxx\Gamers','Ten','');
end;
end;
if password.Text='' then
raise erangeerror.Create('Вы не ввели имени')
else begin
with gamers do begin
a:=strtoint(o1.caption);
s:=strtoint(o2.caption);
d:=strtoint(o3.caption);
f:=strtoint(o4.caption);
g:=strtoint(o5.caption);
h:=strtoint(o6.caption);
j:=strtoint(o7.caption);
k:=strtoint(o8.caption);
l:=strtoint(o9.caption);
z:=strtoint(o10.caption);
x:=strtoint(nameplay.och.caption);
if x>a then begin
g10.Caption:=g9.Caption;
o10.Caption:=o9.caption;
g9.Caption:=g8.Caption;
o9.Caption:=o8.caption;
g8.Caption:=g7.Caption;
o8.Caption:=o7.caption;
g7.Caption:=g6.Caption;
o7.Caption:=o6.caption;
g6.Caption:=g5.Caption;
o6.Caption:=o5.caption;
g5.Caption:=g4.Caption;
o5.Caption:=o4.caption;
g4.Caption:=g3.Caption;
o4.Caption:=o3.caption;
g3.Caption:=g2.Caption;
o3.Caption:=o2.caption;
g2.Caption:=g1.Caption;
o2.Caption:=o1.caption;
g1.Caption:=nameplay.Password.Text;
o1.Caption:=nameplay.och.Caption;
end else if x=a then begin
g1.Caption:=nameplay.Password.Text;
o1.Caption:=nameplay.och.Caption;
end else if x<a then begin
if x>s then begin
g10.Caption:=g9.Caption;
o10.Caption:=o9.caption;
g9.Caption:=g8.Caption;
o9.Caption:=o8.caption;
g8.Caption:=g7.Caption;
o8.Caption:=o7.caption;
g7.Caption:=g6.Caption;
o7.Caption:=o6.caption;
g6.Caption:=g5.Caption;
o6.Caption:=o5.caption;
g5.Caption:=g4.Caption;
o5.Caption:=o4.caption;
g4.Caption:=g3.Caption;
o4.Caption:=o3.caption;
g3.Caption:=g2.Caption;
o3.Caption:=o2.caption;
g2.Caption:=nameplay.Password.Text;
o2.Caption:=nameplay.och.Caption;
end else if x=s then begin
g2.Caption:=nameplay.Password.Text;
o2.Caption:=nameplay.och.Caption;
end else if x<s then begin
...
Ололо, феерический говнокод! LOL
+161
$file=file('list_less.dat');
for ($i=0;$i<count($file);$i++)
{
$f_abbr=substr($file[$i], 0, strpos($file[$i], '|'));
$f_name=substr($file[$i], strpos($file[$i], '|')+1, strlen($file[$i]));
$select.='<option value='.$f_abbr.'>'.$f_name;
}
почему то
$file=file('list_less.dat');
for ($i=0;$i<count($file);$i++)
{
$expl=explode('|', $file[$i]
$f_abbr=$expl[0];
$f_name=$expl[1]
$select.='<option value='.$f_abbr.'>'.$f_name;
}
мне показалось слишком просто о_О =)(=
Писал вроде трезвый
/*Найдено в одном проекте*/
+81.6
public void calculate(){
jTextField1.setText(String.valueOf(Integer.valueOf(String.valueOf(jSpinner1.getValue()))
*Integer.valueOf(String.valueOf(jSpinner13.getValue()))));
jTextField2.setText(String.valueOf(Integer.valueOf(String.valueOf(jSpinner2.getValue()))
*Integer.valueOf(String.valueOf(jSpinner14.getValue()))));
jTextField3.setText(String.valueOf(Integer.valueOf(String.valueOf(jSpinner3.getValue()))
*Integer.valueOf(String.valueOf(jSpinner15.getValue()))));
jTextField4.setText(String.valueOf(Integer.valueOf(String.valueOf(jSpinner4.getValue()))
*Integer.valueOf(String.valueOf(jSpinner16.getValue()))));
jTextField5.setText(String.valueOf(Integer.valueOf(String.valueOf(jSpinner5.getValue()))
*Integer.valueOf(String.valueOf(jSpinner17.getValue()))));
jTextField6.setText(String.valueOf(Integer.valueOf(String.valueOf(jSpinner6.getValue()))
*Integer.valueOf(String.valueOf(jSpinner18.getValue()))));
jTextField7.setText(String.valueOf(Integer.valueOf(String.valueOf(jSpinner7.getValue()))
*Integer.valueOf(String.valueOf(jSpinner19.getValue()))));
jTextField8.setText(String.valueOf(Integer.valueOf(String.valueOf(jSpinner8.getValue()))
*Integer.valueOf(String.valueOf(jSpinner20.getValue()))));
jTextField9.setText(String.valueOf(Integer.valueOf(String.valueOf(jSpinner9.getValue()))
*Integer.valueOf(String.valueOf(jSpinner21.getValue()))));
jTextField10.setText(String.valueOf(Integer.valueOf(String.valueOf(jSpinner10.getValue()))
*Integer.valueOf(String.valueOf(jSpinner22.getValue()))));
jTextField11.setText(String.valueOf(Integer.valueOf(String.valueOf(jSpinner11.getValue()))
*Integer.valueOf(String.valueOf(jSpinner23.getValue()))));
jTextField12.setText(String.valueOf(Integer.valueOf(String.valueOf(jSpinner12.getValue()))
*Integer.valueOf(String.valueOf(jSpinner24.getValue()))));
}
x_X