个人中心
gpt4 book ai didi

asp Access数据备份,还原,压缩类代码

转载 作者：qq735679552 更新时间：2022-09-29 22:32:09 24 4
gpt4 key购买 nike

CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章asp Access数据备份,还原,压缩类代码由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.

  1. <!--#include file="config.asp" -->  
  2. <!--#include file="Fun.asp" -->  
  3. <%  
  4. '数据库管理类  
  5. class Datas  
  6. '备份  
  7. public sub Bk()  
  8. Set fso=server.createobject("scripting.filesystemobject")  
  9. fso.CopyFile Server.MapPath(SiteDataPath),Server.MapPath(SiteDataBakPath)  
  10.      set fso=nothing  
  11. response.Write("<script language=javascript><!--  
  12. alert('备份成功！');window.location.href='DataManage.asp'  
  13. // --></script>")  
  14. end sub  
  15.  
  16. '还原  
  17.     public sub Rt()  
  18.      SDPath = server.mappath(SiteDataPath)  
  19. SDBPath = server.mappath(SiteDataBakPath)  
  20.      set Fso=Server.CreateObject("Scripting.FileSystemObject")  
  21. if Fso.FileExists(SDBPath) then  
  22. Fso.CopyFile SDBPath,SDPath  
  23. Set Fso=nothing  
  24.          response.Write("<script language=javascript><!--  
  25. alert('成功：你已经成功恢复数据库!');window.location.href='DataManage.asp?action=rt'  
  26. // --></script>")  
  27. else  
  28.          response.Write("<script language=javascript><!--  
  29. alert('失败：请检查路径和数据库名是否存在');window.location.href='DataManage.asp?action=rt'  
  30. // --></script>")  
  31. end if  
  32.     end sub  
  33.  
  34.     '压缩  
  35.     public sub Dc()  
  36.      SDBPath = server.mappath(SiteDataBakPath)  
  37.      set Fso=Server.CreateObject("Scripting.FileSystemObject")  
  38.      if Fso.FileExists(SDBPath) then  
  39. Set Engine =Server.CreateObject("JRO.JetEngine")  
  40.      if request("boolIs") = "97" then  
  41.      Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SDBPath, _  
  42.          "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SDBPath & "_temp.mdb;" _  
  43.          & "Jet OLEDB:Engine Type=" & JET_3X  
  44.      else  
  45.      Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SDBPath, _  
  46.          "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SDBPath & "_temp.mdb"  
  47. end if  
  48. Fso.CopyFile SDBPath & "_temp.mdb",SDBPath  
  49. Fso.DeleteFile(SDBPath & "_temp.mdb")  
  50. set Fso = nothing  
  51. set Engine = nothing  
  52.      response.Write("<script language=javascript><!--  
  53. alert('成功：数据库已经压缩成功!');window.location.href='DataManage.asp?action=dc'  
  54. // --></script>")  
  55. else  
  56.      response.Write("<script language=javascript><!--  
  57. alert('失败：数据库压缩失败，请检查路径和数据库名是否存在！');window.location.href='DataManage.asp?action=dc'  
  58. // --></script>")  
  59. end if  
  60.     end sub       
  61. end class  
  62. %> 

最后此篇关于asp Access数据备份,还原,压缩类代码的文章就讲到这里了,如果你想了解更多关于asp Access数据备份,还原,压缩类代码的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。

24 4 0
文章推荐： ASP UTF-8编码生成静态网页的函数
文章推荐： ASP+FSO生成的网页文件默认编码格式以及转换成UTF-8编码方法
文章推荐： asp fso操作类
文章推荐： ASP 自动采集实现代码
qq735679552
个人简介

我是一名优秀的程序员,十分优秀！

滴滴打车优惠券免费领取
滴滴打车优惠券
全站热门文章
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com