Онлайн-резервное копирование и восстановление базы данных sql-сервера ASP — это временное решение для друзей, которые не обеспечивают удаленное подключение к sqlserver или загрузку пакетов. Это может быть неэффективно для больших данных. asp онлайн-резервная база данных сервера sql:
1. Резервное копирование sqlserver
Скопируйте код кода следующим образом:
<%
SQL=имя базы данных резервной копии на диск='&Server.MapPath(backup)&/&backuptext.dat&'
set cnn=Server.createobject(adodb.connection)
cnn.open driver={SQL Server};Server=имя сервера;uid=sa;pwd=
cnn.execute SQL
при ошибке продолжить дальше
если ошибка<>0, то
Ошибка ответа.wrITe:&err.Описание
еще
response.wrITe Резервное копирование данных выполнено успешно!
конец, если
%>
2. Восстановить sqlserver
Скопируйте код кода следующим образом:
<%
SQL = Восстановить имя базы данных базы данных с диска = '&Server.MapPath(backup)&/&backuptext.dat&'
set cnn=Server.createobject(adodb.connection)
cnn.open driver={SQL Server};Server=имя сервера;uid=sa;pwd=
cnn.execute SQL
при ошибке продолжить дальше
если ошибка<>0, то
Ошибка ответа.wrITe:&err.Описание
еще
response.wrITe Восстановление данных успешно!
конец, если
%>
Принцип ДОСТУПА тот же
Скопируйте код кода следующим образом:
<%
'******************************************
функция CopyTo(ByVal cFile, ByVal toFile)
cFile=Server.MapPath(cFile) 'Файл для резервного копирования
toFile=Server.MapPath(toFile) 'Файл резервной копии
Тусклый cFso, ср.
установите cFso=Server.CreateObject(Scripting.FileSystemObject)
cFso.fileexists(cFile)
cFso.Copyfile cFile,toFile
конечная функция
'************************************************
'ASP реализует операции резервного копирования и восстановления базы данных ACCESS.
'Эта страница — databackup.asp
dim dbpath, bkfolder, bkdbname, fso, fso1
вызвать главную()
вызовите main2()
конн.закрыть
установить соединение = ничего
подглавный()
если запрос(действие)=Резервное копирование, то
вызвать резервные данные()
еще
%>
<table cellpacing=1 cellpadding=1 align=center width=90%>
<тр>
<я высота=25 >
<B>Резервное копирование базы данных</B>
</th>
</tr>
<form метод=post action=databackup.asp?action=Backup>
<тр>
<td height=100 style=line-height:150%>
Текущий путь к базе данных (относительный путь):
<тип ввода=размер текста=15 имя=значение пути к базе данных=../mdb/database.mdb><BR>
Каталог резервной базы данных (относительный путь):
<input type=text size=15 name=bkfolder value=../Databackup> Если каталог не существует, программа автоматически создаст его<BR>
Имя резервной базы данных (введите имя):
<input type=text size=15 name=bkDBname value=database.mdb> Если в каталоге резервной копии есть это
Файл будет перезаписан. Если он не существует, он будет создан автоматически<BR>.
<input type=submIT value=Резервные данные><hr align=center width=90% color=#999999></td>
</tr>
</форма>
</таблица>
<%
конец, если
конец субтитра
суб-main2()
если запрос(действие)=Восстановить, то
Dbpath=request.form(Dbpath)
обратный путь = request.form (обратный путь)
если dbpath= тогда
response.wrITe Пожалуйста, введите полное имя базы данных, которую вы хотите восстановить.
еще
Dbpath=server.mappath(Dbpath)
конец, если
обратный путь = server.mappath (обратный путь)
Обратный путь Response.wrITe
Установите Fso=server.createobject(scripting.filesystemobject)
если fso.fileexists(dbpath), то
fso.copyfile Dbpath,Обратный путь
response.wrITe <font color=red>Данные успешно восстановлены! </font>
еще
response.wrITe <font color=red>В каталоге резервных копий нет файла резервной копии! </font>
конец, если
еще
%>
<table align=center cellpacing=1 cellpadding=1 ширина=90%>
<тр>
<я высота=25 >
<B>Восстановить базу данных</B>
</th>
</tr>
<form метод=post action=databackup.asp?action=Restore>
<тр>
<высота td=100>
Путь к резервной базе данных (относительный):
<тип ввода=размер текста=30 имя=значение DBpath=../Databackup/database.mdb> <BR>
Текущий путь к базе данных (относительный):
<тип ввода=размер текста=30 имя=значение обратного пути=../mdb/database.mdb><BR>
<тип ввода=значение SubmIT=Восстановить данные> <ширина часа=90% align=center color=#999999>
<font color=#666666>·Примечание: все пути являются относительными</font></td>
</tr>
</форма>
</таблица>
<%
конец, если
конец субтитра
дополнительные резервные данные()
Dbpath=request.form(Dbpath)
Dbpath=server.mappath(Dbpath)
bkfolder=request.form(bkfolder)
bkdbname=request.form(bkdbname)
Установите Fso=server.createobject(scripting.filesystemobject)
если fso.fileexists(dbpath), то
Если CheckDir(bkfolder) = True Тогда
fso.copyfile dbpath,bkfolder& //& имя_базы_данных
еще
MakeNewsDir bkfolder
fso.copyfile dbpath,bkfolder& //& имя_базы_данных
конец, если
response.wrITe <font color=red>Резервное копирование базы данных выполнено успешно. Путь к резервной копии базы данных — &bkfolder& //& bkdbname+</font>.
Еще
response.wrITe <font color=red>Невозможно найти файл, резервную копию которого необходимо создать. </font>
Конец, если
конец субтитра
'------------------Проверка существования определенного каталога------------------
Функция CheckDir(FolderPath)
путь к папке=Server.MapPath(.)&//&путь к папке
Установите fso1 = CreateObject(Scripting.FileSystemObject)
Если fso1.FolderExists(FolderPath), то
'существовать
ЧекДир = Истина
Еще
'не существует
ЧекДир = Ложь
Конец, если
Установить fso1 = ничего
Конечная функция
'-------------Создать каталог на основе указанного имени---------
Функция MakeNewsDir(имя папки)
тусклый ж
Установите fso1 = CreateObject(Scripting.FileSystemObject)
Установите f = fso1.CreateFolder(имя папки)
MakeNewsDir = Истина
Установить fso1 = ничего
Конечная функция
%>