@echo off
echo ********====================================================== 
echo ********====================================================== 
echo ++++++++ 批处理功能： 远程数据FTP备份到本地
echo ++++++++ Date: %Date:~0,4%-%Date:~5,2%-%Date:~8,2% 
echo ++++++++ Author: zc_0101     
echo ++++++++ Email: zc_0101@163.com
echo ++++++++ QQ： 275374095
echo ++++++++ Mark:
echo ++++++++  请严格按照参数说明定义参数，输入参数
echo ++++++++  请尽量常规化，不要带特殊字符包括空格
echo ++++++++  如果文件已存在则跳过，不支持短点续传
echo ++++++++  不检测备份数据完整性，用户可自行修改
echo ++++++++ PS: 转载请注明出处(^_^),谢谢！
echo ********====================================================== 
echo ********====================================================== 
pause

Rem 远程IP(请保证开启Server_U)
Set Remote_IP=103.111.124.123

Rem 远程登录用户名(如果有批处理符号，请进行转义)
Set Remote_User=test

Rem 远程登录密码(如果有批处理符号，请进行转义)
Set Remote_Pwd=FkhVBweos^!Sd4al%%

Rem 远程操作目录,如果是根目录，请填写".."(无双引号),否则直接填写目录名,如Databaseback
set Remote_Path=Databaseback 

Rem 远程要下载的目录列表(注意:仅下载这些目录下的文件，不会下载子目录下的文件)，请用逗号隔开,如果没有子目录（确保当前目录下有文件可下载），请什么也不要填写(包括空格);另：文件夹请不要有空格
Set Remote_Directory=DB_Hxxl,DB_OA,master,model,msdb 

Rem 本地备份目录，请填写一个已存在的目录(本程序将会自动在该目录下创建和远程服务器上同样的子目录,请勿带"\"斜杠)
Set Local_Path=D:\DBback

Rem 操作日志和临时文件存放路径(请务必带上"\"斜杠)
Set Log_Path=D:\

Rem 取得当前日期，作为日志文件名称,本例为日志存放目录加当日日期
set today="%Log_Path%%Date:~0,4%-%Date:~5,2%-%Date:~8,2%-%Time:~0,2%%Time:~3,2%%Time:~6,2%.txt"
echo 正在对您输入的参数进行基本检测…………
echo 正在检测输入参数…………>%today%
if "%Remote_IP%" EQU "" (
 echo 远程IP不能为空！请返回为Remote_IP赋值
 echo 远程IP为空，程序退出。>>%today%
 pause
 exit
)
if "%Remote_User%" EQU "" (
 echo 远程登录名不能为空！请返回为Remote_User赋值
 echo 远程登录名为空，程序退出。>>%today%
 pause
 exit
)
if "%Remote_Pwd%" EQU "" (
 echo 远程登录密码不能为空！请返回为Remote_Pwd赋值
 echo 远程登录密码为空，程序退出。>>%today%
 pause
 exit
)
if "%Remote_Path%" EQU "" (
 echo 远程操作目录不能为空！请返回为Remote_Path赋值,如果是对根目录操作，请输入^(点点^)，即".."
 echo 远程操作目录为空，程序退出。>>%today%
 pause
 exit
)
if "%Remote_Directory%" EQU " " (
 echo 远程子目录有误！您是否为Remote_Directory误赋值为空格了？如果没有子目录请不要赋值，包括空格。
 echo 远程子目录有误，程序退出。>>%today%
 pause
 exit
)
if "%Local_Path%\" EQU "" (
 echo 本地操作目录不能为空！请返回为Local_Path赋值 
 echo 本地操作目录为空，程序退出。>>%today%
 pause
 exit
)
if "%Log_Path%" EQU "" (
 echo 本地日志存放目录不能为空！请返回为Log_Path赋值 
 echo 本地日志存放目录为空，程序退出。>>%today%
 pause
 exit
)
echo 参数基本检测通过，准备执行数据库备份
echo 参数基本检测通过，数据库备份现在开始>>%today%
echo 今天是%Date%,时间是：%Time:~0,2%:%Time:~3,2%:%Time:~6,2%,正在执行数据库备份…………
echo 今天是%Date%,时间是：%Time:~0,2%:%Time:~3,2%:%Time:~6,2%,正在执行数据库备份…………>>%today%

echo 正在创建生成文件列表的ftp文件，请稍候………
echo 正在创建生成文件列表的ftp文件，请稍候…………>>%today%
ping -n 3 127.1>nul

echo 正在将远程登录用户名写入ftp文件…………>>%today%
echo %Remote_User%>%Log_Path%command.txt
echo 正在将远程登录密码写入ftp文件…………>>%today%
echo %Remote_Pwd%>>%Log_Path%command.txt
echo 正在将下载方式写入ftp文件…………>>%today%
echo type Binary>>%Log_Path%command.txt
echo 正在判断远程父目录是否为根目录 …………>>%today%
if "%Remote_Path%" NEQ ".." (
 if "%Remote_Path%" NEQ "" (
  echo 正在将进入远程目录%Remote_Path%的语句写入ftp文件…………>>%today%
  echo cd %Remote_Path%>>%Log_Path%command.txt
 )
)
echo 正在判断远程子目录…………>>%today%
if "%Remote_Directory%" NEQ "" (
 echo 正在将子目录列表的生成语句写入ftp文件…………>>%today%
 for %%i in (%Remote_Directory%) do (
   echo 正在将子目录列表%%i的生成语句写入ftp文件…………>>%today%
   echo mls %%i %Log_Path%%%i_temp.txt>>%Log_Path%command.txt
 )
) else (
 echo 由于没有填写子目录，则将根目录下文件列表的生成语句写入ftp文件…………>>%today%
 echo mls - %Log_Path%FileList_temp.txt>>%Log_Path%command.txt
 
) 
echo close>>%Log_Path%command.txt 
echo quit>>%Log_Path%command.txt
echo 正在对command.txt文件进行判断
if not exist "%Log_Path%command.txt\" (
 if exist "%Log_Path%command.txt" (
  echo %Log_Path%command.txt文件创建成功
  echo %Log_Path%command.txt文件创建成功>>%today%
 ) else (
  echo %Log_Path%command.txt文件创建失败，程序将退出。
  echo %Log_Path%command.txt文件创建失败，程序退出>>%today%
  pause
  echo exit
 )
) else (
 echo 您输入的参数存放日志路径中有竟然有一个名为Command.txt的文件夹，请手动删除后，重新运行程序。
 echo 您输入的参数存放日志路径中竟然有有一个名为Command.txt的文件夹,程序退出。>>%today%
 pause
 exit
)

