use [master]

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
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

-- �ҵ��R�r(sh��)����ӛ䛔�(sh��)
select @intCountProperties = Count(*),@intCounter = 1
from #tmp_lock_who

IF @@ERROR<>0 RETURN @@ERROR

if @intCountProperties=0
select '�F(xi��n)�ڛ]�����������i��Ϣ' as message

-- ѭ�h(hu��n)�_ʼ
while @intCounter <= @intCountProperties
begin
-- ȡ��һ�lӛ�
select @spid = spid,@bl = bl
from #tmp_lock_who where id = @intCounter
begin
if @spid =0
select '����(sh��)��(j��)�����i����: '+ CAST(@bl AS VARCHAR(10)) + '�M(j��n)��̖(h��o),���(zh��)�е�SQL�Z������'
else
select '�M(j��n)��̖(h��o)SPID��'+ CAST(@spid AS VARCHAR(10))+ '��' + '�M(j��n)��̖(h��o)SPID��'+ CAST(@bl AS VARCHAR(10)) +'����,�䮔(d��ng)ǰ�M(j��n)�̈�(zh��)�е�SQL�Z������'
DBCC INPUTBUFFER (@bl )
end

-- ѭ�h(hu��n)ָ�����
set @intCounter = @intCounter + 1
end


drop table #tmp_lock_who

return 0
end
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO