asp的access数据库管理程序

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