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 ‘引起数据库死锁的是: ‘+ CAST(@spid AS VARCHAR(10)) + ‘进程号,其执行的SQL语法如下‘      
   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))+ ‘进程号,其执行的SQL语法如下‘      
   else       
    select ‘进程号SPID：‘+ CAST(@spid AS VARCHAR(10))+ ‘被‘ + ‘进程号SPID：‘+ CAST(@blk AS VARCHAR(10)) +‘阻塞,其当前进程执行的SQL语法如下‘      
   dbcc inputbuffer(@spid)     
   dbcc inputbuffer(@blk)       
   set @index=@index+1       
  end      
 end      
 drop table #temp_who_lock       
 return 0       
end            
  
  
GO