oracle創建觸發器，防止有人惡意刪除表及常用對象。

CREATE OR REPLACE TRIGGER ddl_deny_lee

--jwz 20101018
    BEFORE  drop OR truncate on database
   
begin

  raise_application_error(num => -20000,
                          msg => '主機:' || SYS_CONTEXT('USERENV', 'HOST') ||
                                 chr(13) || 'IP:' ||
                                 SYS_CONTEXT('USERENV', 'IP_ADDRESS') ||
                                 '試圖刪除' || ora_dict_obj_name() || '表');
end;