He visto la copia de seguridad y restauración de la base de datos. La mayor parte se realiza mediante componentes. De hecho, se puede hacer mediante una declaración SQL.
Debido a limitaciones de tiempo, no se verificaron los parámetros y se embelleció la interfaz. El código es sólo de referencia.
Un total de 4 archivos: Dirección de descarga: función rec(rs,sql)
establecer rs = servidor.CreateObject("ADODB.Recordset")
rs.Activeconnection = conexión
rs.Fuente = sql
rs.CursorType = 0
rs.Ubicación del cursor = 3
rs.LockType = 1
rs.Abierto
si rs.eof y rs.bof entonces
rec=falso
demás
rec=verdadero
terminar si
función final
función cmd(sql)
cmd1 tenue
establecer cmd1 = servidor.CreateObject("ADODB.Command")
cmd1.ActiveConnection = conexión
cmd1.CommandText = sql
cmd1.CommandType = 1
cmd1.CommandTimeout = 0
cmd1.Preparado = verdadero
cmd1.Ejecutar()
función final
función cdb(rs)
rs.cerrar()
establecer rs = nada
función final
%>
dev.asp
<!--#include file="conn.asp"-->
<%
si solicitud("AddDev") <> "" entonces
sql="seleccione nombre, phyname de master..sysdevices donde status=16 y nombre='"&request("devname")&"'"
registro de registro, sql
si chk.eof y chk.bof entonces
sql = "sp_addumpdevice 'disco','"&request("devname")&"','"&request("phyname")&"'"
cmdsql
respuesta.Escribir "<script language=javascript>window.location=reload;</script>"
demás
respuesta.Escribir "<script language=javascript>alert('El dispositivo ya existe en la base de datos"&request("devname")&"Device!');window.location='cmd.asp';</script>"
terminar si
terminar si
si solicitud("deldev") <> "" entonces
sql = "sp_dropdevice '"&request("nombredev")&"'"
cmdsql
respuesta.Escribir "<script language=javascript>window.location=reload;</script>"
terminar si
rec li, "seleccione nombre, phyname de master..sysdevices donde estado = 16"
si li.eof y li.bof entonces
Response.Write "<font color=#ff0000>Cree un nuevo dispositivo de respaldo para realizar una copia de seguridad y restaurar la base de datos</font>"
demás
%><tipo de estilo="texto/css">
<!--
cuerpo {
margen izquierdo: 0px;
margen superior: 0px;
}
-->
</estilo>
<ancho de tabla="60%" borde="0" espacio entre celdas="0">
<tr>
<td width="29%">Nombre:</td>
<td width="71%">Posición:</td>
</tr>
<%
yo=0
mientras no sea vida
yo=yo+1
%>
<tr>
<td><%=li(0)%></td>
<td><%=li(1)%> <a href='dev.asp?DelDev=1&devname=<%=li(0)%>'>Eliminar este dispositivo</a></td>
</tr>
<%
li.movenext
encaminarse a
respuesta.Escribir "<script language=javascript>top.document.all.dev.height='"&(i+1)*25&"';</script>"
cdbli
%>
</tabla>
<%
terminar si
%>
predeterminado.asp
< %@LANGUAGE="VBSCRIPT " CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
'************************************************
'Copia de seguridad y restauración de la base de datos
'Programación: Magic Yang (MagicYang.CN)
'Fecha de finalización: 2004-4-11
'Explicación: Debido a limitaciones de tiempo, no se verificó la seguridad de los datos.
'Por favor, verifique los datos al realizar la solicitud para garantizar la seguridad.
'QQ: 1168064 Bienvenidos a todos a comunicarse entre sí
'************************************************
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transicional//EN" " http://www.w3.org/TR/html4/loose.dtd ">
<html>
<cabeza>
<meta http-equiv="Tipo de contenido" content="text/html; charset=gb2312">
<title>Copia de seguridad y restauración de bases de datos</title>
</cabeza>
<cuerpo>
<%
%>
<ancho de tabla="80%" borde="0" align="centro">
<tr>
<td width="21%" valign="top">Dispositivo de base de datos:</td>
<td ancho="79%">
<iframe name="dev" src="dev.asp" width="100%" height="200" frameborder="0" scrolling="no"></iframe>
</td>
</tr>
<tr>
<td>Agregar dispositivo:</td>
<td>Nombre del dispositivo:
<nombre de entrada="nombredev" tipo="texto" id="nombredev" tamaño="10" maxlength="10"></td>
</tr>
<tr>
<td></td>
<td>Ruta del archivo:
<nombre de entrada="nombrephy" tipo="texto" id="nombrephy" tamaño="20" maxlength="50">
<input type="button" value="Agregar dispositivo" onClick="document.all.dev.src='dev.asp?AddDev=1&devname='+document.all.devname.value+'&phyname='+document.all .phyname.valor;"></td>
</tr>
<tr>
<td valign="top">Copia de seguridad/Restauración:</td>
<td>
Nombre de la base de datos:
<%
rec li, "seleccione el nombre de master..sysdatabases donde estado = 16"
%>
<seleccione nombre="b_data">
<%
mientras no sea vida
respuesta.Escribe "<option value="&li(0)&">"&li(0)&"</option>"
li.movenext
encaminarse a
cdbli
%>
</seleccionar><br>
Copia de seguridad en el dispositivo: <%
rec li, "seleccione nombre, phyname de master..sysdevices donde estado = 16"
%>
<seleccione nombre="b_dev">
<%
mientras no sea vida
respuesta.Escribe "<option value="&li(0)&">"&li(0)&"(archivo:"&li(1)&")</option>"
li.movenext
encaminarse a
cdbli
%>
</seleccionar><br>
<input name="Botón" tipo="botón" valor="Copia de seguridad de base de datos" onClick="window.location='cmd.asp?action=backup&database='+document.all.b_data.value+'&dev='+document. todo.b_dev.value;">
<input name="Botón" tipo="botón" valor="Restaurar base de datos" onClick="window.location='cmd.asp?action=RESTORE&database='+document.all.b_data.value+'&dev='+documento. all.b_dev.value;"> </td>
</tr>
<tr>
<td></td>
<td></td>
</tr>
</tabla>
</cuerpo>
</html>
cmd.asp
<!--#include file="conn.asp"-->
<%
en caso de error reanudar siguiente
si solicitud("acción") <> "" entonces
si solicitud("acción")="copia de seguridad" entonces
sql ="RESPALDO DE BASE DE DATOS "&request("base de datos")&" A "& request("dev")
cmdsql
si número de error > 0 entonces
respuesta.Escribir "<script language=javascript>alert('database"&request("database")&"¡Error en la copia de seguridad!');window.location='default.asp';</script>"
demás
respuesta.Escribir "<script language=javascript>alert('Database"&request("database")&"¡Copia de seguridad exitosa!');window.location='default.asp';</script>"
terminar si
demás
sql ="RESTAURAR BASE DE DATOS "&request("base de datos")&" De "& request("dev")
cmdsql
si número de error > 0 entonces
respuesta.Escribir "<script language=javascript>alert('Database"&request("database")&"¡La restauración falló!');window.location='default.asp';</script>"
demás
respuesta.Escribir "<script language=javascript>alert('database"&request("database")&"¡Restaurado correctamente!');window.location='default.asp';</script>"
terminar si
terminar si
terminar si
%>
¡Espero que todos puedan comunicarse entre sí! Pregunta: 1168064