本页内容是《asp多次导入access变大》同时我们还提供济宁地区的网站建设,百度,雅虎,google的推广,点金,商友,等营销软件
请输入关键字:

标题搜索 内容搜索  

你现在所在的位置->首页->asp专区->asp多次导入access变大

asp多次导入access变大

时间:[2011-11-10 22:38:25]     作者:请作者尽快与我们联系。

你用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

【声明】本站刊载的《asp多次导入access变大》一文如果有侵害你权益的情况,请联系我们。我们将及时采取措施。
QQ:44637339 Email:just6@163.com Tel:13355163107 Lining studios

友情链接

本页内容是《asp多次导入access变大》 返回顶部
© 2001-2018 Lining studios 济宁速创科技有限公司, All Rights Reserved
 Processed Time:62.500ms