<тело>
<Form method = post name = myform>
<%If action = восстановить, затем%> <input type = hidden name = value = value = restore> Подготовка к восстановлению базы данных. Сущность Сущность
<%Elseif action = резервное копирование затем%> <input type = hidden name = value value = резервное копирование> Подготовка базы данных резервного копирования. Сущность Сущность <%Else%>
Выберите операцию:
<Input type = radio name = the Action id = act_backup value = backup> <label for = act_backup> резервное копирование </label>
<Input type = radio name = the Action id = act_restore value = Restore> <label for = act_restore> recovery </label> <%end, если%>
<br> Имя базы данных: <input type = text name = databaseName value = 50Forum>
<br> Путь файла: <input type = text name = bak_file value = 50forum.bak> (Путь файла резервного копирования или восстановления) <br>
<input type = отправить значение = OK>
</form>
<%
'Резервное копирование и восстановление базы данных SQL Server!
'http://www.tfxy.com
Dim SQLServer, SQLNAME, SQLPASSWORD, SQLLOGINTIMEOUT, DatabaseName, BAK_FILE, ACT, ACT
sqlserver = localhost 'sql server
sqlname = sa 'имя пользователя
SqlPassword = sa 'пароль
sqllogintimeout = 15 'Тайм -аут
DatabaseName = trim (request (databaseName))
bak_file = trim (request (bak_file))
bak_file = server.mappath (Backup/& bak_file)
act = lcase(request(action))
if databasename = then
response.write input database name
еще
if act = backup then
Set srv = Server.CreateObject(SQLDMO.SQLServer)
srv.LoginTimeout = sqlLoginTimeout
srv.Connect sqlserver,sqlname, sqlpassword
Set bak = Server.CreateObject(SQLDMO.Backup)
bak.database = databaseName
bak.devices = файлы
bak.files = bak_file
Bak.action = 0
bak.initialize = 1
'Bak.replacedatabase = true
BAK.SQLBACKUP SRV
Если err.number> 0, тогда
response.write err.number & <font color = red> <br>
Response.write ercr.descripting & </font>
конец, если
Response.write <font color = green> резервное копирование успешно!
srv.disconnect
Установить srv = ничего
Установить BAK = ничего
elseif act = восстановить тогда
«При восстановлении не используйте базу данных!
Установить srv = server.createObject (sqldmo.sqlserver)
srv.logintimeout = sqllogintimeout
srv.connect sqlserver, sqlname, sqlpassword
SET REST = server.createObject (sqldmo.restore)
REST.Action = 0 'Полное восстановление DB
REST.Database = DatabaseName
REST.Devices = файлы
REST.FILES = BAK_FILE
REST.ReplacedAtabase = true 'Servatore по существующей базе данных
Если err.number> 0, тогда
response.write err.number&<font color=red><br>
Response.write ercr.descripting & </font>
конец, если
REST.SQLRESTORE SRV
Response.write <font color = green> восстановить!
srv.disconnect
Установить srv = ничего
Установить отдых = ничего
еще
Response.write <font color = red> нет выбора операции </font>
конец, если
конец, если
%>
</Body>
</Html>