asp多次导入access变大

你用ASP压缩一下咯。

Sub CompactDatabase()          //ACCESS数据库压缩
    On Error Resume Next
    checkLogin
    Dim TargetDB,ResourceDB,DataBasePath
    Dim fso,Jet_Conn,oJetEngine,ret
    Jet_Conn = "Provider=Microsoft.Jet.OLEDB.4.0; Data source="
    Set fso= server.CreateObject("Scripting.FileSystemObject")
    Set oJetEngine = Server.CreateObject("JRO.JetEngine")
    DataBasePath = Request.Form("DataBasePath")   //获取的是绝对路径
    ResourceDB = DataBasePath
    If fso.FileExists(ResourceDB) Then
        '处理以前可能出错的文件
        TargetDB = DataBasePath&".bak"
        If fso.FileExists(TargetDB) Then
            fso.DeleteFile(TargetDB)
        End If
        oJetEngine.CompactDatabase Jet_Conn&ResourceDB,Jet_Conn&TargetDB
        fso.DeleteFile ResourceDB
        fso.MoveFile TargetDB,ResourceDB
        If err Then
            Err.clear
            ret = false
        Else
            ret = true
        End If
    End If
    Set fso=Nothing
    Set oJetEngine=Nothing
    If ret Then
        Response.write "<li>压缩成功</li>"
    Else
        Response.write "<li>压缩出现错误，请重新压缩.</li>"
    End If
End Sub