CREATE procedure sp_who_lock 
as   
begin   
  declare @spid int   
  declare @blk int   
  declare @count int   
  declare @index int   
  declare @lock tinyint   
  set @lock=0   
  create table #temp_who_lock   
 (   
 id int identity(1,1),   
 spid int,   
 blk int   
 )   
 if @@error<>0 return @@error   
 insert into #temp_who_lock(spid,blk)   
 select 0 ,blocked   
 from (select * from master..sysprocesses where blocked>0)a   
 where not exists(select * from master..sysprocesses where a.blocked =spid and blocked>0)   
 union select spid,blocked from master..sysprocesses where blocked>0   
 if @@error<>0 return @@error   
 select @count=count(*),@index=1 from #temp_who_lock   
 if @@error<>0 return @@error   
 if @count=0   
 begin   
 select '沒有阻塞和死鎖信息'   
 return 0   
 end   
 while @index<=@count   
 begin   
 if exists(select 1 from #temp_who_lock a where id>@index and exists(select 1 from #temp_who_lock where id<=@index and a.blk=spid))   
 begin   
  set @lock=1   
  select @spid=spid,@blk=blk from #temp_who_lock where id=@index   
  select '引起數(shù)據(jù)庫(kù)死鎖的是: '+ CAST(@spid AS VARCHAR(10)) + '進(jìn)程號(hào),其執(zhí)行的SQL語(yǔ)法如下'   
  select @spid, @blk  
  dbcc inputbuffer(@spid)   
  dbcc inputbuffer(@blk)   
 end   
 set @index=@index+1   
 end   
 if @lock=0   
 begin   
 set @index=1   
 while @index<=@count   
 begin   
  select @spid=spid,@blk=blk from #temp_who_lock where id=@index   
  if @spid=0   
  select '引起阻塞的是:'+cast(@blk as varchar(10))+ '進(jìn)程號(hào),其執(zhí)行的SQL語(yǔ)法如下'   
  else   
  select '進(jìn)程號(hào)SPID：'+ CAST(@spid AS VARCHAR(10))+ '被' + '進(jìn)程號(hào)SPID：'+ CAST(@blk AS VARCHAR(10)) +'阻塞,其當(dāng)前進(jìn)程執(zhí)行的SQL語(yǔ)法如下'   
  dbcc inputbuffer(@spid)  
  dbcc inputbuffer(@blk)   
  set @index=@index+1   
 end   
 end   
 drop table #temp_who_lock   
 return 0   
end 
GO