查询Sqlserver数据库死锁的一个存储过程

/************************************************************
 * Code formatted by SoftTree SQL Assistant ?v6.1.35
 * Time: 2013/11/12 16:48:00
 ************************************************************/

IF OBJECT_ID('proc_who_lock') IS NOT NULL
BEGIN
    DROP PROC proc_who_lock
END
GO
CREATE PROCEDURE proc_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
 
EXEC proc_who_lock