asp Acceso a copia de seguridad de datos, restauración, código de compresión

Código de implementación de clase de compresión, restauración y copia de seguridad de datos de ASP Access, puede consultarlo. <!--#include file=config.asp -->

<!--#include file=Diversión.asp -->

<%

'Clase de gestión de base de datos

datos de clase

'Respaldo

subBk público()

Establecer fso=server.createobject(scripting.filesystemobject)

fso.CopyFile Server.MapPath(SiteDataPath),Server.MapPath(SiteDataBakPath)

establecer fso = nada

respuesta.Write(<lenguaje de escritura=javascript><!--

alert('¡Copia de seguridad exitosa!');window.location.href='DataManage.asp'

// --></script>)

sub final

'reducción

sub pública Rt()

SDPath = servidor.mappath(SiteDataPath)

SDBPath = servidor.mappath(SiteDataBakPath)

establecer Fso=Server.CreateObject(Scripting.FileSystemObject)

si Fso.FileExists (SDBPath) entonces

Fso.CopyFile SDBPath,SDPath

Establecer Fso = nada

respuesta.Write(<lenguaje de escritura=javascript><!--

alert('Éxito: ¡Ha restaurado exitosamente la base de datos!');window.location.href='DataManage.asp?action=rt'

// --></script>)

demás

respuesta.Write(<lenguaje de escritura=javascript><!--

alert('Error: verifique si la ruta y el nombre de la base de datos existen');window.location.href='DataManage.asp?action=rt'

// --></script>)

terminar si

sub final

'compresión

subdc público()

SDBPath = servidor.mappath(SiteDataBakPath)

establecer Fso=Server.CreateObject(Scripting.FileSystemObject)

si Fso.FileExists (SDBPath) entonces

Establecer motor =Server.CreateObject(JRO.JetEngine)

si solicitud (boolIs) = 97 entonces

Engine.CompactDatabase Provider=Microsoft.Jet.OLEDB.4.0;Fuente de datos= & SDBPath, _

Proveedor=Microsoft.Jet.OLEDB.4.0;Fuente de datos= & SDBPath & _temp.mdb _

& Jet OLEDB: Tipo de motor = & JET_3X

demás

Engine.CompactDatabase Provider=Microsoft.Jet.OLEDB.4.0;Fuente de datos= & SDBPath, _

Proveedor=Microsoft.Jet.OLEDB.4.0;Fuente de datos= & SDBPath & _temp.mdb

terminar si

Fso.CopyFile SDBPath y _temp.mdb,SDBPath

Fso.DeleteFile(SDBPath y _temp.mdb)

establecer Fso = nada

establecer motor = nada

respuesta.Write(<lenguaje de escritura=javascript><!--

alert('Éxito: ¡La base de datos se ha comprimido correctamente!');window.location.href='DataManage.asp?action=dc'

// --></script>)

demás

respuesta.Write(<lenguaje de escritura=javascript><!--

alert('Error: Error en la compresión de la base de datos, verifique si la ruta y el nombre de la base de datos existen!');

// --></script>)

terminar si

sub final

clase final

%>