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