查询出哪个程序占用得session 比较多

select program,count(*) from v$session 
group by program 
order by count(*) desc

杀掉 过期得session 
select 'kill -9 '||b.spid
--,a.sid,a.program,a.logon_time 
from v$session a,v$process b 
where a.program ='tb-smbc-d@sd_db (tns v1-v3)' and a.logon_time < to_date('20080216','yyyymmdd')
and a.paddr = b.addr 


解决问题得关键还是从应用，

让开发人员看看为啥连接不释放