ORACLE自动杀活动会话

近来发现因WEB前端异常导致oracle服务器active session过多,load average增高,系统卡死,故写一个自动杀活动会话的存储过程

1.创建临时表

复制代码

create table ACTIVESESSION_TMP
(
username VARCHAR2(30),
status VARCHAR2(8),
osuser VARCHAR2(30),
machine VARCHAR2(64),
program VARCHAR2(48),
client_info VARCHAR2(64),
createdate DATE default sysdate,
logon_time DATE
);

create table ACTIVESESSION_TMP1
(
username VARCHAR2(30),
status VARCHAR2(8),
osuser VARCHAR2(30),
machine VARCHAR2(64),
program VARCHAR2(48),
client_info VARCHAR2(64),
sql_text VARCHAR2(4000),
createdate DATE default SYSDATE,
logon_time DATE
);

复制代码

 2.使用存储过程每五分钟执行一次,当active session大于50时记录active session信息并杀掉

复制代码
CREATE OR REPLACE PROCEDURE KILL_SESSION AS
  v_sid    number;
  v_serial number;
  v_count  number;
  killer   varchar2(4000);
begin
  select count(*) into v_count from v$session where type != 'BACKGROUND' and status = 'ACTIVE' and username not like '%SYS%';
  if v_count > 50 then
    declare
      CURSOR cursor_session_info is
        select sid, serial# from v$session where type != 'BACKGROUND' and status = 'ACTIVE' and username not like '%SYS%';
    begin
        insert into activesession_tmp select t.username,t.status,t.osuser,t.machine,t.program,t.client_info,sysdate,t.logon_time from v$session t where t.type != 'BACKGROUND' and t.status = 'ACTIVE' and t.username is not null;
        insert into activesession_tmp1 select t.username,t.status,t.osuser,t.machine,t.program,t.client_info,s.sql_text,sysdate,t.logon_time from v$session t,v$sqlarea s where t.type != 'BACKGROUND' and t.status = 'ACTIVE' and t.username is not null and t.SQL_ID=s.SQL_ID;
      commit;
      open cursor_session_info;
      loop
        fetch cursor_session_info into v_sid, v_serial;
        exit when cursor_session_info%notfound;

        killer := 'alter system kill session ''' || v_sid || ',' || v_serial || '''immediate';
        execute immediate killer;
      end loop;
      dbms_output.PUT_LINE(cursor_session_info%rowcount ||
                           'active users with count>50 have been killed!');
      close cursor_session_info;
    end;
  END if;
end;
复制代码

创建job没五分钟执行一次

begin
  sys.dbms_job.submit(job => :job,
                      what => 'KILL_SESSION;',
                      next_date => to_date('06-08-2021 10:20:16', 'dd-mm-yyyy hh24:mi:ss'),
                      interval => 'sysdate+5/(24*60)');
  commit;
end;
/

 

  

posted @   玄澈  阅读(239)  评论(0编辑  收藏  举报
编辑推荐:
· 深入理解 Mybatis 分库分表执行原理
· 如何打造一个高并发系统?
· .NET Core GC压缩(compact_phase)底层原理浅谈
· 现代计算机视觉入门之:什么是图片特征编码
· .NET 9 new features-C#13新的锁类型和语义
阅读排行:
· Spring AI + Ollama 实现 deepseek-r1 的API服务和调用
· 《HelloGitHub》第 106 期
· 数据库服务器 SQL Server 版本升级公告
· 深入理解Mybatis分库分表执行原理
· 使用 Dify + LLM 构建精确任务处理应用
点击右上角即可分享
微信分享提示