asp的access数据库备份 压缩 恢复及清理数据库函数

本文介绍了4个asp数据库管理中常用到的access数据库操作程序，一般的网站管理后台都提供了这个功能，方便管理员对数据库数据的管理维护。

1.备份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

2、access数据库压缩

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

3、恢复access数据库

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

4、清理备份数据库

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