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 " ) 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 if end sub ' 数据库压缩 sub ad_compactdata() on error resume next dbpath = Server.MapPath( " ../mdbdate/company.mdb " ) cdpath = server.MapPath( " ../mdbdate/ " ) & " \temp.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 if end 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 if end 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 if end sub转载于:https://www.cnblogs.com/cloudgamer/articles/1036378.html
