SQL脚本备件

SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER Proc [dbo].[P_Sohu_ExportProc]  
(  
@Filter nvarchar(200) =null/**//*查询条件  例如 where 1=1 */  
)  
/**//* 
 Create By 王红福 
 备份存储过程，函数，触发器等，可直接运行 
*/  
As  
Begin  
 if @Filter is null   
  Set @Filter = ''  
  
 Declare @Text varchar(8000),  
   @Name nvarchar(100),  
   @XType nvarchar(20)  
 Print 'Use ' + db_name()  
 Declare myCurrsor Cursor For        
  Select a.[Text],b.[name] from syscomments a   
  Left Outer Join Sysobjects b On a.id=b.id + @Filter  
 Open myCurrsor   
 Fetch Next from myCurrsor into @Text,@Name  
    While @@Fetch_Status = 0   --表示读取到数据,相当于 ADO 中 Not Eof                    
    Begin  
   Select @XType=xtype from Sysobjects where [name]=@Name  
   If @XType = 'TR'  
   Begin  
    Print 'if Exists(Select 1 from Sysobjects where xtype=''TR'' and [name]='''+@Name+''')'  
    Print 'Drop Trigger '+@Name+''  
   End  
   Else If @XType = 'FN'  
   Begin  
    Print 'if Exists(Select 1 from Sysobjects where xtype=''FN'' and [name]='''+@Name+''')'  
    Print 'Drop Function '+@Name+''  
   End  
   Else If @XType = 'P'  
   Begin  
    Print 'if Exists(Select 1 from Sysobjects where xtype=''P'' and [name]='''+@Name+''')'  
    Print 'Drop Proc '+@Name+''  
   End  
   Else  
    GoTO NextFetch  
   Print 'exec('''+replace(@Text,'''','''''')+''')'  
   NextFetch:  
    Fetch Next from myCurrsor into @Text,@Name  
    End  
  Close myCurrsor       --关闭游标  
     Deallocate myCurrsor  --删除游标  
End