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 Provi
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)
孤狼