echo 正在执行服务器目录文件列表创建,请稍候…………
echo 正在执行服务器目录文件列表创建,请稍候…………>>%today%
ping -n 3 127.1>nul
ftp -i -s:%Log_Path%command.txt %Remote_IP%
echo 正在检查已创建的服务器目录文件列表，请稍候…………
echo 正在检查已创建的服务器目录文件列表，请稍候…………>>%today%
if "%Remote_Directory%" NEQ "" (
 for %%i in (%Remote_Directory%) do (
  if not exist "%Log_Path%%%i.txt\" (
   if exist "%Log_Path%\%%i_temp.txt" (
    mshta "javascript:var fso=new ActiveXObject('Scripting.FileSystemObject');fso.OpenTextFile('%Log_Path%\temp1.txt',2,true).Write(fso.OpenTextFile('%Log_Path%\%%i_temp.txt').ReadAll().replace(/\r\n/g, '\n\n'));close()"
    mshta "javascript:var fso=new ActiveXObject('Scripting.FileSystemObject');fso.OpenTextFile('%Log_Path%\temp2.txt',2,true).Write(fso.OpenTextFile('%Log_Path%\temp1.txt').ReadAll().replace(/\r/g, ''));close()"
    mshta "javascript:var fso=new ActiveXObject('Scripting.FileSystemObject');fso.OpenTextFile('%Log_Path%\%%i.txt',2,true).Write(fso.OpenTextFile('%Log_Path%\temp2.txt').ReadAll().replace(/\n\n/g, '\r\n'));close()"
   ) 
   if exist "%Log_Path%%%i.txt" (
    echo %Log_Path%%%i.txt文件创建成功！
    echo %Log_Path%%%i.txt文件创建成功！>>%today%
   ) else (
    echo 对不起，%Log_Path%%%i.txt文件创建失败！程序将退出！
    echo %Log_Path%%%i.txt文件创建失败！程序终止>>%today%
    pause
    exit   
   )
  ) else (
   echo 您输入的参数存放日志路径%Log_Path%中有竟然有一个名为%%i.txt的文件夹，请手动删除后，重新运行程序。
   echo 您输入的参数存放日志路径%Log_Path%中竟然有有一个名为%%i.txt的文件夹,程序退出。>>%today%
   pause
   exit
  )
 )
) else (
 if not exist "%Log_Path%FileList.txt\" (
  if exist "%Log_Path%\FileList_temp.txt" (
   mshta "javascript:var fso=new ActiveXObject('Scripting.FileSystemObject');fso.OpenTextFile('%Log_Path%\temp1.txt',2,true).Write(fso.OpenTextFile('%Log_Path%\FileList_temp.txt').ReadAll().replace(/\r\n/g, '\n\n'));close()"
   mshta "javascript:var fso=new ActiveXObject('Scripting.FileSystemObject');fso.OpenTextFile('%Log_Path%\temp2.txt',2,true).Write(fso.OpenTextFile('%Log_Path%\temp1.txt').ReadAll().replace(/\r/g, ''));close()"
   mshta "javascript:var fso=new ActiveXObject('Scripting.FileSystemObject');fso.OpenTextFile('%Log_Path%\FileList.txt',2,true).Write(fso.OpenTextFile('%Log_Path%\temp2.txt').ReadAll().replace(/\n\n/g, '\r\n'));close()"
  )
  if exist "%Log_Path%FileList.txt" (
  echo %Log_Path%FileList.txt文件创建成功！
   echo %Log_Path%FileList.txt文件创建成功！>>%today%
  ) else (
   echo 对不起，%Log_Path%FileList.txt文件创建失败！
   echo %Log_Path%FileList.txt文件创建失败！程序终止>>%today%
   pause
   exit
  )
 ) else (
  echo 您输入的参数存放日志路径%Log_Path%中有竟然有一个名为FileList.txt的文件夹，请手动删除后，重新运行程序。
  echo 您输入的参数存放日志路径%Log_Path%中竟然有有一个名为FileList.txt的文件夹,程序退出。>>%today%
  pause
  exit
 )
)

