use   master
go

create   proc   p_killspid
@dbname   sysname --要关闭进程的数据库名
as    
declare   @s   nvarchar(1000)
declare   tb   cursor   local   for
select   s= 'kill   '+cast(spid   as   varchar)
from   master..sysprocesses  
where   dbid=db_id(@dbname)

open   tb  
fetch   next   from   tb   into   @s
while   @@fetch_status=0
begin
exec(@s)
fetch   next   from   tb   into   @s
end
close   tb
deallocate   tb
go

--用法    
exec   p_killspid     'dbname'