ASP Access backup data, pemulihan, kode implementasi kelas kompresi, Anda dapat merujuknya. <!--#include file=config.asp -->
<!--#include file=Fun.asp -->
<%
'Kelas manajemen basis data
Data kelas
'Cadangan
subBk publik()
Setel fso=server.createobject(scripting.filesystemobject)
fso.CopyFile Server.MapPath(SiteDataPath),Server.MapPath(SiteDataBakPath)
atur fso=tidak ada
respon.Tulis(<bahasa skrip=javascript><!--
alert('Pencadangan berhasil!');window.location.href='DataManage.asp'
// --></skrip>)
sub akhir
'pengurangan
sub publik Rt()
SDPath = server.mappath(SiteDataPath)
SDBPath = server.mappath(SiteDataBakPath)
set Fso=Server.CreateObject(Scripting.FileSystemObject)
jika Fso.FileExists(SDBPath) lalu
Fso.CopyFile SDBPath,SDPath
Tetapkan Fso=tidak ada
respon.Tulis(<bahasa skrip=javascript><!--
alert('Sukses: Anda berhasil memulihkan database!');window.location.href='DataManage.asp?action=rt'
// --></skrip>)
kalau tidak
respon.Tulis(<bahasa skrip=javascript><!--
alert('Kegagalan: Silakan periksa apakah jalur dan nama database ada');window.location.href='DataManage.asp?action=rt'
// --></skrip>)
berakhir jika
sub akhir
'kompresi
sub publik Dc()
SDBPath = server.mappath(SiteDataBakPath)
set Fso=Server.CreateObject(Scripting.FileSystemObject)
jika Fso.FileExists(SDBPath) lalu
Setel Mesin =Server.CreateObject(JRO.JetEngine)
jika permintaan(boolIs) = 97 maka
Penyedia Engine.CompactDatabase=Microsoft.Jet.OLEDB.4.0;Sumber Data= & SDBPath, _
Penyedia=Microsoft.Jet.OLEDB.4.0;Sumber Data= & SDBPath & _temp.mdb;
& Jet OLEDB:Jenis Mesin= & JET_3X
kalau tidak
Penyedia Engine.CompactDatabase=Microsoft.Jet.OLEDB.4.0;Sumber Data= & SDBPath, _
Penyedia=Microsoft.Jet.OLEDB.4.0;Sumber Data= & SDBPath & _temp.mdb
berakhir jika
Fso.CopyFile SDBPath & _temp.mdb,SDBPath
Fso.DeleteFile(SDBPath & _temp.mdb)
atur Fso = tidak ada
setel Mesin = tidak ada
respon.Tulis(<bahasa skrip=javascript><!--
alert('Sukses: Database berhasil dikompres!');window.location.href='DataManage.asp?action=dc'
// --></skrip>)
kalau tidak
respon.Tulis(<bahasa skrip=javascript><!--
alert('Kegagalan: Kompresi database gagal, harap periksa apakah jalur dan nama database ada!'); window.location.href='DataManage.asp?action=dc');
// --></skrip>)
berakhir jika
sub akhir
kelas akhir
%>