Резервное копирование и восстановление базы данных SQL Server с помощью Asp

Автор：Eve Cole Время обновления：2009-06-23 16:38:17

51windows (оригинальная работа)

— это пример кода для резервного копирования и восстановления базы данных SQL Server с помощью asp. Надеюсь, он будет полезен некоторым друзьям. (Примечание. База данных не может быть восстановлена во время использования)

<HTML> <HEAD> <TITLE>Резервное копирование и восстановление базы данных SQL Server</TITLE> <meta http-equiv="Content-Type" content="text/html; charset= gb2312"> </HEAD> <BODY> <form Method="post" name=myform> Выберите операцию: <INPUT TYPE="radio" NAME="act" id="act_backup" value="backup">< метка для =act_backup>Резервное копирование</label> <INPUT TYPE="radio" NAME="act" id="act_restore" value="restore"><label for=act_restore>Восстановление</label> <br>Имя базы данных: <INPUT TYPE="text" NAME="databasename" value="<%=request("databasename")%>"> <br>Путь к файлу: <INPUT TYPE="text" NAME="bak_file" value="c : $1.bak">(Путь к файлу резервной копии или восстановления)<br> <input type="submit" value="OK"> </form> <% 'Резервное копирование и восстановление базы данных SQL Server! 'Haiwa'http: / /www.51windows.Net dim sqlserver,sqlname,sqlpassword,sqlLoginTimeout,databasename,bak_file,act sqlserver = "localhost" 'sql server sqlname = "sa" 'Имя пользователя sqlpassword = "sa" 'Пароль sqlLoginTimeout = 15 'Время ожидания входа в базу данных = обрезка(запрос("имя_базы данных")) bak_file = обрезка(запрос("bak_file")) bak_file = replace(bak_file,"$1",имя_базы данных) act = lcase(request("act")), если имя_базы = "" то ответ .write "имя входной базы данных", иначе, если act = "backup", то Set srv=Server.CreateObject("SQLDMO.SQLServer") srv.LoginTimeout = sqlLoginTimeout srv.Connect sqlserver,sqlname, sqlpassword Set bak = Server.CreateObject( "SQLDMO .Backup") bak.Database=имя базы данных bak.Devices=Files bak.Files=bak_file bak.SQLBackup srv, если номер ошибки>0, то ответ.записать номер ошибки&"<font color=red><br>" ответ .write err.description&"</font>" end if Response.write "<font color=green>Резервное копирование успешно!</font>" elseif act = "restore" then 'Восстановление должно выполняться, когда база данных не используется! Set srv=Server.CreateObject("SQLDMO.SQLServer") srv.LoginTimeout = sqlLoginTimeout srv.Connect sqlserver,sqlname, sqlpassword Set rest=Server.CreateObject("SQLDMO.Restore") rest.Action=0 ' полное восстановление базы данных rest. Database=имя базы данных rest.Devices=Files rest.Files=bak_file rest.ReplaceDatabase=True 'Принудительное восстановление существующей базы данных, если номер ошибки>0, а затем ответ.запишите номер ошибки&"<font color=red><br>" ответ. write err.description&"</font>" end if rest.SQLRestore srv Response.write "<font color=green>Восстановлено успешно!</font>" else Response.write "<font color=red>Операция не выбрана</font> font color=red> font>" end if end if %> </BODY> </HTML>