Эксперимент!! :)

При написании сообщения не пишите ничего,
а просто нажмите <Shift>+<Insert> (или Ctrl+V) кому как нравится.
Посмотрим кто чем занимается? :-)

Мое нажатие:

Продукция ОАО "Жировой комбинат"
Провансаль, ПВХ, 250г.
Провансаль, пакет, 250г.
Провансаль, банка, 900г.
Провансаль "Оливковый", пакет, 250г.
Провансаль "Уральский", пакет, 250г.
Провансаль, пакет-сошет, 300г.
Провансаль NEW, стекл. банка, 250г.
Горчица "Русская", туба, 150г.
Маргарины "Солнышко", "Домашний" и пр. в асс.
Масла мягкие "Щедрое лето" в асс.
И другая продукция ЕЖК в полном ассортименте.
Майонез "Обжорка" (Наб.Челны) в ассортименте
Кетчуп, томатная паста
Кетчуп, "Балтимор" (С-Петербург):
- стекло 750г в ассортименте
- пластик 500г./, 900г в ассортименте
Кетчуп "Айсберг" (Екатеринбург) пластик в асс
Уксусная кислота, 70%
Томатная паста "Помидорка", (Турция), ж/б, 770г.
Томатная паста "Помидорка", (Турция), ж/б, 380г.
Томатная паста "Кухмастер", (Самара), 1л./ 750г./550г./370г./270г.

Гы-ы :-)

"Ну пора и деньги зарабатывать", - сказал Гарри Потер и покрасил свою палочку в черные и белые полоски.

наивный!:-) за ламеров юзаешь?:-D

:beer:

Почему? Я вроде все понятно сказал, без тайного умысла! :-)

:-) дык - ясное дело :bayan: :-)

select
CCMESSAGE.msgid,
CCMESSAGE.txt,
CCDEST.name,
CCMESSAGE.phone,
CCMESSAGE.cost,
CCMESSAGE.money
from CCMESSAGE
left join CCDEST on CCMESSAGE.destid = CCDEST.dest
-- where MESSAGE.en_time between :STARTDATE and :ENDDATE
:-d

Form3.Visible:=True;

Такое тоже бывает, но реже, тк не фиг тут копировать, она сама всё пишет.

spool PCK01950FM_ZP.log

prompt Creating package FM_LEGALIZE...

CREATE OR REPLACE PACKAGE FM_LEGALIZE AS
--
type t_fio_parts is table of fm_spr_terror.nameu%type
index by binary_integer;
--
function Seek_By_Name (p_name in varchar2) return varchar2;
PRAGMA RESTRICT_REFERENCES (Seek_By_Name, WNDS, WNPS, TRUST);
--
function Names_Equal (p_str1 varchar2, p_str2 varchar2) return number;
PRAGMA RESTRICT_REFERENCES (Names_Equal, WNDS, WNPS, TRUST);
--
END FM_LEGALIZE;
/

show errors package FM_LEGALIZE

prompt Creating package body FM_LEGALIZE...

CREATE OR REPLACE PACKAGE BODY FM_LEGALIZE AS
-- внутренняя ф-ция разбора строки в твблицу
procedure Str_To_Table (p_str varchar2, p_table in out nocopy t_fio_parts) is
v_seeking_word fm_spr_terror.NAMEU%type;
v_cnt number;
begin
v_seeking_word := null;
v_cnt := 1;
for i in 1..length(p_str) loop
if substr(p_str, i, 1) <> ' ' then
v_seeking_word := v_seeking_word || substr(p_str, i, 1);
-- dbms_output.PUT_LINE(v_seeking_word);
end if;

if ((substr(p_str, i, 1) = ' ') or i = length(p_str))
and (v_seeking_word is not null)
then
p_table(v_cnt) := upper(v_seeking_word);
v_cnt := v_cnt + 1;
v_seeking_word := null;
end if;
end loop;
exception
when others then raise_application_error(-20001, sqlerrm);
end Str_To_Table;

-- Определяет, есть ли имя в справочнике
function Seek_By_Name (p_name in varchar2) return varchar2 is
cursor k1 is
select upper(NAMEU) nameu,
row_id
from fm_spr_terror
where nameu is not null;
v_fio_parts t_fio_parts;
v_terr_fio_parts t_fio_parts;
v_row_id fm_spr_terror.row_id%type;
v_found number;
v_cnt number;
v_cnt2 number;
begin
v_row_id := '0';
--
-- dbms_output.put_line('== fio_!: '||p_name|| ' ==');
v_fio_parts.delete;
--Str_To_Table(p_name, 1);
Str_To_Table(p_name, v_fio_parts);
--for v_cnt in 1..v_fio_parts.count loop
-- dbms_output.put_line('fio: '||v_fio_parts(v_cnt));
--end loop;

