create or replace trigger logon_audit
after logon on database
declare
/**********************************************************************************
NAME: logon_audit
PURPOSE: 限制某个IP到数据库实例的连接数。如果超过限制会出错或报警
NOTES: 1、使用sys提交到数据库
2、使用logon on database触发器实现
**********************************************************************************/
/*按照规划,定义number,string,date三种类型变量名称*/
i_sessions number;
i_sessions_limited number := 30;
str_userip varchar2(15) := '192.168.15.148';
except_ip_limited exception;
begin
dbms_application_info.set_client_info(sys_context('userenv',
'ip_address'));
select count(*)
into i_sessions
from v$session
where client_info = str_userip;
if (i_sessions > i_sessions_limited) then
raise except_ip_limited;
end if;
exception
when except_ip_limited then
raise_application_error(-20003, 'ip:' || str_userip || ' 连接数受限!');
end logon_audit;