Faça backup e restaure o banco de dados SQL Server com Asp

Autor：Eve Cole Data da Última Atualização：2009-06-23 16:38:17

51windows (trabalho original)

é um exemplo de código para fazer backup e restaurar um banco de dados SQL Server usando asp. Espero que seja útil para alguns amigos. (Nota: O banco de dados não pode ser restaurado durante o uso)

<HTML> <HEAD> <TITLE>Backup e recuperação do banco de dados SQL Server</TITLE> <meta http-equiv="Content-Type" content="text/html; charset= gb2312"> </HEAD> <BODY> <form method="post" name=myform> Selecione a operação: <INPUT TYPE="radio" NAME="act" id="act_backup" value="backup">< rótulo para =act_backup>Backup</label> <INPUT TYPE="radio" NAME="act" id="act_restore" value="restore"><label for=act_restore>Restaurar</label> <br>Nome do banco de dados: <INPUT TYPE="text" NAME="databasename" value="<%=request("databasename")%>"> <br>Caminho do arquivo: <INPUT TYPE="text" NAME="bak_file" value="c : $1.bak">(Caminho do arquivo de backup ou recuperação)<br> <input type="submit" value="OK"> </form> <% 'Backup e recuperação do banco de dados SQL Server! 'Haiwa'http: / /www.51windows.Net dim sqlserver,sqlname,sqlpassword,sqlLoginTimeout,databasename,bak_file,act sqlserver = "localhost" 'sql server sqlname = "sa" 'Nome de usuário sqlpassword = "sa" 'Senha sqlLoginTimeout = 15 'Tempo limite de login nome do banco de dados = trim(request("databasename")) bak_file = trim(request("bak_file")) bak_file = replace(bak_file,"$1",databasename) act = lcase(request("act")) if databasename = "" então resposta .write "nome do banco de dados de entrada" senão se act = "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=nome do banco de dados bak.Devices=Arquivos bak.Files=bak_file bak.SQLBackup srv se err.número>0 então resposta.write err.número&"<font color=red><br>" resposta .write err.description&"</font>" end if Response.write "<font color=green>Backup bem-sucedido!</font>" elseif act = "restore" then 'A restauração deve ser realizada quando o banco de dados não estiver em uso! Set srv=Server.CreateObject("SQLDMO.SQLServer") srv.LoginTimeout = sqlLoginTimeout srv.Connect sqlserver,sqlname, sqlpassword Set rest=Server.CreateObject("SQLDMO.Restore") rest.Action=0 ' descanso completo da restauração do banco de dados. Database=databasename rest.Devices=Arquivos rest.Files=bak_file rest.ReplaceDatabase=True 'Força a restauração do banco de dados existente se err.number>0 então response.write err.number&"<font color=red><br>" resposta. write err.description&"</font>" end if rest.SQLRestore srv Response.write "<font color=green>Restaurado com sucesso!</font>" else Response.write "<font color=red>Nenhuma operação selecionada</ font color=red> font>" end if end if %> </BODY> </HTML>