- 1
- 2
- 3
- 4
- 5
if(!(strpos(strtolower($to),'ontent-transfer-encoding')===false)) {
...
}
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+162.1
if(!(strpos(strtolower($to),'ontent-transfer-encoding')===false)) {
...
}
+173.5
toSmallFont = function ( e )
{
c = ["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"]; n = c.length;
r = ["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"];
while (n--) e = e.replace(c[n], r[n]);
return e;
}
toBigFont = function ( i )
{
c = ["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"]; n = c.length;
r = ["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"];
while (n--) i = i.replace(c[n], r[n]);
return i;
}
+167.8
date_in.date_ >= '".date("Y")."-".date("m")."-".date("d")."'
кусок SQL запроса...
+107.2
procedure TFormMoneyToBag.AMEditVirtualKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
Field : string;
Value : integer;
begin
if (Key = 16) or (Key = 13) then begin
with ADOHardCash.FieldByName('Dengi') do begin
if AsString = '500 грн' then Field := '[500hrn]'
else if AsString = '200 грн' then Field := '[200hrn]'
else if AsString = '100 грн' then Field := '[100hrn]'
else if AsString = '50 грн' then Field := '[50hrn]'
else if AsString = '20 грн' then Field := '[20hrn]'
else if AsString = '10 грн' then Field := '[10hrn]'
else if AsString = '5 грн' then Field := '[5hrn]'
else if AsString = '2 грн' then Field := '[2hrn]'
else if AsString = '1 грн' then Field := '[1hrn]'
else if AsString = '1 грн монета' then Field := '[1hrnCoin]'
else if AsString = '50 коп' then Field := '[50kopCoin]'
else if AsString = '25 коп' then Field := '[25kopCoin]'
else if AsString = '10 коп' then Field := '[10kopCoin]'
else if AsString = '5 коп' then Field := '[5kopCoin]'
else if AsString = '2 коп' then Field := '[2kopCoin]'
else if AsString = '1 коп' then Field := '[1kopCoin]'
end;
UpdateIncassationCurrentValue.Parameters.ParamByName('@IncassationId').Value := IncassationId;
UpdateIncassationCurrentValue.Parameters.ParamByName('@Field').Value := Field;
if AMEditVirtual.Text = '' then Value := 0 else Value := StrToInt(AMEditVirtual.Text);
UpdateIncassationCurrentValue.Parameters.ParamByName('@Value').Value := Value;
ExecStoredProc(UpdateIncassationCurrentValue);
RequeryADO(ADOHardCash);
RequeryADO(ADOCashDeskInfo);
ButtonStatus;
AMEditVirtual.Visible := false;
end;
end;
Сие Чудо техники заполняет параметры для выполнения хранимой процедуры на сервере.
Написал Большой Мудила, хотя в целом он хороший человек.
+129.5
<table cellpadding="5"><tr>
<td width="90%"><input id="dezsearch" type="text" value="" class="text" onKeyDown="if(event.keyCode==13) {parent.location='/ads/find/?section=all&find='+document.getElementById('dezsearch').value;}"></td>
<td><img src="/img/najti.gif" onClick="parent.location='/ads/find/?section=all&find='+document.getElementById('dezsearch').value"></td></tr></table>
Вот так вот... Находится не в фрейме
+123.9
<?xml version="1.0" encoding="utf-8"?>
<mx:Application xmlns:mx="http://www.adobe.com/2006/mxml" layout="absolute">
<mx:Script>
<![CDATA[
...
private function someFunction(event:Event):void {
progressBar.setProgress(0, 0);
PopUpManager.addPopUp(progressBar, cameraView, true);
PopUpManager.centerPopUp(progressBar);
}
private function updateProgress(event:ProgressEvent):void {
progressBar.setProgress(event.bytesLoaded, event.bytesTotal);
}
]]>
</mx:Script>
<!--
Опытным путем удалось установить, что бегущая полоска в ProgressBar
отображается в PopupManager только тогда, когда у него есть
предок с borderStyle="solid", иначе прогресс просто стоит!
-->
<mx:Canvas borderStyle="solid" visible="false">
<mx:ProgressBar id="progressBar" label="complete %3%%" labelPlacement="center" mode="manual" x="20" y="10"></mx:ProgressBar>
</mx:Canvas>
</mx:Application>
adobe flex 3
разгребал это два дня!
+167.8
//--------------------------------
if ( $language == "language/german.php" ) { echo '<a href="config/admin.php?lang=de"><img style="vertical-align:middle;" src="'.$theme.'/menu/admin.png" alt="" onmouseover="Tip(\''.$lang_menue[5].'\', OFFSETX, -20, OFFSETY, 22, OPACITY, 90, SHADOW, true, BGIMG, \'images/tooltip_bg.gif\', FADEIN, 500, FADEOUT, 400);" onmouseout="UnTip();" /></a><img style="vertical-align:middle;" src="images/pixel.gif" width="12" height="12" alt="" />'; }
if ( $language == "language/english.php" ) { echo '<a href="config/admin.php?lang=en"><img style="vertical-align:middle;" src="'.$theme.'/menu/admin.png" alt="" onmouseover="Tip(\''.$lang_menue[5].'\', OFFSETX, -20, OFFSETY, 22, OPACITY, 90, SHADOW, true, BGIMG, \'images/tooltip_bg.gif\', FADEIN, 500, FADEOUT, 400);" onmouseout="UnTip();" /></a><img style="vertical-align:middle;" src="images/pixel.gif" width="12" height="12" alt="" />'; }
// ... ещё до$#& "языков". В сумме 15
if ( $language == "language/serbian.php" ) { echo '<a href="config/admin.php?lang=rs"><img style="vertical-align:middle;" src="'.$theme.'/menu/admin.png" alt="" onmouseover="Tip(\''.$lang_menue[5].'\', OFFSETX, -20, OFFSETY, 22, OPACITY, 90, SHADOW, true, BGIMG, \'images/tooltip_bg.gif\', FADEIN, 500, FADEOUT, 400);" onmouseout="UnTip();" /></a><img style="vertical-align:middle;" src="images/pixel.gif" width="12" height="12" alt="" />'; }
if ( $language == "language/finnish.php" ) { echo '<a href="config/admin.php?lang=fi"><img style="vertical-align:middle;" src="'.$theme.'/menu/admin.png" alt="" onmouseover="Tip(\''.$lang_menue[5].'\', OFFSETX, -20, OFFSETY, 22, OPACITY, 90, SHADOW, true, BGIMG, \'images/tooltip_bg.gif\', FADEIN, 500, FADEOUT, 400);" onmouseout="UnTip();" /></a><img style="vertical-align:middle;" src="images/pixel.gif" width="12" height="12" alt="" />'; }
//--------------------------------
С того же говнодвижка PHP Web Stat
+136.7
BOOLEAN
KiCheckForAtlThunk (
IN PEXCEPTION_RECORD ExceptionRecord,
IN PCONTEXT Context
)
/*++
Routine Description:
This routine will determine whether an access violation was raised due to
an attempt to execute an ATL thunk in a no-execute, non-stack area.
If so, the thunk will be emulated and execution resumed.
Arguments:
ExceptionRecord - Supplies a pointer to an exception record.
Context - Supplies a pointer to a context frame.
Return Value:
TRUE - Context was updated to reflect the emulated ATL thunk, resume
execution.
FALSE - Not an ATL thunk, continue raising the exception.
--*/
//.........
//KiDispatchException:
//......
switch (ExceptionRecord->ExceptionCode) {
case STATUS_BREAKPOINT:
ContextFrame.Eip--;
break;
case KI_EXCEPTION_ACCESS_VIOLATION:
ExceptionRecord->ExceptionCode = STATUS_ACCESS_VIOLATION;
if (PreviousMode == UserMode) {
if (KiCheckForAtlThunk(ExceptionRecord,&ContextFrame) != FALSE) {
goto Handled1;
}
//................
Объявление KiCheckForAtlThunk (втыкать в комменты и название =)) ) Для тех кто в танке: исходники Windows, оконные классы ATL выделяют тупо в хипе кусок-переходник, который заменяет HWND, идущий первым параметром в оконную процедуру, на естественный, объектно-ориентированный this. Так вот, если у нас установлено где-то в реестре юзать защиту от выполнения данных, то, естественно, в хипе хер чего выполнишь, и возникнет #GP, и тут-то нам и придет на помощь KiCheckForAtlThunk =) Короче, ИМХО, вносить изменения в ядро, для того, чтобы нормально работала криво написанная юзермодная библиотека -- та еще жесть =) Все кто минусует -- не шарят :P
−124.3
'...
Dim l0 As New List(Of Integer)
Dim num = Convert.ToInt32(Console.ReadLine)
For i = 1 To num Step 1
Dim nn, nm As Double
nn = num / i
nm = Convert.ToInt32(num / i)
If nn = nm Then
l0.Add(i)
End If
Next
If l0.Count = 2 Then
Console.WriteLine("Number {0} is simply.", num)
Else
Console.WriteLine("Number {0} is not simply.", num)
End If
Console.ReadKey()
'...
Эх, детство, детство... Когда-то нужно было написать программу проверки числа на простоту.
+144.9
/*
Func get_top($msg_number,$lines)
Access: Public
*/
function get_top( $msg_number , $lines = "0" )
{
// ....
}
Очень ценный комментарий к функции, о одном классе.. Более того, там все каменты в этом стиле. Кэп снова с нами!