asp 액세스 데이터 백업,복원,압축 코드

<%'데이터베이스 관리 클래스 데이터'백업 공용 sub Bk()fso=server.createobject("scripting.filesystemobject")fso.CopyFile Server.MapPath(SiteDataPath),Server.MapPath(SiteDataBakPath)     set fso=nothing response.Write("")end sub'복원    public sub Rt()      SDPath = server.mappath(SiteDataPath) SDBPath = server.mappath(SiteDataBakPath)      set Fso=Server.CreateObject("Scripting.FileSystemObject") if Fso.FileExists(SDBPath) then Fso.CopyFile SDBPath,SDPath Set Fso=nothing          response.Write("") else          response.Write("") end if     end sub     '압축 하 다.    public sub Dc()      SDBPath = server.mappath(SiteDataBakPath)      set Fso=Server.CreateObject("Scripting.FileSystemObject")      if Fso.FileExists(SDBPath) then Set Engine =Server.CreateObject("JRO.JetEngine")      if request("boolIs") = "97" then      Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SDBPath, _          "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SDBPath & "_temp.mdb;" _          & "Jet OLEDB:Engine Type=" & JET_3X      else      Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SDBPath, _          "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SDBPath & "_temp.mdb" end if Fso.CopyFile SDBPath & "_temp.mdb",SDBPath Fso.DeleteFile(SDBPath & "_temp.mdb") set Fso = nothing set Engine = nothing      response.Write("") else      response.Write("") end if     end sub      end class %>