/*--備份數據庫,并按日期生成備份目錄

--鄒建 2003.10--*/

/*--調用示例

--備份當前數據庫
	exec p_backupdb 

--*/

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_backupdb]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_backupdb]
GO

create proc p_backupdb
@dbname sysname='',			--要備份的數據庫名稱,不指定則備份當前數據庫
@bkfname nvarchar(260)='',	--備份文件名,文件名中可以用\DBNAME\代表數據庫名,\DATE\代表日期,\TIME\代表時間
@bkpath nvarchar(260)='c:\'	--備份文件的存放目錄,在該目錄下創建每天備份的目錄
as
	declare @sql varchar(8000)
	if isnull(@dbname,'')='' set @dbname=db_name()
	if right(@bkpath,1)<>'\' set @bkpath=@bkpath+'\'
	set @bkpath=@bkpath+convert(varchar,getdate(),112)+'\'
	
	--創建目錄
	set @sql='md '+@bkpath
	exec master..xp_cmdshell @sql,no_output
	
	--備份處理
	if isnull(@bkfname,'')='' set @bkfname='\DBNAME\_\DATE\.BAK'
	set @bkfname=replace(replace(replace(@bkfname,'\DBNAME\',@dbname)
		,'\DATE\',convert(varchar,getdate(),112))
		,'\TIME\',replace(convert(varchar,getdate(),108),':',''))
	set @sql='backup database '+@dbname
		+' to disk='''+@bkpath+@bkfname+''''
	exec(@sql)
go