<Body>
<Método de formulário = Nome da postagem = MyForm>
<%Se action = restaurar então%> <tipo de entrada = nome oculto = valor de ação = restauração> Prepare -se para restaurar o banco de dados. Essência Essência
<%Elseif Action = backup Então%> <Tipo de entrada = Nome oculto = Valor da Ação = Backup> Prepare um banco de dados de backup. Essência Essência <%Else%>
Selecione Operação:
<Entrada de entrada = nome de rádio = o id de ação = act_backup value = backup> <etiqueta para = act_backup> backup </belt>
<Tipo de entrada = Nome do Rádio = O ID da Ação = Act_restore Value = Restauração> <Label para = Act_restore> Recuperação </cretel> <%final se%>
<br> Nome do banco de dados: <Tipo de entrada = Nome do texto = DatabaseName Valor = 50Forum>
<br> Caminho do arquivo: <Tipo de entrada = Nome do texto = Bak_file Valor = 50Forum.Bak> (caminho do arquivo de backup ou recuperação) <br>
<Tipo de entrada = Valor de envio = OK>
</morm>
<%
'Backup e recuperação do banco de dados do SQL Server!
'http://www.tfxy.com
Dim SQLSERVER, SQLNAME, SQLPASSWORD, SQLLOGINTIMEOUT, DATABASENAME, BAK_FILE, ACT, ACT
SQLSERVER = servidor SQL do localhost
SQLNAME = SA 'Nome de usuário
sqlpassword = senha '
SQLLOGINTIMIMEOUT = 15 'Limpo limite
DatabaseName = Trim (Solicitação (DatabaseName))
bak_file = Trim (solicitação (bak_file))
bak_file = server.mappath (backup/& bak_file)
Ato = lcase (solicitação (ação))
Se o nome do banco de dados = então
Nome do banco de dados de entrada de resposta
outro
Se ação = backup então
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 = arquivos
bak.files = bak_file
Bak.action = 0
bak.initialize = 1
'Bak.ReplacedAtAbase = true
Bak.SQLbackup Srv
se err.number> 0 então
Response.write err.number & <font color = vermelho> <br>
Response.Write Ericr.Descriping & </font>
final se
Response.Write <Font Color = Green> Backup é bem -sucedido!
srv.disconnect
Definir SRV = nada
Definir bak = nada
elseif Act = restaurar então
'Quando recuperar, não use o banco de dados!
Set srv = server.createObject (sqldmo.sqlserver)
srv.logIntimeout = sqlloGIntimeout
srv.connect sqlserver, sqlname, sqlpassword
Definir descanso = server.createObject (sqldmo.restore)
rest.Action = 0 ' full db restore
REST.DATABASE = DATABASENAME
Rest.Devices = Arquivos
REST.FILES = BAK_FILE
Rest.ReplacedAtABase = True 'Force Restauração sobre o banco de dados existente
se err.number> 0 então
Response.write err.number & <font color = vermelho> <br>
Response.Write Ericr.Descriping & </font>
final se
REST.SQLRESTORE SRV
Response.write <font color = verde> Restauração!
srv.disconnect
Definir SRV = nada
Definir descanso = nada
outro
Response.write <font color = vermelho> sem operação de escolha </font>
final se
final se
%>
</Body>
</html>