<%
' 功能：压缩ACCESS数据库
Sub CompactDB(strDBFileName)
Dim strOldDB,strNewDB,objFSO
strOldDB = server.MapPath(strDBFileName)
strNewDB = server.MapPath("New" &amp; strDBFileName)
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strOldDB) Then
' 压缩数据库
Set Engine = Server.CreateObject("JRO.JetEngine")
strPvd = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Engine.CompactDatabase strPvd &amp; strOldDB , strPvd &amp; strNewDB
Set Engine = Nothing
' 删除旧的数据库文件
objFSO.DeleteFile strOldDB
' 将压缩好的数据库文件拷贝回来
objFSO.MoveFile strNewDB, strOldDB
Response.Write("数据库压缩完毕!")
Else
Response.Write("找不到指定的数据库文件!")
End If
Set objFSO = Nothing
End Sub
%>
 
'调用方式：
 
Call CompactDB("Database.mdb")

您可能对以下文章有兴趣↓