Backup de dados de acesso ASP, restauração, código de implementação de classe de compactação, você pode consultá-lo. <!--#include arquivo=config.asp -->
<!--#include arquivo=Fun.asp -->
<%
'Classe de gerenciamento de banco de dados
dados de classe
'Backup
subBk público()
Definir fso=server.createobject(scripting.filesystemobject)
fso.CopyFile Servidor.MapPath(SiteDataPath),Server.MapPath(SiteDataBakPath)
definir fso = nada
resposta.Write(<linguagem de script=javascript><!--
alert('Backup bem sucedido!');window.location.href='DataManage.asp'
// --></script>)
final sub
'redução
sub público Rt()
SDPath = server.mappath(SiteDataPath)
SDBPath = server.mappath(SiteDataBakPath)
definir Fso = Server.CreateObject (Scripting.FileSystemObject)
se Fso.FileExists(SDBPath) então
Fso.CopyFile SDBPath,SDPath
Definir Fso = nada
resposta.Write(<linguagem de script=javascript><!--
alert('Sucesso: Você restaurou o banco de dados com sucesso!');window.location.href='DataManage.asp?action=rt'
// --></script>)
outro
resposta.Write(<linguagem de script=javascript><!--
alert('Falha: Verifique se o caminho e o nome do banco de dados existem');window.location.href='DataManage.asp?action=rt'
// --></script>)
terminar se
final sub
'compressão
sub público Dc()
SDBPath = server.mappath(SiteDataBakPath)
definir Fso = Server.CreateObject (Scripting.FileSystemObject)
se Fso.FileExists(SDBPath) então
Definir mecanismo =Server.CreateObject(JRO.JetEngine)
se solicitação(boolIs) = 97 então
Engine.CompactDatabase Provider=Microsoft.Jet.OLEDB.4.0;Fonte de dados= & SDBPath, _
Provider=Microsoft.Jet.OLEDB.4.0;Fonte de dados= & SDBPath & _temp.mdb _;
& Jet OLEDB: Tipo de motor = & JET_3X
outro
Engine.CompactDatabase Provider=Microsoft.Jet.OLEDB.4.0;Fonte de dados= & SDBPath, _
Provider=Microsoft.Jet.OLEDB.4.0;Fonte de dados= & SDBPath & _temp.mdb
terminar se
Fso.CopyFile SDBPath & _temp.mdb,SDBPath
Fso.DeleteFile(SDBPath & _temp.mdb)
definir Fso = nada
definir motor = nada
resposta.Write(<linguagem de script=javascript><!--
alert('Sucesso: O banco de dados foi compactado com sucesso!');window.location.href='DataManage.asp?action=dc'
// --></script>)
outro
resposta.Write(<linguagem de script=javascript><!--
alert('Falha: falha na compactação do banco de dados, verifique se o caminho e o nome do banco de dados existem!');
// --></script>)
terminar se
final sub
aula final
%>