ASP备份ACCESS数据库/asp压缩数据库

<%
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
%>

上一篇: ASP读取XML
下一篇: ASP检测用户是否存在
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: