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