win系统下备份逻辑oracle及上传ftp脚本

@echo off
@echo =========================================================================
@echo Oracle 11g 数据库的自动导出备份脚本(windows环境)。
@echo 说明:启动备份时,需要配置以下变量
@echo 1、BACKUP_DIR 指定要备份到哪个中间目录,压缩完成后将被移动到BACKUP_WAREHOUSE目录下
@echo 3、ORACLE_USERNAME 指定备份所用的Oracle用户名
@echo 4、ORACLE_PASSWORD 指定备份所用的Oracle密码
@echo 5、ORACLE_DB 指定备份所用的Oracle服务名
@echo 7、RAR_CMD 指定RAR命令行压缩工具所在目录
@echo =========================================================
set BACKUP_DIR=D:\zjwmsbak\dump
set ORACLE_USERNAME= user    用户
set ORACLE_PASSWORD= password    密码
set ORACLE_DB= SID    (连接符,一般用实例名)
set RAR_CMD="C:\Program Files (x86)\WinRAR\WinRAR.exe"(压缩软件目录)
@for /f "tokens=1,2" %%a in ('date/t') do set TODAY=%%a
for /f "tokens=1,2,3" %%a in ('echo %date:~-1%') do set WEEK=%%a
if %WEEK%==一 (set WEEK=1)
if %WEEK%==二 (set WEEK=2)
if %WEEK%==三 (set WEEK=3)
if %WEEK%==四 (set WEEK=4)
if %WEEK%==五 (set WEEK=5)
if %WEEK%==六 (set WEEK=6)
if %WEEK%==日 (set WEEK=7)
echo,
set BACK_NAME=%ORACLE_DB%_%ORACLE_USERNAME%_WEEK%WEEK%
set BACK_FULL_NAME=%BACKUP_DIR%\%BACK_NAME%        (设置有日期格式的文件名,方便轮询覆盖,节约存储资源)
REM 将操作记入批处理日志 %BACKUP_DIR%\%BACK_NAME%_bat.log
echo ==================备份103服务器 ITCQB帐号下的数据================= >>%BACKUP_DIR%\%BACK_NAME%_bat.log
echo 备份开始...... >>%BACK_FULL_NAME%_bat.log
echo 当前的时间是: %DATE% %time% >>%BACKUP_DIR%\%BACK_NAME%_bat.log
D:\app\Administrator\product\11.2.0\dbhome_1\BIN\expdp %ORACLE_USERNAME%/%ORACLE_PASSWORD% file="%BACK_NAME%.dmp" full=y content=ALL log="%BACK_NAME%_exp.log" DIRECTORY=dump_bak compression=ALL
%RAR_CMD% a -df "%BACKUP_DIR%\%BACK_NAME%_logic.rar" "%BACKUP_DIR%\%BACK_NAME%.dmp"
echo 压缩并删除原有dmp文件结束! >>%BACKUP_DIR%\%BACK_NAME%_bat.log
echo 当前的时间是: %DATE% %time% >>%BACKUP_DIR%\%BACK_NAME%_bat.log
echo 开始移动文件...... >>%BACKUP_DIR%\%BACK_NAME%_bat.log
echo 当前的时间是: %DATE% %time% >>%BACKUP_DIR%\%BACK_NAME%_bat.log
REM net send %userdomain% "数据库逻辑备份已于:%DATE% %time% 完成!"
echo .
@Echo Off
Echo open $ftp_IP>%BACKUP_DIR%\ftp.up
Echo $ftp_user>>%BACKUP_DIR%\ftp.up
Echo $ftp_password>>%BACKUP_DIR%\ftp.up
Echo Cd .\ >>%BACKUP_DIR%\ftp.up
Echo bin>>%BACKUP_DIR%\ftp.up
Echo put "%BACKUP_DIR%\%BACK_NAME%_logic.rar">>%BACKUP_DIR%\ftp.up
Echo bye>>%BACKUP_DIR%\ftp.up
FTP -s:%BACKUP_DIR%\ftp.up



  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
