How to find the active SQL connections and kill them

Find Active connections in sql server

select
    db_name(dbid) as [Database Name],
    count(dbid) as [No Of Connections],
    loginame as [Login Name]
from
    sys.sysprocesses
where
    dbid > 0
group by
    dbid, loginame


How to kill a SQL connection

set nocount on
declare @databasename varchar(100)
declare @query varchar(max)
set @query = ''

set @databasename = 'xxx'
if db_id(@databasename) < 4
begin
print 'system database connection cannot be killeed'
return
end

select @query=coalesce(@query,',' )+'kill '+convert(varchar, spid)+ '; '
from master..sysprocesses where dbid=db_id(@databasename)

if len(@query) > 0
begin
print @query
exec(@query)
end

Thanks