mysql备份的怎么还原数据库_mysql怎么进行数据库备份和还原,以及自动备份

最新推荐文章于 2024-09-24 14:19:22 发布

吃月亮的人

最新推荐文章于 2024-09-24 14:19:22 发布

阅读量81

点赞数

文章标签： mysql备份的怎么还原数据库

本文链接：https://blog.csdn.net/weixin_42302763/article/details/113136899

版权

要加分哦

我可是把整个代码都贴出来了

用着可好用我正用的

有两个

一个简单的下面是代码

备份原数据库路径:

备份目标数据库路径:

Function CopyFiles(TempSource,TempEnd)

Dim FSO

Set FSO = Server.CreateObject("Scripting.FileSystemObject")

IF FSO.FileExists(TempEnd) then

Response.Write "目标备份文件 " & TempEnd & " 已存在，请先删除!"

Set FSO=Nothing

Exit Function

End IF

IF FSO.FileExists(TempSource) Then

Else

Response.Write "要复制的源数据库文件 "&TempSource&" 不存在!"

Set FSO=Nothing

Exit Function

End If

FSO.CopyFile TempSource,TempEnd

Response.Write "已经成功复制文件 "&TempSource&" 到 "&TempEnd&""

Set FSO = Nothing

End Function

if request("action")="bf" then

ff=server.MapPath(request("text1"))

aa=server.MapPath(request("text2"))

call CopyFiles(ff,aa)

end if

**************************************我是分割线************************

还有复杂的

数据库备份系统

::数据库备份::

数据路径:
备份数据库路径:
Function CopyFiles(TempSource,TempEnd) Dim FSO Set FSO = Server.CreateObject("Scripting.FileSystemObject") IF FSO.FileExists(TempEnd) then Response.Write "目标备份文件 " & TempEnd & " 已存在，请先删除!" Set FSO=Nothing Exit Function End IF IF FSO.FileExists(TempSource) Then Else Response.Write "要复制的源数据库文件 "&TempSource&" 不存在!" Set FSO=Nothing Exit Function End If FSO.CopyFile TempSource,TempEnd Response.Write "已经成功复制文件 "&TempSource&" 到 "&TempEnd&"" Set FSO = Nothing End Function if request("action")="bf" then ff=server.MapPath(request("text1")) aa=server.MapPath(request("text2")) ss=split(request("text2"),"/") CreateFolder(ss(0)) call CopyFiles(ff,aa) end if Sub CreateFolder(strFolder) '首选判断要建立的文件夹是否已经存在 strTestFolder = Server.Mappath(strFolder) Set objFSO = CreateObject("Scripting.FileSystemObject") ' 检查文件夹是否存在 If objFSO.FolderExists(strTestFolder) Then response.write "该文件夹已经存在！" Else Dim strTestFolder, objFSO strTestFolder = Server.Mappath(strFolder) Set objFSO = CreateObject("Scripting.FileSystemObject") ' 建立文件夹 objFSO.CreateFolder(strTestFolder) Set objFSO = Nothing End If End Sub %>