La copia de seguridad y recuperación en línea ASP de la base de datos del servidor SQL es una solución temporal para amigos que no proporcionan una conexión remota al servidor SQL o la descarga de paquetes. Puede que no sea efectiva para big data. base de datos del servidor sql de copia de seguridad en línea asp:
1. Haga una copia de seguridad del servidor SQL
Copie el código de código de la siguiente manera:
<%
SQL=base de datos de respaldo nombre de la base de datos en el disco='&Server.MapPath(backup)&/&backuptext.dat&'
establecer cnn=Servidor.createobject(adodb.conexión)
cnn.open driver={SQL Server};Servidor=nombre del servidor;uid=sa;pwd=
cnn.ejecutar SQL
en caso de error reanudar siguiente
si err<>0 entonces
error de respuesta.escritura:&err.Descripción
demás
Response.WrITe ¡La copia de seguridad de datos se realizó correctamente!
terminar si
%>
2. Restaurar el servidor SQL
Copie el código de código de la siguiente manera:
<%
SQL=Restaurar el nombre de la base de datos desde el disco='&Server.MapPath(backup)&/&backuptext.dat&'
establecer cnn=Servidor.createobject(adodb.conexión)
cnn.open driver={SQL Server};Server=nombre del servidor;uid=sa;pwd=
cnn.ejecutar SQL
en caso de error reanudar siguiente
si err<>0 entonces
error de respuesta.escritura:&err.Descripción
demás
Response.WrITe ¡Recuperación de datos exitosa!
terminar si
%>
El principio de ACCESO es el mismo.
Copie el código de código de la siguiente manera:
<%
'******************************************
función Copiar a (por valor carchivo, por valor a archivo)
cFile=Server.MapPath(cFile) 'El archivo del que se realizará la copia de seguridad
toFile=Server.MapPath(toFile) 'Archivo de copia de seguridad
Tenue cFso,cf
establecer cFso=Server.CreateObject(Scripting.FileSystemObject)
cFso.fileexists(cArchivo)
cFso.Copyfile cFile,toFile
función final
'************************************************
'ASP implementa operaciones de copia de seguridad y restauración de la base de datos ACCESS
'Esta página es databackup.asp
ruta de base de datos tenue, carpeta bk, nombre de bkdb, fso, fso1
llamar a principal()
llamar a principal2()
con.cerrar
establecer conexión = nada
subprincipal()
si solicitud(acción)=Copia de seguridad entonces
llamar a datos de respaldo()
demás
%>
<espacio entre celdas de la tabla = 1 relleno de celda = 1 alineación = ancho central = 90%>
<tr>
<ésima altura=25>
<B>Copia de seguridad de la base de datos</B>
</th>
</tr>
<método de formulario=publicar acción=databackup.asp?action=Copia de seguridad>
<tr>
<td altura=100 estilo=altura-línea:150%>
Ruta de base de datos actual (ruta relativa):
<tipo de entrada=tamaño del texto=15 nombre=valor de ruta de base de datos=../mdb/database.mdb><BR>
Directorio de la base de datos de respaldo (ruta relativa):
<tipo de entrada=tamaño del texto=15 nombre=bkfolder value=../Databackup> Si el directorio no existe, el programa lo creará automáticamente<BR>
Nombre de la base de datos de respaldo (completa el nombre):
<tipo de entrada=tamaño de texto=15 nombre=bkDBname valor=database.mdb> Si el directorio de respaldo tiene esto
El archivo se sobrescribirá. Si no existe, se creará automáticamente<BR>.
<tipo de entrada=submIT value=Datos de respaldo><hr align=center width=90% color=#999999></td>
</tr>
</formulario>
</tabla>
<%
terminar si
sub final
subprincipal2()
si solicitud (acción) = Restaurar entonces
Dbpath=solicitud.form(Dbpath)
ruta de regreso=solicitud.formulario(ruta de regreso)
si dbpath = entonces
Response.WrITE Ingrese el nombre completo de la base de datos que desea restaurar.
demás
Dbpath=servidor.mappath(Dbpath)
terminar si
ruta de regreso=servidor.mappath(ruta de regreso)
Respuesta.escritura de ruta de retroceso
Establecer Fso=server.createobject(scripting.filesystemobject)
si fso.fileexists (dbpath) entonces
fso.copyfile Dbpath,Regreso
Response.wrITe <font color=red>¡Datos recuperados exitosamente! </font>
demás
Response.wrITe <font color=red>¡No hay ningún archivo de respaldo para usted en el directorio de respaldo! </font>
terminar si
demás
%>
<table align=center cellspaceping=1 cellpadding=1 ancho=90%>
<tr>
<ésima altura=25>
<B>Restaurar base de datos</B>
</th>
</tr>
<método de formulario=publicar acción=databackup.asp?action=Restaurar>
<tr>
<altura td=100>
Ruta de la base de datos de respaldo (relativa):
<tipo de entrada=tamaño de texto=30 nombre=valor de ruta de base de datos=../Databackup/database.mdb> <BR>
Ruta de base de datos actual (relativa):
<tipo de entrada=tamaño del texto=30 nombre=valor de la ruta de retorno=../mdb/database.mdb><BR>
<tipo de entrada=submIT value=Recuperar datos> <ancho de hora=90% align=center color=#999999>
<font color=#666666>·Nota: Todas las rutas son relativas</font></td>
</tr>
</formulario>
</tabla>
<%
terminar si
sub final
subdatos de copia de seguridad()
Dbpath=solicitud.form(Dbpath)
Dbpath=servidor.mappath(Dbpath)
bkfolder=solicitud.formulario(bkfolder)
bkdbname=solicitud.form(bkdbname)
Establecer Fso=server.createobject(scripting.filesystemobject)
si fso.fileexists (dbpath) entonces
Si CheckDir(bkfolder) = True Entonces
fso.copyfile dbpath,bkfolder& //& bkdbname
demás
Carpeta MakeNewsDir
fso.copyfile dbpath,bkfolder& //& bkdbname
terminar si
Response.wrITe <font color=red>La copia de seguridad de la base de datos se realizó correctamente. La ruta de la base de datos de la que realizó la copia de seguridad es &bkfolder& //& bkdbname+</font>.
Demás
Response.wrITe <font color=red>No se puede encontrar el archivo del que necesita hacer una copia de seguridad. </font>
terminar si
sub final
'------------------Comprueba si existe un determinado directorio------------------
Función CheckDir(RutaCarpeta)
ruta de carpeta=Server.MapPath(.)&//&ruta de carpeta
Establecer fso1 = CreateObject(Scripting.FileSystemObject)
Si fso1.FolderExists (FolderPath) entonces
'existir
ComprobarDir = Verdadero
Demás
'no existe
ComprobarDir = Falso
terminar si
Establecer fso1 = nada
Función final
'------------Generar un directorio basado en el nombre especificado---------
Función MakeNewsDir(nombre de carpeta)
tenue f
Establecer fso1 = CreateObject(Scripting.FileSystemObject)
Establecer f = fso1.CreateFolder(nombre de carpeta)
MakeNewsDir = Verdadero
Establecer fso1 = nada
Función final
%>