Function CompactDB(Access_Url,Access_Backup_Url,BKDBName,Is97)

 Dim FSO  Set FSO=CreateObject("Scripting.FileSystemObject")    If FSO.FileExists(Access_Url) Then   Dim JE   Set JE=CreateObject("JRO.JetEngine")      If Is97=True Then    JE.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Access_Url,"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Access_Backup_Url&"temp.mdb;Jet OLEDB:Engine Type=4"   Else    JE.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Access_Url,"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Access_Backup_Url&"temp.mdb"   End If      FSO.CopyFile Access_Backup_Url&"temp.mdb",Access_Url   FSO.CopyFile Access_Backup_Url&"temp.mdb",Access_Backup_Url&BKDBName&".asa"   FSO.DeleteFile(Access_Backup_Url&"temp.mdb")      Set FSO=nothing   Set JE=nothing      CompactDB="你的数据库，已经被压缩并备份！"  Else   CompactDB="你输入的数据库路径或名称未找到，请重试！"  End If End Function

Dim Access_Url,Access_Backup_Url,BKDBName

Access_Url="E:\SCJD\Admin\SCJD_Data\%50%69%7a%69%67%65.mdb"  '数据库的物理路径

Access_Backup_Url="E:\SCJD\Admin\SCJD_Backup\"     '数据库备份的物理路径 BKDBName="%50%69%7a%69%67%65"         '数据库备份的文件名

Response.Write CompactDB(Access_Url,Access_Backup_Url,BKDBName,False)