asp在线备份、恢复、压缩与清理access数据库管理程序
备份数据库 sub ad_backupdata() on error resume next bkfolder = server.MapPath( " ../mdbackup/ " ) bkpath = bkfolder " " year ( now ) " - " month ( now ) " - " day ( now ) " .asp " dbpath = Server.MapPath( " ../mdbdate/company.mdb " ) S
'备份数据库sub ad_backupdata() on error resume next bkfolder = server.MapPath("../mdbackup/") bkpath = bkfolder&""&year(now)&"-"&month(now)&"-"&day(now)&".asp" dbpath = Server.MapPath("../mdbdate/company.mdb") Set Fso=server.createobject("scripting.filesystemobject") if Err <> 0 Then response.write "该空间不支持FSO组件，操作失败" else if fso.FileExists(dbpath) then If fso.FolderExists(bkfolder)=false Then fso.CreateFolder(bkfolder) fso.copyfile dbpath,bkpath response.write "备份数据库成功" Else response.write "找不到数据库文件" End if end ifend sub'数据库压缩sub ad_compactdata() on error resume next dbpath = Server.MapPath("../mdbdate/company.mdb") cdpath = server.MapPath("../mdbdate/")&" emp.mdb" Set fso = Server.CreateObject("Scripting.FileSystemObject") if Err <> 0 Then response.write "该空间不支持FSO组件，操作失败" else If fso.FileExists(dbPath) Then Set Engine = CreateObject("JRO.JetEngine") set conn=nothing Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath," Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & cdpath fso.CopyFile cdpath,dbpath fso.DeleteFile(cdpath) Set fso = nothing Set Engine = nothing response.write "数据库压缩成功" Else response.write "找不到数据库文件" End If end ifend sub'恢复数据库sub ad_restore() on error resume next backname=request.form("backname") if backname="" then response.write "请指定的备份文件名" else backpath=server.MapPath("../mdbackup/")&""&backname Set Fso=server.createobject("scripting.filesystemobject") if Err <> 0 Then response.write "该空间不支持FSO组件，操作失败" else if fso.fileexists(backpath) then fso.copyfile backpath,Server.MapPath("../mdbdate/company.mdb") response.write "成功恢复数据库" else response.write "找不到指定的备份文件" end if end if end ifend sub'清理备份数据库sub ad_deldata() on error resume next delpath=server.MapPath("../mdbackup/") Set Fso=server.createobject("scripting.filesystemobject") if Err <> 0 Then response.write "该空间不支持FSO组件，操作失败" else fso.deletefolder(delpath) if Err <> 0 Then response.write "清理失败或没找到文件" else response.write "成功清理备份数据库" end if end ifend sub
精彩图集