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:
相关日志:
评论: 0 | 引用: 0 | 查看次数: 1319
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网 址: 输入网址便于回访.
内 容:
验证码:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 300 字 | UBB代码 开启 | [img]标签 关闭