echo 程序开始下载文件，请耐心等待…………
echo 程序开始下载文件，请耐心等待…………>>%today%
if "%Remote_Directory%" NEQ "" (
 for %%i in (%Remote_Directory%) do (
  echo 正在创建目录%Local_Path%\%%i…………
  echo 创建目录%Local_Path%\%%i…………>>%today%
  md %Local_Path%\%%i
  echo 正在下载%Remote_Path%\%%i文件夹备份,请稍候…………
  echo 正在下载%Remote_Path%\%%i文件夹备份,请稍候…………>>%today%
  ping -n 3 127.1>nul
  for /f "delims=. tokens=1,2" %%j in (%Log_Path%%%i.txt) do (
   if not exist "%Local_Path%\%%i\%%j.%%k\" (
    if not exist "%Local_Path%\%%i\%%j.%%k" (
     echo 正在创建下载文件%%j.%%k的脚本,请稍候…………
     echo 正在创建下载文件%%j.%%k的脚本,请稍候…………>>%today%
     echo %Remote_User%>%Log_Path%GetFiles.txt
     echo %Remote_Pwd%>>%Log_Path%GetFiles.txt
     echo type Binary>>%Log_Path%GetFiles.txt
     if "%Remote_Path%" NEQ "" (
      if "%Remote_Path%" NEQ ".." ( 
       echo cd %Remote_Path%>>%Log_Path%GetFiles.txt
      )
     )
     echo cd %%i>>%Log_Path%GetFiles.txt
     echo lcd %Local_Path%\%%i>>%Log_Path%GetFiles.txt
     echo mget "%%j.%%k">>%Log_Path%GetFiles.txt
     echo close>>%Log_Path%GetFiles.txt
     echo quit>>%Log_Path%GetFiles.txt
     ftp -i -s:%Log_Path%GetFiles.txt %Remote_IP%
     echo 正在检查文件%Local_Path%\%%i\%%j.%%k，请稍候……
     echo 正在检查文件%Local_Path%\%%i\%%j.%%k，请稍候……>>%today%
     if exist "%Local_Path%\%%i\%%j.%%k\" (
      echo ————下载%Local_Path%\%%i\%%j.%%k成功！
      echo ————下载%Local_Path%\%%i\%%j.%%k成功！>>%today%
     ) else (
      echo ——由于未知原因，下载%Local_Path%\%%i\%%j.%%k失败！
      echo ——由于未知原因，下载%Local_Path%\%%i\%%j.%%k失败！>>%today%
     )
    ) else (
     echo %Local_Path%\%%i\%%j.%%k已存在，正在跳过————
     echo %Local_Path%\%%i\%%j.%%k已存在，正在跳过————>>%today%
    )
   ) else (
    echo 您输入的参数存放备份路径%Local_Path%\%%i中有竟然有一个名为%%j.%%k的文件夹，请手动删除后，重新运行程序。
    echo 您输入的参数存放备份路径%Local_Path%\%%i中竟然有有一个名为%%j.%%k的文件夹,程序退出。>>%today%
    pause
    exit
   )
  )
 )
) else (
 echo 由于没有指定服务器子目录，程序将把服务器父目录下的文件备份到您指定的本地目录中…………
 echo 由于没有指定服务器子目录，程序将把服务器父目录下的文件备份到您指定的本地目录中…………>>%today%
 for /f "delims=. tokens=1,2" %%j in (%Log_Path%FileList.txt) do (
  if not exist "%Local_Path%\%%j.%%k\" (
   if not exist "%Local_Path%\%%j.%%k" (
    echo 正在创建下载文件%%j.%%k的脚本,请稍候…………
    echo 正在创建下载文件%%j.%%k的脚本,请稍候…………>>%today%
    echo %Remote_User%>%Log_Path%GetFiles.txt
    echo %Remote_Pwd%>>%Log_Path%GetFiles.txt
    echo type Binary>>%Log_Path%GetFiles.txt
    if "%Remote_Path%" NEQ "" (
     if "%Remote_Path%" NEQ ".." ( 
      echo cd %Remote_Path%>>%Log_Path%GetFiles.txt
     )
    )
    echo lcd %Local_Path%>>%Log_Path%GetFiles.txt
    echo mget "%%j.%%k">>%Log_Path%GetFiles.txt
    echo close>>%Log_Path%GetFiles.txt
    echo quit>>%Log_Path%GetFiles.txt
    ftp -i -s:%Log_Path%GetFiles.txt %Remote_IP%
    echo 正在检查文件%Local_Path%\%%j.%%k，请稍候……
    echo 正在检查文件%Local_Path%\%%j.%%k，请稍候……>>%today%
    if exist "%Local_Path%\%%j.%%k" (
     echo ————下载%Local_Path%\%%j.%%k成功！
     echo ————下载%Local_Path%\%%j.%%k成功！>>%today%
    ) else (
     echo ——由于未知原因，下载%Local_Path%\%%j.%%k失败！
     echo ——由于未知原因，下载%Local_Path%\%%j.%%k失败！>>%today%
    )
   ) else (
    echo %Local_Path%\%%j.%%k已存在，正在跳过————
    echo %Local_Path%\%%j.%%k已存在，正在跳过————>>%today%
   )
  ) else (
   echo 您输入的参数存放备份路径%Local_Path%\中有竟然有一个名为%%j.%%k的文件夹，请手动删除后，重新运行程序。
   echo 您输入的参数存放备份路径%Local_Path%\中竟然有有一个名为%%j.%%k的文件夹,程序退出。>>%today%
   pause
   exit
  )
 )
)

