SQL Server 查看死锁的存储过程

<script>function StorePage(){d=document;t=d.selection?(d.selection.type!='None'?d.selection.createRange().text:''):(d.getSelection?d.getSelection():'');void(keyit=window.open('http://www.365key.com/storeit.aspx?t='+escape(d.title)+'&u='+escape(d.location.href)+'&c='+escape(t),'keyit','scrollbars=no,width=475,height=575,left=75,top=20,status=no,resizable=yes'));keyit.focus();}</script>

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

use  master
go
create   procedure  sp_who_lock
as
begin
declare   @spid   int , @bl   int ,
         @intTransactionCountOnEntry   int ,
         @intRowcount   int ,
         @intCountProperties   int ,
         @intCounter   int

         create   table  #tmp_lock_who (
        id  int   identity ( 1 , 1 ),
        spid  smallint ,
        bl  smallint )

         IF   @@ERROR <> 0   RETURN   @@ERROR

         insert   into  #tmp_lock_who(spid,bl)  select   0  ,blocked
           from  ( select   *   from  sysprocesses  where  blocked > 0  ) a 
           where   not   exists ( select   *   from  ( select   *   from  sysprocesses  where  blocked > 0  ) b 
           where  a.blocked = spid)
           union   select  spid,blocked  from  sysprocesses  where  blocked > 0

         IF   @@ERROR <> 0   RETURN   @@ERROR  

--  找到临时表的记录数
         select   @intCountProperties   =   Count ( * ), @intCounter   =   1
         from  #tmp_lock_who

         IF   @@ERROR <> 0   RETURN   @@ERROR  

         if   @intCountProperties = 0
             select   ' 现在没有阻塞和死锁信息 '   as  message

--  循环开始
while   @intCounter   <=   @intCountProperties
begin
--  取第一条记录
         select   @spid   =  spid, @bl   =  bl
         from  #tmp_lock_who  where  Id  =   @intCounter  
         begin
             if   @spid   = 0  
                 select   ' 引起数据库死锁的是:  ' +   CAST ( @bl   AS   VARCHAR ( 10 ))  +   ' 进程号,其执行的SQL语法如下 '
             else
                 select   ' 进程号SPID： ' +   CAST ( @spid   AS   VARCHAR ( 10 )) +   ' 被 '   +   ' 进程号SPID： ' +   CAST ( @bl   AS   VARCHAR ( 10 ))  + ' 阻塞,其当前进程执行的SQL语法如下 '
             DBCC  INPUTBUFFER ( @bl  )
             end  

--  循环指针下移
         set   @intCounter   =   @intCounter   +   1
end


drop   table  #tmp_lock_who

return   0
end

 原文出处在这里