- 1
- 2
- 3
- 4
$headers = @get_headers("http://".$domen_name."/templates/form-".$_GET['id'].".tpl");
if(preg_match("|200|", $headers[0]))
{
$form = file_get_contents($root."/templates/form-".$_GET['id'].".tpl");
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+171
$headers = @get_headers("http://".$domen_name."/templates/form-".$_GET['id'].".tpl");
if(preg_match("|200|", $headers[0]))
{
$form = file_get_contents($root."/templates/form-".$_GET['id'].".tpl");
Самая жестокая проверка на существование файла которую я видел в своей жизни.
Кодеры не знали про file_exists()
+81
{ ... }
writeln('vvedite indexi "X" i "=" 1-ogo uravneniay');
writeln('x1');
readln(x11);
writeln('x2');
readln(x12);
writeln('x3');
readln(x13);
writeln('x4');
readln(x14);
writeln('=');
readln(x15);
writeln('vvedite indexi "X" i "=" 2-ogo uravneniay');
writeln('x1');
readln(x21);
writeln('x2');
readln(x22);
writeln('x3');
readln(x23);
writeln('x4');
readln(x24);
writeln('=');
readln(x25);
writeln('vvedite indexi "X" i "=" 3-ogo uravneniay');
writeln('x1');
readln(x31);
writeln('x2');
readln(x32);
writeln('x3');
readln(x33);
writeln('x4');
readln(x34);
writeln('=');
readln(x35);
writeln('vvedite indexi "X" i "=" 4-ogo uravneniay');
writeln('x1');
readln(x41);
writeln('x2');
readln(x42);
writeln('x3');
readln(x43);
writeln('x4');
readln(x44);
writeln('=');
readln(x45);
{веселье - вот зачем это все нужно было))}
m2[1,1]:=x11;
m2[1,2]:=x12;
m2[1,3]:=x13;
m2[1,4]:=x14;
m2[2,1]:=x21;
m2[2,2]:=x22;
m2[2,3]:=x23;
m2[2,4]:=x24;
m2[3,1]:=x31;
m2[3,2]:=x32;
m2[3,3]:=x33;
m2[3,4]:=x34;
m2[4,1]:=x41;
m2[4,2]:=x42;
m2[4,3]:=x43;
m2[4,4]:=x44;
{ ... }
Классика ввода матриц. Опять. С киберфорума. http://www.cyberforum.ru/turbo-pascal/thread425906.html#post2374414
+105
program tetris;
uses
crt;
var
ss,nn,x,y,pus,a,b,c,d,lin,rlin:integer;
st:array[1..12] of array[1..22] of integer;
procedure k(x,y:integer);
{ђЁб㥬 Єў а¤а вЁЄ}
begin
gotoxy(x*2+27,25-y);
if ss=0 then write(' ');
if ss=1 then write('[]');
if ss=2 then write(chr(177),chr(177));
if (ss=3) and (st[x,y]>0) then pus:=1;
if ss=4 then st[x,y]:=1;
gotoxy(1,1);write(' ');
end;
procedure fig(x,y,n,s:integer);
{ђЁб㥬 дЁЈгаг}
begin
if s=3 then pus:=0;
ss:=s; k(x,y);
if n=1 then begin k(x+1,y);k(x,y-1);k(x+1,y-1) end;
if n=2 then begin k(x-1,y);k(x+1,y);k(x+2,y) end;
if n=3 then begin k(x,y+1);k(x,y-1);k(x,y-2) end;
if n=4 then begin k(x+1,y);k(x-1,y);k(x-1,y+1) end;
if n=5 then begin k(x,y+1);k(x+1,y+1);k(x,y-1) end;
if n=6 then begin k(x-1,y);k(x+1,y);k(x+1,y-1) end;
if n=7 then begin k(x,y+1);k(x,y-1);k(x-1,y-1) end;
if n=8 then begin k(x-1,y);k(x+1,y);k(x+1,y+1) end;
if n=9 then begin k(x,y+1);k(x,y-1);k(x+1,y-1) end;
if n=10 then begin k(x+1,y);k(x-1,y);k(x-1,y-1) end;
if n=11 then begin k(x,y+1);k(x,y-1);k(x-1,y+1) end;
if n=12 then begin k(x-1,y);k(x,y-1);k(x+1,y-1) end;
if n=13 then begin k(x,y+1);k(x-1,y);k(x-1,y-1) end;
if n=14 then begin k(x+1,y);k(x-1,y-1);k(x,y-1) end;
if n=15 then begin k(x-1,y);k(x,y-1);k(x-1,y+1) end;
if n=16 then begin k(x+1,y);k(x-1,y);k(x,y+1) end;
if n=17 then begin k(x+1,y);k(x,y+1);k(x,y-1) end;
if n=18 then begin k(x,y-1);k(x-1,y);k(x+1,y) end;
if n=19 then begin k(x-1,y);k(x,y+1);k(x,y-1) end
end;
procedure pov;
{Џ®ў®а®в дЁЈгал}
begin
nn:=nn-1;
if nn=15 then nn:=19;
if nn=13 then nn:=15;
if nn=11 then nn:=13;
if nn=7 then nn:=11;
if nn=3 then nn:=7;
if nn=1 then nn:=3;
if nn=0 then nn:=1;
end;
procedure clrst;
{ЋзЁбвЄ бв Є }
begin
for x:=1 to 12 do
for y:=1 to 22 do
if (x=1) or (x=12) or (y=1) then st[x,y]:=2 else st[x,y]:=0;
end;
procedure risvesst;
{ђЁб®ў вм ўҐбм бв Є }
begin
for x:=1 to 12 do for y:=1 to 22 do
begin
ss:=st[x,y];
k(x,y)
end;
end;
procedure dvig;
{„ўЁ¦ҐЁҐ}
var
i:integer;key:char;
begin
for i:=1 to 10 do
begin
delay(d);
key:=' ';
if keypressed then key:=readkey;
if key='i' then
begin
fig(x-1,y,nn,3);
if pus=0 then begin fig(x,y,nn,0); x:=x-1; fig(x,y,nn,1); end;
end;
http://sources.ru/pascal/gamestxt/tet.htm
+163
function BuildPath()
{
global $pathroot;
$full=strtolower(trim($_SERVER["site.ru"]));
$full=str_replace("\\\\","\\",$full);
$full=str_replace("\\","/",$full);
$full=str_replace("//","/",$full);
$small=strtolower(trim($_SERVER["PHP_SELF"]));
$small=str_replace("\\\\","\\",$small);
$small=str_replace("\\","/",$small);
$small=str_replace("//","/",$small);
}
−89
def get_caller_module_dict(levels):
try:
raise RuntimeError
except RuntimeError:
e,b,t = sys.exc_info()
f = t.tb_frame
while levels > 0:
f = f.f_back
levels -= 1
ldict = f.f_globals.copy()
if f.f_globals != f.f_locals:
ldict.update(f.f_locals)
return ldict
+80
/** ���� ��������� ���� @P@R@I@V@E@T@ @1@8 - ���� ��� ���� ������ */
public static String removeSabakaCoding(String inStr)
{
try {
char[] chars = inStr.toCharArray();
StringBuffer sb = new StringBuffer();
boolean mustBe = true;
boolean sobakaCoding = true;
for (int i = 0; i < inStr.length(); i++)
{
if (mustBe)
{
if (chars[i] == '@')
{ // ���� ��� sobakaCoding � ����..
} else
{
sobakaCoding = false;
break;
}
} else
sb.append(chars[i]);
mustBe=!mustBe;
}
if (sobakaCoding)
return sb.toString();
} catch (Exception e)
{
e.printStackTrace();
}
return inStr;
}
Чмоке всем в этам чяте!!!111
+161
public function selectItems( $id, $withStrictment = 'no' /* $withStrictment = no, retail, discount */ ) {
if( $withStrictment == 'discount' ) $onlyWithRetailPriceSql = " and items.articul in ( select articul from items_discount ) ";
if( $withStrictment == 'retail' ) $onlyWithRetailPriceSql = " and items.articul in ( select articul from retailPrice ) ";
$a = database::select(" SELECT items.* FROM items WHERE items.id = '$id' and items.deleted = 'no' ");
$a = $a[0];
$this->data = database::select("SELECT items.*,
IF(DATEDIFF(now(),created) <= 30, 'Новинка! ', '') as fresh,
( items.quantity - coalesce(view_pendeditemsquantity.sum,0) ) as quantity,
items_comments.comment as dopDescr, items_comments.comment as comment, items_discount.priceAsUSD as discountPrice,
items_packing.packing,
concat(items.name, ' - ', items.quantity) as name
FROM items
LEFT JOIN view_pendeditemsquantity ON items.articul = view_pendeditemsquantity.articul
LEFT JOIN items_comments ON items.articul = items_comments.articul
left join items_discount on items.articul = items_discount.articul
left join items_packing on items.articul = items_packing.articul
WHERE items.group_id in ( select articul from items where is_group = '1' and name = '{$a['name']}' and group_id = '' )
and items.deleted = 'no'
$onlyWithRetailPriceSql
order by items.quantity desc, items.name asc
");
}
+165
$menu_string = "Список устройств=sp_ustr.php~Список пользователей=sp_cl.php~Список параметров=sp_p_param.php~Список компаний=sp_comp.php~Список ролей=sp_rol.php~Список параметров отчетов=sp_repparam.php~Список наименований датчиков=sp_sensors.php~Список групп=sp_groups.php~Список пользовательских настроек=spn_cl.php~Просмотр активаций=sp_activ.php~Выбрать организацию=vb_org.php~Экспресс-отчеты=sp_report.php".$st;
$menu = explode("~",$menu_string);
//~Оповещение=soobsh.php~Добавить лицензию=D_lic.php~Выгрузка данных=dat_out.php~Отчеты=otch.php~Експресотчеты=sp_report.php~Параметры датчиков=sp_param.php~Удаленное управление=connect.php~Активация программы=d_activ.php~Параметры отчетов=sp_repparam.php
for ($i=0; $i < count($menu); $i++) {
$menu_1 = explode("=",$menu[$i]);
if (2 == count($menu_1)) {
echo "<a href=",$menu_1[1],">",$menu_1[0],"</a><br>";
} else {
echo "<a href=index-",$i+1,".php>",$menu_1[0],"</a><br>";
};
};
нужно сделать на сайте простое статическое меню.
вот как, элегантно было решено сделать =)))
+175
<?php if ($_GET['id'] == 12 or $_GET['Itemid'] == 37 or $_GET['id'] == 13 or $_GET['id'] == 32 or $_GET['pid']) { ?>
<td width="65px"> </td>
<? } ?>
<td class="otstup_content">
контекстно независимые шаблонные конструкции.
здравствуй joomal! здравствуй студия с большим именем!
+112
result = result += (od.UnitPrice * od.Quantity);
Источник:
http://msdn.microsoft.com/ru-ru/library/ff852066.aspx#Y0