服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|Java教程|ASP教程|编程技术|正则表达式|C/C++|IOS|C#|Swift|Android|JavaScript|易语言|

服务器之家 - 编程语言 - ASP教程 - asp Access数据备份,还原,压缩类代码

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

2019-09-07 15:13脚本之家 ASP教程

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

延伸 · 阅读

精彩推荐