ASP Access-Datensicherungs-, Wiederherstellungs- und Komprimierungsklassen-Implementierungscode, auf den Sie sich beziehen können. <!--#include file=config.asp -->
<!--#include file=Fun.asp -->
<%
'Datenbankverwaltungsklasse
Klassendaten
„Unterstützung
öffentliches SubBk()
Setze fso=server.createobject(scripting.filesystemobject)
fso.CopyFile Server.MapPath(SiteDataPath),Server.MapPath(SiteDataBakPath)
setze fso=nichts
Antwort.Write(<script language=javascript><!--
Alert('Sicherung erfolgreich!');window.location.href='DataManage.asp'
// --></script>)
Ende sub
'Reduktion
öffentliches Sub Rt()
SDPath = server.mappath(SiteDataPath)
SDBPath = server.mappath(SiteDataBakPath)
set Fso=Server.CreateObject(Scripting.FileSystemObject)
wenn Fso.FileExists(SDBPath) dann
Fso.CopyFile SDBPath,SDPath
Setze Fso=nichts
Antwort.Write(<script language=javascript><!--
Alert('Erfolg: Sie haben die Datenbank erfolgreich wiederhergestellt!');window.location.href='DataManage.asp?action=rt'
// --></script>)
anders
Antwort.Write(<script language=javascript><!--
warning('Fehler: Bitte prüfen Sie, ob der Pfad und der Datenbankname vorhanden sind');window.location.href='DataManage.asp?action=rt'
// --></script>)
Ende wenn
Ende sub
'Kompression
öffentlicher Sub Dc()
SDBPath = server.mappath(SiteDataBakPath)
set Fso=Server.CreateObject(Scripting.FileSystemObject)
wenn Fso.FileExists(SDBPath) dann
Set Engine =Server.CreateObject(JRO.JetEngine)
wenn request(boolIs) = 97 dann
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
anders
Engine.CompactDatabase Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & SDBPath, _
Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & SDBPath & _temp.mdb
Ende wenn
Fso.CopyFile SDBPath & _temp.mdb,SDBPath
Fso.DeleteFile(SDBPath & _temp.mdb)
setze Fso = nichts
set Engine = nichts
Antwort.Write(<script language=javascript><!--
Alert('Erfolg: Die Datenbank wurde erfolgreich komprimiert!');window.location.href='DataManage.asp?action=dc'
// --></script>)
anders
Antwort.Write(<script language=javascript><!--
warning('Fehler: Datenbankkomprimierung fehlgeschlagen, bitte prüfen Sie, ob der Pfad und der Datenbankname vorhanden sind!'); window.location.href='DataManage.asp?action=dc'
// --></script>)
Ende wenn
Ende sub
Klasse beenden
%>