Резервное копирование данных ASP Access, восстановление, код реализации класса сжатия, вы можете обратиться к нему. <!--#include file=config.asp -->
<!--#include file=Fun.asp -->
<%
'Класс управления базой данных
данные класса
'Резервное копирование
публичный субБк()
Установите fso=server.createobject(scripting.filesystemobject)
fso.CopyFile Server.MapPath(SiteDataPath),Server.MapPath(SiteDataBakPath)
установить fso=ничего
response.Write(<язык сценария=javascript><!--
alert('Резервное копирование выполнено успешно!');window.location.href='DataManage.asp'
// --></script>)
конец субтитра
'снижение
публичный суб Rt()
SDPath = server.mappath(SiteDataPath)
SDBPath = server.mappath(SiteDataBakPath)
установите Fso=Server.CreateObject(Scripting.FileSystemObject)
если Fso.FileExists(SDBPath), то
Fso.CopyFile SDBPath,SDPath
Установить Fso=ничего
response.Write(<язык сценария=javascript><!--
alert('Успех: вы успешно восстановили базу данных!');window.location.href='DataManage.asp?action=rt'
// --></script>)
еще
response.Write(<язык сценария=javascript><!--
alert('Ошибка: проверьте, существуют ли путь и имя базы данных');window.location.href='DataManage.asp?action=rt'
// --></script>)
конец, если
конец субтитра
'сжатие
публичный суб-Dc()
SDBPath = server.mappath(SiteDataBakPath)
установите Fso=Server.CreateObject(Scripting.FileSystemObject)
если Fso.FileExists(SDBPath), то
Установить Engine =Server.CreateObject(JRO.JetEngine)
если запрос(boolIs) = 97, то
Engine.CompactDatabase Provider=Microsoft.Jet.OLEDB.4.0;Источник данных= & SDBPath, _
Поставщик = Microsoft.Jet.OLEDB.4.0; Источник данных = & SDBPath & _temp.mdb;
& Jet OLEDB:Тип двигателя= & JET_3X
еще
Engine.CompactDatabase Provider=Microsoft.Jet.OLEDB.4.0;Источник данных= & SDBPath, _
Provider=Microsoft.Jet.OLEDB.4.0;Источник данных= & SDBPath & _temp.mdb
конец, если
Fso.CopyFile SDBPath и _temp.mdb,SDBPath
Fso.DeleteFile(SDBPath & _temp.mdb)
установить Fso = ничего
установить Двигатель = ничего
response.Write(<язык сценария=javascript><!--
alert('Успех: база данных успешно сжата!');window.location.href='DataManage.asp?action=dc'
// --></script>)
еще
response.Write(<язык сценария=javascript><!--
alert('Ошибка: не удалось выполнить сжатие базы данных, проверьте, существуют ли путь и имя базы данных!'); window.location.href='DataManage.asp?action=dc');
// --></script>)
конец, если
конец субтитра
конечный класс
%>