MSSQL处理死锁存储过程

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

外部联系：
    上级调用：
    下级调用：
    输 入 表：
    输 出 表：
功能修订：
    简要说明： 必须在master数据库中创建

  use master --必须在master数据库中创建  
go

if exists (select * from dbo.sysobjects WHERE id = object_id(N'[dbo].[p_lockinfo]') AND OBJECTPROPERTY(id,   N'IsProcedure') = 1)  
drop procedure [dbo].[p_lockinfo]  
GO  

 
create   proc   p_lockinfo  
@kill_lock_spid   bit=1, --是否杀掉死锁的进程,1   杀掉,   0   仅显示  
@show_spid_if_nolock   bit=1 --如果没有死锁的进程,是否显示正常进程信息,1   显示,0   不显示  
as  
declare   @count   int,@s   nvarchar(1000),@i   int  
select   id=identity(int,1,1),标志,  
进程ID=spid,线程ID=kpid,块进程ID=blocked,数据库ID=dbid,  
数据库名=db_name(dbid),用户ID=uid,用户名=loginame,累计CPU时间=cpu,  
登陆时间=login_time,打开事务数=open_tran, 进程状态=status,  
工作站名=hostname,应用程序名=program_name,工作站进程ID=hostprocess,  
域名=nt_domain,网卡地址=net_address  
into   #t   from(  
select   标志='死锁的进程',  
spid,kpid,a.blocked,dbid,uid,loginame,cpu,login_time,open_tran,  
status,hostname,program_name,hostprocess,nt_domain,net_address,  
s1=a.spid,s2=0  
from   master..sysprocesses   a   join   (  
select   blocked   from   master..sysprocesses   group   by   blocked  
)b   on   a.spid=b.blocked   where   a.blocked=0  
union   all  
select   '|_牺牲品_>',  
spid,kpid,blocked,dbid,uid,loginame,cpu,login_time,open_tran,  
status,hostname,program_name,hostprocess,nt_domain,net_address,  
s1=blocked,s2=1  
from   master..sysprocesses   a   where   blocked<>0  
)a   order   by   s1,s2  

select   @count=@@rowcount,@i=1  

if   @count=0   and   @show_spid_if_nolock=1  
begin  
insert   #t  
select   标志='正常的进程',  
spid,kpid,blocked,dbid,db_name(dbid),uid,loginame,cpu,login_time,  
open_tran,status,hostname,program_name,hostprocess,nt_domain,net_address  
from   master..sysprocesses  
set   @count=@@rowcount  
end  

if   @count>0  
begin  
create   table   #t1(id   int   identity(1,1),a   nvarchar(30),b   Int,EventInfo   nvarchar(255))  
if   @kill_lock_spid=1  
begin  
declare   @spid   varchar(10),@标志   varchar(10)  
while   @i<=@count  
begin  
select   @spid=进程ID,@标志=标志   from   #t   where   id=@i  
insert   #t1   exec('dbcc   inputbuffer('+@spid+')')  
if   @标志='死锁的进程'   exec('kill   '+@spid)  
set   @i=@i+1  
end  
end  
else  
while   @i<=@count  
begin  
select   @s='dbcc   inputbuffer('+cast(进程ID   as   varchar)+')'   from   #t   where   id=@i  
insert   #t1   exec(@s)  
set   @i=@i+1  
end  
select   a.*,进程的SQL语句=b.EventInfo  
from   #t   a   join   #t1   b   on   a.id=b.id  
end  
go