服务器之家

服务器之家 > 正文

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

时间:2019-09-07 15:13     来源/作者:脚本之家
  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. %> 
标签:

相关文章

热门资讯

玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分
玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分 2019-06-21
华为nova5pro和p30pro哪个好 华为nova5pro和华为p30pro对比详情
华为nova5pro和p30pro哪个好 华为nova5pro和华为p30pro对比详情 2019-06-22
抖音撒撒累累是什么歌 撒撒累累张艺兴歌曲名字
抖音撒撒累累是什么歌 撒撒累累张艺兴歌曲名字 2019-06-05
叠猫猫队长可以退出吗 叠猫猫队长怎么换队伍
叠猫猫队长可以退出吗 叠猫猫队长怎么换队伍 2019-06-05
男生常说24816是什么意思?女生说13579是什么意思?
男生常说24816是什么意思?女生说13579是什么意思? 2019-07-24
返回顶部