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