Realizar una copia de seguridad y restaurar la base de datos de SQL Server con Asp

Autor：Eve Cole Fecha de actualización：2009-06-23 16:38:17

51windows (trabajo original)

es un código de ejemplo para realizar copias de seguridad y restaurar una base de datos de SQL Server usando ASP. Espero que sea útil para algunos amigos. (Nota: Es posible que la base de datos no se restaure durante el uso)

<HTML> <HEAD> <TITLE>Copia de seguridad y recuperación de la base de datos de SQL Server</TITLE> <meta http-equiv="Content-Type" content="text/html; charset= gb2312"> </HEAD> <BODY> <form Method="post" name=myform> Seleccione la operación: <INPUT TYPE="radio" NAME="act" id="act_backup" value="backup">< etiqueta para =act_backup>Copia de seguridad</label> <INPUT TYPE="radio" NAME="act" id="act_restore" value="restore"><label for=act_restore>Restaurar</label> <br>Nombre de la base de datos: <INPUT TYPE="text" NAME="databasename" value="<%=request("databasename")%>"> <br>Ruta del archivo: <INPUT TYPE="text" NAME="bak_file" value="c : $1.bak">(Ruta del archivo de copia de seguridad o recuperación)<br> <input type="submit" value="OK"> </form> <% 'Copia de seguridad y recuperación de la base de datos de SQL Server! 'Haiwa'http: / /www.51windows.Net dim sqlserver,sqlname,sqlpassword,sqlLoginTimeout,databasename,bak_file,act sqlserver = "localhost" 'sql server sqlname = "sa" 'Nombre de usuario sqlpassword = "sa" 'Contraseña sqlLoginTimeout = 15 'Tiempo de espera de inicio de sesión nombre de base de datos = trim(solicitud("nombre de la base de datos")) bak_file = trim(solicitud("bak_file")) bak_file = reemplazar(bak_file,"$1",nombre de la base de datos) act = lcase(solicitud("act")) si nombre de la base de datos = "" entonces respuesta .escriba "nombre de la base de datos de entrada"; de lo contrario, si actúa = "copia de seguridad", establezca srv=Server.CreateObject("SQLDMO.SQLServer") srv.LoginTimeout = sqlLoginTimeout srv.Connect sqlserver,sqlname, sqlpassword Establezca bak = Server.CreateObject( "SQLDMO .Backup") bak.Database=nombre de la base de datos bak.Devices=Archivos bak.Files=bak_file bak.SQLBackup srv si err.number>0 entonces respuesta.write err.number&"<font color=red><br>" respuesta .write err.description&"</font>" end if Response.write "<font color=green>¡Copia de seguridad exitosa!</font>" elseif act = "restore" then '¡La restauración debe realizarse cuando la base de datos no esté en uso! Establecer srv=Server.CreateObject("SQLDMO.SQLServer") srv.LoginTimeout = sqlLoginTimeout srv.Connect sqlserver,sqlname, sqlpassword Establecer rest=Server.CreateObject("SQLDMO.Restore") rest.Action=0 'restauración completa de la base de datos. Database=nombre de la base de datos rest.Devices=Archivos rest.Files=archivo_bak rest.ReplaceDatabase=True 'Forzar restauración sobre la base de datos existente si err.number>0 luego respuesta.escribir err.number&"<font color=red><br>" respuesta. write err.description&"</font>" end if rest.SQLRestore srv Response.write "<font color=green>¡Restaurado correctamente!</font>" else Response.write "<font color=red>No se seleccionó ninguna operación</font>" color de fuente=rojo> fuente>" fin si fin si %> </BODY> </HTML>