ASP备份ACCESS数据库/asp压缩数据库
作者:wang 日期:2009-10-13
<%
gml="E:\web"
A1=gml&"\asai\guoyansaimdb\gysai.mdb"
A2=gml&"\asai\guoyansaimdb-bak\gysai.mdb"
A7=gml&"\asai\guoyansaimdb\gysai-new.mdb"
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
response.Write "备份数据库A1 To A2
"
'备份数据库A1 To A2
FSO.CopyFile A1, A2 , true
response.Write "压缩数据库A1 To A7
"
'压缩数据库A1 To A7
Set Engine = Server.CreateObject("JRO.JetEngine")
prov = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Engine.CompactDatabase prov & A1, prov & A7
set Engine = nothing
response.Write "删除数据库A1
"
'删除数据库A1
FSO.DeleteFile A1
response.Write "重命名书库A7 To A1"
'重命名书库A7 To A1
FSO.MoveFile A7, A1
set FSO = nothing
%>
gml="E:\web"
A1=gml&"\asai\guoyansaimdb\gysai.mdb"
A2=gml&"\asai\guoyansaimdb-bak\gysai.mdb"
A7=gml&"\asai\guoyansaimdb\gysai-new.mdb"
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
response.Write "备份数据库A1 To A2
"
'备份数据库A1 To A2
FSO.CopyFile A1, A2 , true
response.Write "压缩数据库A1 To A7
"
'压缩数据库A1 To A7
Set Engine = Server.CreateObject("JRO.JetEngine")
prov = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Engine.CompactDatabase prov & A1, prov & A7
set Engine = nothing
response.Write "删除数据库A1
"
'删除数据库A1
FSO.DeleteFile A1
response.Write "重命名书库A7 To A1"
'重命名书库A7 To A1
FSO.MoveFile A7, A1
set FSO = nothing
%>
评论: 0 | 引用: 0 | 查看次数: 2666
发表评论