--
for rec in k1 loop
--dbms_output.put_line('== fio_terr_!: '||rec.nameu||' ==');
v_terr_fio_parts.delete;
--Str_To_Table(rec.nameu, 2);
Str_To_Table(rec.nameu, v_terr_fio_parts);
--for v_cnt in 1..v_terr_fio_parts.count loop
-- dbms_output.put_line('fio_terr: '||v_terr_fio_parts(v_cnt));
--end loop;



v_found := 1;
if (v_terr_fio_parts.count = v_fio_parts.count) and
(v_terr_fio_parts.count <> 0) and
(v_fio_parts.count <> 0) then
for v_cnt in 1..v_fio_parts.count loop
if v_found = 1 then
for v_cnt2 in 1..v_terr_fio_parts.count loop
if v_fio_parts(v_cnt) = v_terr_fio_parts(v_cnt2) then
--dbms_output.put_line(v_fio_parts(v_cnt) || ' = ' || v_terr_fio_parts(v_cnt2));
v_found := 1;
exit;
else
v_found := 0;
--dbms_output.put_line(v_fio_parts(v_cnt) || ' <> ' || v_terr_fio_parts(v_cnt2));
end if;
end loop;
end if;
end loop;
else
v_found := 0;
--dbms_output.put_line('Не равны по длинне');
end if;

if v_found = 1 then
v_row_id := rec.row_id;
exit;
end if;
end loop; --k1

return v_row_id;
end Seek_By_Name;
--
-- Функция сравнивающая два имени (по составляющим)
function Names_Equal (p_str1 varchar2, p_str2 varchar2) return number is
v_fio_parts1 t_fio_parts;
v_fio_parts2 t_fio_parts;
v_found number;
v_cnt number;
v_cnt2 number;
begin

v_fio_parts1.delete;
Str_To_Table(p_str1, v_fio_parts1);
v_fio_parts2.delete;
Str_To_Table(p_str2, v_fio_parts2);

v_found := 1;
if (v_fio_parts1.count = v_fio_parts2.count) and
(v_fio_parts1.count <> 0) and
(v_fio_parts2.count <> 0) then
for v_cnt in 1..v_fio_parts1.count loop
if v_found = 1 then
for v_cnt2 in 1..v_fio_parts2.count loop
if v_fio_parts1(v_cnt) = v_fio_parts2(v_cnt2) then
v_found := 1;
exit;
else
v_found := 0;
end if;
end loop;
end if;
end loop;
else
v_found := 0;
end if;

return v_found;
exception
when others then return 0;
end Names_Equal;
--
END FM_LEGALIZE;
/

show errors package body FM_LEGALIZE

spool off

rem
rem ===== End of file =====
rem

[Сообщение изменено пользователем 16.02.2005 15:40]

праграммисты :-)

Не ругайся!:-) В форуме могут быть и дети!:-)

В натуре... Хоть бы один пароли к базам выложил!:-)

Пжалста :
Login: sa
Password: Zc387KJmmpPo

О где наркоманы-то!:-)

А я не знаю, откуда у меня это в буфере обмена :-)
3000 лет на дельфях ничего не писал :-)

к базам милицыйи? :-) или эфэсбэ ? :-)

Предусмотреть монтаж кабельростов по коридору 8 этажа здания от лифтовой шахты до помещения УД

это не проверить)

но вот мое
По словам Нургалиева, «сейчас готовится нормативно-ведомственный документ о культурном и вежливом отношении сотрудников органов внутренних дел к гражданам». Министр выразил надежду, что он «объективно покажет россиянам, что МВД уделяет этому вопросу большое внимание».

Как пояснили в пресс-центре МВД России, в этом направлении планируется проведение целого комплекса мероприятий. Он включает: подготовку личного состава подразделений, в том числе, на этапе приема на службу; контроль со стороны руководителей различных уровней и общественности; проведение совещаний с участием представителей правозащитных организаций

Московский энергетический институт
:-) сама удивляюсь

-- Никогда не понимал, почему во всех инструкция пишут, что нельзя качестве пароля использовать имена домашних любимцев... Qwdrth36289#1_2005, кис-кис-кис...

Это я так свою жену звал :-)

энергоаудит промышленных предприятий и объектов ЖКХ
гы))) и кагда успела)))

Содержание статьи включает в себя рассмотрение нескольких аспектов:
Устройство форума;
Практическое использование межсайтового скриптинга и некоторых его тонкостей, и как следствие - контроль над чужим аккаунтом;
Разнообразие подходов;
Получение прав администратора, и соответсвенно контроль над всем форумом и захват сайта;


:-d

:-d