Учитесь у меня asp резервное копирование базы данных сервера sql
<HTML>
<ГЛАВА>
<TITLE>Операция с базой данных_www.dushuwu.nhet</TITLE>
<meta http-equiv=Content-Type content=text/html charset=gb2312>
</HEAD>
<ТЕЛО>
<метод формы=имя записи=myform>
<%if action=restore then%><INPUT TYPE=скрытое имя=значение действия=restore>Подготовьтесь к восстановлению базы данных. . .
<%elseif action=backup then%><INPUT TYPE=скрытое имя=значение действия=backup>Подготовьтесь к резервному копированию базы данных. . . <%else%>
Выберите действие:
<INPUT TYPE=имя радио=action id=act_backup value=backup><label for=act_backup>Резервное копирование</label>
<INPUT TYPE=имя радио=action id=act_restore value=restore& gt;<label for=act_restore>Restore</label><%end if%>
<br>Имя базы данных: <INPUT TYPE=текстовое имя=имя базы данных значение=50forum>
<br>Путь к файлу: <INPUT TYPE=текстовое имя=bak_file value=50forum.bak> (путь к файлу резервной копии или восстановления)<br>
<тип ввода=отправить значение=ОК>
</форма>
<%
«Резервное копирование и восстановление базы данных SQL Server!»
'http://www.dwww.cn
dim sqlserver,sqlname,sqlpassword,sqlLoginTimeout,имя базы данных,bak_file,act
sqlserver = localhost 'sql-сервер
sqlname = sa 'имя пользователя
sqlpassword = sa 'Пароль
sqlLoginTimeout = 15 'Тайм-аут входа в систему
имя базы данных = обрезка (запрос (имя базы данных))
bak_file = обрезка (запрос (bak_file))
bak_file = Server.MapPath(резервная копия/&bak_file)
act = lcase(запрос(действие))
если имя базы данных = тогда
response.write имя входной базы данных
еще
если действие = резервное копирование, то
Установите srv = Server.CreateObject(SQLDMO.SQLServer)
srv.LoginTimeout = sqlLoginTimeout
srv.Connect sqlserver, sqlname, sqlpassword
Установите bak = Server.CreateObject(SQLDMO.Backup)
bak.Database = имя базы данных
bak.Devices = Файлы
bak.Files = bak_file
бак.Действие = 0
бак.Инициализировать = 1
'bak.ReplaceDatabase = Истина
bak.SQLBackup срв
если номер ошибки>0, то
ответ.запишите номер ошибки&<font color=red><br>
ответ.напишите описание ошибки&</font>
конец, если
Response.write <font color=green>Резервное копирование выполнено!</font>
srv.disconnect
Установить srv = ничего
Установить бак = ничего
elseif act = восстановить тогда
'Восстановление следует выполнять, когда база данных не используется!
Установите srv=Server.CreateObject(SQLDMO.SQLServer)
srv.LoginTimeout = sqlLoginTimeout
srv.Connect sqlserver, sqlname, sqlpassword
Установить rest = Server.CreateObject(SQLDMO.Restore)
rest.Action = 0 'полное восстановление базы данных
rest.Database = имя базы данных
rest.Devices = Файлы
rest.Files = bak_file
rest.ReplaceDatabase = True 'Принудительное восстановление существующей базы данных.
если номер ошибки>0, то
ответ.запишите номер ошибки&<font color=red><br>
ответ.напишите описание ошибки&</font>
конец, если
rest.SQLRestore srv
Response.write <font color=green>Успешно восстановлено!</font>
srv.disconnect
Установить srv = ничего
Установить отдых = ничего
еще
Response.write <font color=red>Операция не выбрана</font>
конец, если
конец, если
%>
</ТЕЛО>
</HTML>