La base de datos SQL Server de respaldo ASP mejorada, el principio en Internet no es muy bueno, los amigos que lo necesiten pueden consultarlo. Copie el código de código de la siguiente manera:
<método de formulario=nombre de publicación=miformulario acción=?acción=base de datos de respaldo>
Seleccione acción: <INPUT TYPE=radio NAME=act id=act_backupvalue=backup><label for=act_backup>Copia de seguridad</label>
<TIPO DE ENTRADA=NOMBRE de radio=act id=act_restore valor=restaurar><etiqueta para=act_restore>restaurar</label>
<br>Nombre de la base de datos: <TIPO DE ENTRADA=NOMBRE del texto=valor del nombre de la base de datos=<%=solicitud(nombre de la base de datos)%>>
<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>
<tipo de entrada=valor de envío=OK id=enviar1 nombre=enviar1>
</formulario>
<%
'¡Copia de seguridad y recuperación de la base de datos de SQL Server!
si solicitud (acción) = base de datos de respaldo Entonces
dim sqlserver,sqlname,sqlpassword,sqlLoginTimeout,databasename,bak_file,act
servidor sql=host local
nombresql=sa
sqlcontraseña=contraseña
sqlLoginTimeout = 15
nombre de base de datos = trim(solicitud(nombre de base de datos))
bak_file = recortar(solicitud(bak_file))
bak_file = reemplazar(bak_file,$1,nombre de la base de datos)
acto = lcase(solicitud(acto))
si nombre de base de datos = entonces
respuesta.escribir nombre de la base de datos de entrada
demás
si actuar = respaldo entonces
Establecer srv=Server.CreateObject(SQLDMO.SQLServer)
srv.LoginTimeout = sqlLoginTimeout
srv.Conectar sqlserver,sqlname, sqlpassword
Establecer bak = Server.CreateObject(SQLDMO.Backup)
bak.Database=nombre de la base de datos
bak.Devices=Archivos
bak.Acción = 0
bak.Inicializar = 1
'bak.Reemplazar = Verdadero
bak.Files=archivo_bak
bak.SQLBackup srv
si número de error>0 entonces
respuesta.escribir número.error&<font color=rojo><br>
respuesta.escribir error.descripción&</font>
terminar si
Response.write <font color=green>¡Copia de seguridad exitosa!</font>
elseif actuar = restaurar entonces
'¡La restauración debe realizarse cuando la base de datos no esté en uso!
Establecer srv=Server.CreateObject(SQLDMO.SQLServer)
srv.LoginTimeout = sqlLoginTimeout
srv.Conectar sqlserver,sqlname, sqlpassword
Establecer resto=Server.CreateObject(SQLDMO.Restore)
rest.Action=0 'restauración completa de la base de datos
rest.Database=nombre de la base de datos
rest.Dispositivos=Archivos
rest.Files=archivo_bak
rest.ReplaceDatabase=True 'Forzar restauración sobre la base de datos existente
si número de error>0 entonces
respuesta.escribir número.error&<font color=rojo><br>
respuesta.escribir error.descripción&</font>
terminar si
resto.SQLRestore srv
Response.write <font color=green>¡Restaurado correctamente!</font>
demás
Response.write <font color=red>Ninguna operación seleccionada</font>
terminar si
terminar si
terminar si
%>