echo 程序正在清除临时文件，请稍候…………
set temp_str=command.txt,temp1.txt,temp2.txt,GetFiles.txt
for %%i in (%temp_str%) do (
 echo 程序将删除%Log_Path%%%i文件…………>>%today%
 del %Log_Path%%%i
 if exist "%Log_Path%%%i" (
  echo %Log_Path%%%i文件删除失败，程序继续运行
  echo %Log_Path%%%i文件删除失败，程序继续运行>>%today%
 ) else (
  echo %Log_Path%%%i文件删除成功
  echo %Log_Path%%%i文件删除成功>>%today%
 )
)

echo 程序正在删除临时文件列表文件，请稍候…………
echo 程序正在删除临时文件列表文件，请稍候…………>>%today%
if "%Remote_Directory%" NEQ "" (
 for %%i in (%Remote_Directory%) do (
  Del %Log_Path%%%i.txt,%Log_Path%%%i_temp.txt
  if exist "%Log_Path%%%i.txt" (
   echo %Log_Path%%%i.txt文件删除失败，程序继续运行
   echo %Log_Path%%%i.txt文件删除失败，程序继续运行>>%today%
  ) else (
   echo %Log_Path%%%i.txt文件删除成功 
   echo %Log_Path%%%i.txt文件删除成功 >>%today%
  )
 )
) else (
 del %Log_Path%FileList.txt,%Log_Path%FileList_temp.txt
 if exist "%Log_Path%FileList.txt" (
  echo %Log_Path%FileList.txt文件删除失败，程序继续运行
  echo %Log_Path%FileList.txt文件删除失败，程序继续运行>>%today%
 ) else (
  echo %Log_Path%FileList.txt文件删除成功
  echo %Log_Path%FileList.txt文件删除成功>>%today%
 )
)
echo 恭喜您，本次备份工作已经圆满完成！详情请查看%today%日志文件！
echo 恭喜您，本次备份工作已经圆满完成！>>%today%
echo 数据已被备份到%Local_Path%\目录中。>>%today%
echo 完成时间：%Time:~0,2%:%Time:~3,2%:%Time:~6,2%>>%today%
pause
exit