Oracle P/L SQL实现FTP上传、下载功能,以下是此过程包的头部,包体经常打包处理plb,感兴趣用户可以下载下来。 --Oracle上的FTP功能 Create or Replace Package UTL_FTP AUTHID CURRENT_USER as Type Connection is Record( Connection UTL_TCP.Connection, AccountInfo VarChar2(1000), TransferMethod Char(1), --A: ASCII, E: EBCDIC, I: IMAGE TransferOption Char(1), LocalDirectory VarChar2(30), LastReply VarChar2(32767 ) ); Type File_List is Table of VarChar2(32767) Index by Binary_Integer; is_FTPStatus VarChar2(800) := 'disconnect'; is_FTPPort Constant Integer := 21; is_TransferMethod Constant VarChar2(10) := 'ASCII'; ii_OutputLog Constant Integer := 1; ii_RollBufferLog Constant Integer := 2; ii_ClientInfoLog Constant Integer := 4; -- Per RFC 959, if account info ( ACCT ) is requested Then a 332 code -- should be Returned from the PASS command instead of a Positive Completion ii_FTPRequestAcct Constant Integer := 332; gb_Verbose Boolean := False; --是否记录冗长、累赘的日志 gi_LogOptions Integer := ii_OutputLog; gs_LogText VarChar2(32767) := Null; Procedure p_SetVerbose( ab_Verbose in Boolean ); Procedure p_SetLogOptions( ai_LogOptions in Integer ); Procedure p_ClearLog; --登录到远程FTP服务器 Function f_Login( as_RemoteHost in VarChar2, as_Username in VarChar2, as_Password in VarChar2, as_LocalDirectory in VarChar2 Default Null, as_RemoteDir in VarChar2 Default Null, as_TransferMethod in VarChar2 Default is_TransferMethod, ai_Timeout in Integer Default Null, ai_FTPPort in Integer Default is_FTPPort, as_AccountInfo in VarChar2 Default Null )Return Connection; Procedure p_Logout( ac_Connection in out Nocopy Connection ); Procedure p_SendFTPCmd( ac_Connection in out Nocopy Connection, as_Command in VarChar2, as_Argument in VarChar2 Default Null, as_AccountInfo in VarChar2 Default Null ); Procedure p_ReadReply( ac_Connection in out Nocopy Connection ); Procedure p_Rename( ac_Connection in out Nocopy Connection, as_OldFilename in VarChar2, as_NewFilename in VarChar2 ); Procedure p_DeleteFile( ac_Connection in out Nocopy Connection, as_Filename in VarChar2 ); Function f_isDirectory( ac_Connection in out Nocopy Connection, as_Directory in VarChar2, ab_CDToo in Boolean Default True )Return Boolean; Procedure p_CreateDirectory( ac_Connection in out Nocopy Connection, as_Directory in VarChar2 ); Procedure p_DeleteDirectory( ac_Connection in out Nocopy Connection, as_Directory in VarChar2 ); Procedure p_SetTransferMethod( ac_Connection in out Nocopy Connection, as_TransferMethod in VarChar2, as_Option in VarChar2 Default Null ); Procedure p_RemoteCD( ac_Connection in out Nocopy Connection, as_Directory in VarChar2, ab_CreateDir in Boolean Default True ); Procedure p_RemoteCDup( ac_Connection in out Nocopy Connection ); Function f_RemotePWD( ac_Connection in out Nocopy Connection )Return VarChar2; Procedure p_PutClob( ac_Connection in out Nocopy Connection, ac_LocalClob in Clob, as_RemoteFilename in VarChar2, as_TransferMethod in VarChar2 Default Null ); Function f_PutClob( ac_Connection in out Nocopy Connection, ac_LocalClob in Clob, as_RemoteFilename in VarChar2, as_TransferMethod in VarChar2 Default Null )Return VarChar2; Procedure p_PutBlob( ac_Connection in out Nocopy Connection, ab_LocalBlob in BLOB, as_RemoteFilename in VarChar2, ab_ForceBinary in Boolean Default True --强制为二进制 ); Procedure p_GetClob( ac_Connection in out Nocopy Connection, as_RemoteFilename in VarChar2, ac_LocalClob in out Nocopy Clob, as_TransferMethod in VarChar2 Default Null ); Function f_GetClob( ac_Connection in out Nocopy Connection, as_RemoteFilename in VarChar2, as_TransferMethod in VarChar2 Default Null )Return Clob; Procedure p_GetBlob( ac_Connection in out Nocopy Connection, as_RemoteFilename in VarChar2, ab_LocalBlob in out Nocopy BLOB, ab_ForceBinary in Boolean Default True ); Function f_GetBlob( ac_Connection in out Nocopy Connection, as_RemoteFilename in VarChar2, ab_ForceBinary in Boolean Default True )Return BLOB; Procedure p_PutFile( ac_Connection in out Nocopy Connection, ai_LocalFilename in UTL_File.File_Type, as_RemoteFilename in VarChar2, as_TransferMethod in VarChar2 Default Null ); Procedure p_PutFile( ac_Connection in out Nocopy Connection, as_LocalDirectory in VarChar2, as_LocalFilename in VarChar2, as_RemoteFilename in VarChar2, as_TransferMethod in VarChar2 Default Null ); Function f_PutFile( ac_Connection in out Nocopy Connection, as_LocalDirectory in VarChar2, as_LocalFilename in VarChar2, as_RemoteFilename in VarChar2, as_TransferMethod in VarChar2 Default Null )Return VarChar2; Procedure p_PutFile( ac_Connection in out Nocopy Connection, as_LocalDirectory in VarChar2, as_LocalFilename in VarChar2 ); Procedure p_GetFile( ac_Connection in out Nocopy Connection, as_RemoteFilename in VarChar2, as_LocalDirectory in VarChar2, as_LocalFilename in VarChar2, as_TransferMethod in VarChar2 Default Null ); Procedure p_GetFile( ac_Connection in out Nocopy Connection, as_RemoteFilename in VarChar2, as_TransferMethod in VarChar2 Default Null ); Procedure p_GetFile( ac_Connection in out Nocopy Connection, as_RemoteFilename in VarChar2, ai_LocalFilename in out Nocopy UTL_File.File_Type, as_TransferMethod in VarChar2 Default Null ); Procedure p_GetFileList( ac_Connection in out Nocopy Connection, afl_List out File_List, as_RemotePath in VarChar2 Default Null, ab_FilenameOnly in Boolean Default True, as_FilenamePrefix in VarChar2 Default Null, as_FilenameExt in VarChar2 Default Null, as_TransferMethod in VarChar2 Default is_TransferMethod ); Function f_GetFileList( ac_Connection in out Nocopy Connection, as_RemotePath in VarChar2 Default Null, ab_FilenameOnly in Boolean Default True, as_FilenamePrefix in VarChar2 Default Null, as_FilenameExt in VarChar2 Default Null, as_TransferMethod in VarChar2 Default is_TransferMethod )Return File_List; --根据FTP参数或系统事先设定好的IP登录到FTP服务器 --Select UTL_FTP.f_ConnectFTP() From dual; Function f_ConnectFTP( as_RemoteSubDir in VarChar2 Default Null, --Remote Subdirectory as_RemoteFileWildcard in VarChar2 Default Null, --Remote File Wildcard --删除之前生成的文件 如I02-UB*.xls as_FTPServer in VarChar2, --FTP Server as_FTPUserID in VarChar2, --FTP User ID as_FTPPasswd in VarChar2 --FTP Password )Return UTL_FTP.Connection; END UTL_FTP; /
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值