asp Access数据备份,还原,压缩类实现代码，大家可以参考下。

<% ‘数据库管理类 class Datas ‘备份 public sub Bk() Set fso=server.createobject(“scr ipting.filesystemobject”) fso.CopyFile Server.MapPath(SiteDataPath),Server.MapPath(SiteDataBakPath)      set fso=nothing response.Write(“<scr ipt l

<% ‘数据库管理类 class Datas ‘备份 public sub Bk() Set fso=server.createobject(“scr ipting.filesystemobject”) fso.CopyFile Server.MapPath(SiteDataPath),Server.MapPath(SiteDataBakPath)      set fso=nothing response.Write(“<scr ipt l