Улучшенная резервная копия базы данных SQL Server ASP, в принципе в Интернете не очень хорошо, друзья в нужде могут обратиться к ней. Скопируйте код кода следующим образом:
<метод формы=имя записи=myform action=?action=backupdatabase>
Выберите действие: <INPUT TYPE=radio NAME=act id=act_backupvalue=backup><label for=act_backup>Резервное копирование</label>
<INPUT TYPE=ИМЯ радио=act id=act_restore value=restore><label for=act_restore>restore</label>
<br>Имя базы данных: <INPUT TYPE=текстовое ИМЯ=имя базы данных значение=<%=request(имя базы данных)%>>
<br>Путь к файлу: <INPUT TYPE=text NAME=bak_file value=c:/$1.bak> (путь к файлу резервной копии или восстановления)<br>
<тип ввода=отправить значение=ОК id=отправить1 имя=отправить1>
</форма>
<%
«Резервное копирование и восстановление базы данных SQL Server!»
если запрос(действие)=резервное копирование базы данных Тогда
dim sqlserver,sqlname,sqlpassword,sqlLoginTimeout,имя базы данных,bak_file,act
sqlserver = локальный хост
sqlname=sa
sqlpassword=пароль
sqlLoginTimeout = 15
имя базы данных = обрезка (запрос (имя базы данных))
bak_file = обрезка (запрос (bak_file))
bak_file = replace(bak_file,$1,имя базы данных)
действие = 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=Файлы
бак.Действие = 0
бак.Инициализировать = 1
'bak.Replace = Истина
bak.Files=bak_file
bak.SQLBackup срв
если номер ошибки>0, то
ответ.запишите номер ошибки&<font color=red><br>
ответ.напишите описание ошибки&</font>
конец, если
Response.write <font color=green>Резервное копирование выполнено!</font>
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>
еще
Response.write <font color=red>Операция не выбрана</font>
конец, если
конец, если
конец, если
%>