asp在线备份数据库、恢复、删除数据库

asp在线备份数据库、恢复、删除数据库

ASP核心代码,如果有兴趣,可下载代码演示包在本地预览,预览时注意:请给DB.mdb这个数据库文件everyone写入权限,否则恢复时会报错。

'创建一个弹出窗口并且跳转到指定的页面,然后结束语句
 sub sussLoctionHref(info,url)
 response.write "<script>alert('"&info&"');location.href='"&url&"'</script>"
 response.end
 end sub
 Function showsize(filename)
 FPath=server.mappath(filename)
 set fso=server.CreateObject("scripting.filesystemobject")
 If fso.fileExists(FPath) Then
 Set f = fso.GetFile(FPath)
 filetype=f.type
 filesize=f.size
 adddate=f.DateCreated
 Select Case true
 Case filesize<1024
 fsize=filesize&" B"
 Case filesize<1048576
 fsize=Round((filesize/1024),2)&" KB"
 Case filesize<1073741824
 fsize=Round((filesize/1024/1024),2)&" MB"
 Case else
 fsize=Round((filesize/1024/1024/1024),2)&" GB"
 End Select
 Response.Write "<dd>数据库路径:BackupDB.bak</dd><dd>文件大小:"&fsize&"</dd><dd>文件类型:"&filetype&"</dd><dd>创建时间:"&adddate&"</dd>"
 else
 Response.Write"<dd style='color:#f00'>文件不存在!</dd>"
 end if
 End Function
 '---------判断文件是否存在-----------
 function fileExists(filename)
 path=server.MapPath(filename)
 set fso=server.CreateObject("scripting.filesystemobject")
 if fso.FileExists(path) then
 set f=fso.GetFile(path)
 response.write "<dd>备份路径:BackupDB.bak</dd><dd>文件大小:"&f.size&" bit</dd><dd>文件类型:"&f.type&"</dd><dd>创建时间:"&f.DateCreated&"</dd><dd>访问时间:"&f.DateLastAccessed&"</dd><dd>修改时间:"&f.DateLastAccessed&"</dd><dd><a style='display:block; float:left; margin-right:20px; text-align:center; text-decoration:none; line-height:26px;' href='db_backup.asp?restoration=ok' class='submit2'>恢 复</a><a style='display:block; float:left; margin-right:20px; text-align:center; text-decoration:none; line-height:26px;' href='db_backup.asp?del=ok' class='submit2'>删 除</a><font style='color:#f00'> * 可恢复到最近一次的备份或删除备份文件,提醒:请谨慎操作,操作后将不能恢复</font></dd>"
 set f=nothing
 else
 response.write "<dd style='color:#f00'>数据库还未备份为了安全起见,请及时备份数据库以确保安全</dd>"
 end if
 set fso=nothing
 end function
 '---------备份、恢复、删除数据库文件---------
 function fileCopy(fstatus)
 fpath="DB.mdb"
 bpath="BackupDB.bak"
 fpath=server.MapPath(fpath)
 bpath=server.MapPath(bpath)
 if fstatus="Backup" then
 set fso=server.CreateObject("scripting.filesystemobject")
 set f=fso.GetFile(fpath)
 f.Copy bpath,true
 set f=nothing
 set fso=nothing
 call sussLoctionHref("数据库备份成功","db_backup.asp")
 elseif fstatus="rest" then
 set fso=server.CreateObject("scripting.filesystemobject")
 set f=fso.GetFile(bpath)
 f.Copy fpath,true
 set f=nothing
 set fso=nothing
 call sussLoctionHref("数据库恢复成功","db_backup.asp")
 elseif fstatus="del" then
 set fso=server.CreateObject("scripting.filesystemobject")
 if fso.DeleteFile(bpath) then
 set fso=nothing
 call sussLoctionHref("数据库备份文件删除失败","db_backup.asp")
 else
 set fso=nothing
 call sussLoctionHref("数据库备份文件删除成功","db_backup.asp")
 end if
 else
 call sussLoctionHref("对数据库操作不正确,执行失败","db_backup.asp")
 end if
 end function
 if request.querystring("back")="ok" then
 fileCopy("Backup")
 end if
 if request.querystring("restoration")="ok" then
 fileCopy("rest")
 end if
 if request.querystring("del")="ok" then
 fileCopy("del")
 end if

xia

分享到:
标签:asp数据备份,数据库备份,
^_^ 亲爱的客官,如果您觉得本文对您有好处,请移动你的鼠标点点下面的广告或上面的或右上角的,非常感谢~ ^_^

报歉!评论已关闭.