Sauvegarde des données ASP Access, restauration, code d'implémentation de la classe de compression, vous pouvez vous y référer. <!--#include file=config.asp -->
<!--#include file=Fun.asp -->
<%
'Classe de gestion de base de données
Données de classe
'Sauvegarde
public subBk()
Définir fso=server.createobject(scripting.filesystemobject)
fso.CopyFile Server.MapPath(SiteDataPath),Server.MapPath(SiteDataBakPath)
définir fso = rien
réponse.Write(<langage de script=javascript><!--
alert('Sauvegarde réussie !');window.location.href='DataManage.asp'
// --></script>)
fin du sous
'réduction
public sous Rt()
SDPath = serveur.mappath(SiteDataPath)
SDBPath = serveur.mappath(SiteDataBakPath)
définir Fso = Server.CreateObject (Scripting.FileSystemObject)
si Fso.FileExists (SDBPath) alors
Fso.CopyFile SDBPath,SDPath
Définir Fso=rien
réponse.Write(<langage de script=javascript><!--
alert('Succès : Vous avez réussi à restaurer la base de données !');window.location.href='DataManage.asp?action=rt'
// --></script>)
autre
réponse.Write(<langage de script=javascript><!--
alert('Échec : veuillez vérifier si le chemin et le nom de la base de données existent');window.location.href='DataManage.asp?action=rt'
// --></script>)
finir si
fin du sous
'compression
public sous Dc()
SDBPath = serveur.mappath(SiteDataBakPath)
définir Fso = Server.CreateObject (Scripting.FileSystemObject)
si Fso.FileExists (SDBPath) alors
Définir le moteur = Server.CreateObject (JRO.JetEngine)
si request(boolIs) = 97 alors
Engine.CompactDatabase Provider=Microsoft.Jet.OLEDB.4.0;Source de données= & SDBPath, _
Fournisseur=Microsoft.Jet.OLEDB.4.0;Source de données= & SDBPath & _temp.mdb;
& Jet OLEDB : Type de moteur = & JET_3X
autre
Engine.CompactDatabase Provider=Microsoft.Jet.OLEDB.4.0;Source de données= & SDBPath, _
Fournisseur = Microsoft.Jet.OLEDB.4.0; Source de données = & SDBPath & _temp.mdb
finir si
Fso.CopyFile SDBPath & _temp.mdb,SDBPath
Fso.DeleteFile (SDBPath & _temp.mdb)
définir Fso = rien
définir le moteur = rien
réponse.Write(<langage de script=javascript><!--
alert('Succès : La base de données a été compressée avec succès !');window.location.href='DataManage.asp?action=dc'
// --></script>)
autre
réponse.Write(<langage de script=javascript><!--
alert('Échec : échec de la compression de la base de données, veuillez vérifier si le chemin et le nom de la base de données existent !'); window.location.href='DataManage.asp?action=dc');
// --></script>)
finir si
fin du sous
terminer le cours
%>