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   
  /***************************************************************************   
  //     建立   :   fengyu     郵件   :   [email protected]     日期   :2004-04-30   
  //     修改   :   從http://www.csdn.net/develop/Read_Article.asp?id=26566學習到並改寫       
  //     說明   :   檢視資料庫裡阻塞和死鎖情況   
  ***************************************************************************/   
  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   


  摘自:http://bbs.csdn.net/topics/280011393