我做了 一个管理系统，但其中的压缩数据和备份数据的模块还没做。还求大家赐教

Function CompactDB
    ' 修改自Dvbbs 7.1.0 SQL  Admin\Data.asp
    Dim fso, Engine, strDBPath,JET_3X
    strDBPath = left(Server.MapPath(SqlDatabase),instrrev(Server.MapPath(SqlDatabase),"\"))
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    If fso.FileExists(Server.MapPath(SqlDatabase)) Then
        fso.CopyFile Server.MapPath(SqlDatabase),strDBPath & "temp.mdb"
        Set Engine = CreateObject("JRO.JetEngine")
    
         "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb", _
            "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp1.mdb"
    
    fso.CopyFile strDBPath & "temp1.mdb",Server.MapPath(SqlDatabase)
    fso.DeleteFile strDBPath & "temp.mdb"
    fso.DeleteFile strDBPath & "temp1.mdb"
    Set fso = nothing
    Set Engine = nothing
    
        CompactDB = "你的数据库, " & SqlDatabase & ", 已经压缩成功!" & vbCrLf
    
    Else
        CompactDB = "数据库名称或路径不正确. 请重试!" & vbCrLf
    End If
    
    End Function

备份可以认为是复制文件。

你也不说是Access数据库还是sqlserver还是oracle，怎么给你解决问题？

ACCESS压缩可以用DAO,JRO
SQL和Oracle压缩有SQL语句

备分的话,ACCESS直接把数据库文件复制到专用备份文件夹吧,这样只能进行完全备份
SQL和Oracle可以用SQL语句按需要进行完全/差异备份