sql server2000存储过程sp_droplogin

  /* 打开修改系统表的开关 */

sp_configure 'allow updates', 1
RECONFIGURE WITH OVERRIDE

 存储过程如下：

create procedure sp_droplogin
@loginame sysname
as

 
declare @exec_stmt nvarchar(890)

 
    -- SETUP RUNTIME OPTIONS / DECLARE VARIABLES --
set nocount on
declare @sid varbinary(85)

 
/*Create temp tables before any DML to ensure dynamic*/
    -- CREATE TEMPORARY TABLES FOR LATER USE --
    create table #db_list (dbname sysname collate database_default not null, user_name sysname collate database_default not null)
create table #retval (job_count int not null)

 
    -- CHECK PERMISSIONS --
IF (not is_srvrolemember('securityadmin') = 1)
begin
  dbcc auditevent (104, 2, 0, @loginame, NULL, NULL, NULL)
  raiserror(15247,-1,-1)
  return (1)
end
ELSE
begin
  dbcc auditevent (104, 2, 1, @loginame, NULL, NULL, NULL)
end

 
    -- DISALLOW USER TRANSACTION --
set implicit_transactions off
IF (@@trancount > 0)
begin
raiserror(15002,-1,-1,'sp_droplogin')
return (1)
end

 
    -- VALIDATE LOGIN NAME (SQL LOGIN) --
select @sid = sid from master.dbo.syslogins
        where loginname = @loginame and isntname = 0
if (@sid is null)
begin
raiserror(15007,10,-1,@loginame)
return(1)
end
    -- CANNOT CHANGE SA ROLES --
else if @sid = 0x1 -- 'sa'
    begin
        raiserror(15405, -1 ,-1, @loginame)
        return (1)
    end

 
-- CHECK IF @sid IS CURRENTLY LOGGED IN (ignore cached remote connections) --
if exists(select * from master.dbo.sysprocesses where sid = @sid and status != 'dormant')
begin
raiserror(15434, -1, -1, @loginame)
return(1)
end

 
    -- CHECK IF ANY DATABASES ARE OWNED BY LOGIN --
if exists(select * from master.dbo.sysdatabases where sid = @sid)
begin
raiserror(15174, -1, -1, @loginame)
select 'Databases owned by login:' = name
                from master.dbo.sysdatabases where sid = @sid
return(1)
end

 
-- COLLECT ALL INSTANCES OF USE OF THIS LOGIN IN SYSUSERS --
declare @dbname sysname
declare ms_crs_dbname cursor local keyset for select name from master.dbo.sysdatabases
open ms_crs_dbname
fetch ms_crs_dbname into @dbname
while @@fetch_status >= 0
begin
if (has_dbaccess(@dbname) = 1)
begin
select @exec_stmt = 'use ' + quotename( @dbname , '[') + '
  insert into #db_list (dbname, user_name)
select N'+ quotename( @dbname , '''')+', name from sysusers
where sid = suser_sid(N' + quotename( @loginame , '''') + ') '
exec (@exec_stmt)
end
else
raiserror(15622,-1,-1, @dbname)

 
fetch ms_crs_dbname into @dbname
end
deallocate ms_crs_dbname

 
    -- ERROR IF LOGIN USED AS USER IN ANY DATABASE --
if (select count(*) from #db_list) <> 0
begin
raiserror(15175,-1,-1,@loginame)
select
'Database name:' = dbname,
'User name:' = user_name,
'Mapping type:' = 'user'
from #db_list
order by dbname
return (1)
end

 
    -- VERIFY NO JOBS IN MSDB OWNED BY THIS LOGIN --
if db_id('msdb') is not null
        and object_id('msdb.dbo.sp_check_for_owned_jobs') is not null
begin
        exec msdb.dbo.sp_check_for_owned_jobs @loginame, '#retval'
   if exists (select job_count from #retval where job_count > 0)
   begin
   declare @job_count int
   select @job_count = job_count from #retval
   raiserror(14248, -1, -1, @job_count)
   return (1)
   end
end

 
    -- DELETE THIS LOGIN (ALSO DELETES REMOTE LOGINS MAPPED TO IT) --
delete from master.dbo.sysxlogins where sid = @sid

 
    -- FINALIZATION: SUCCESS/FAILURE MESSAGE
if @@rowcount > 0
begin
-- UPDATE PROTECTION TIMESTAMP FOR MASTER DB, TO INDICATE SYSLOGINS CHANGE --
exec('use master grant all to null')

 
raiserror(15479,-1,-1)
return (0)
end
else
begin
raiserror(15007,10,-1,@loginame)
return (1)
end     -- sp_droplogin

 
GO