<Body>
<Form Method = Post Name = MyForm>
<%If Action = RESTORE Entonces%> <Input type = Hidden name = Action value = RESTORE> Prepárese para restaurar la base de datos. Esencia Esencia
<%Elseif Action = Backup Then%> <input type = Hidden name = Action value = Backup> Prepare una base de datos de copia de seguridad. Esencia Esencia <%Else%>
Seleccionar operación:
<Input type = Radio name = the Action id = Act_backup value = Backup> <etiqueta for = act_backup> Backup </etiqueta>
<Input type = Radio name = the Action id = ACT_RESTORE VALOR = RESTORE> <etiqueta for = act_restore> Recovery </label> <%end if%>
<br> Nombre de la base de datos: <input type = text name = databaseName valor = 50forum>
<br> ruta del archivo: <input type = text name = bak_file value = 50forum.bak> (ruta de archivo de copia de seguridad o recuperación) <br>
<input type = enviar value = OK>
</form>
<%
'SQL Server 数据库的备份与恢复!
'http://www.tfxy.com
dim sqlserver,sqlname,sqlpassword,sqlLoginTimeout,databasename,bak_file,act
SQLServer = STER SQL de LocalHost
sqlname = sa 'nombre de usuario
sqlpassword = SA 'contraseña
sqllogintimeut = 15 'Tiempo de espera de agrupación
databAsename = TRIM (request (dataBAsename))
bak_file = trim (request (bak_file))
bak_file = server.mappath (copia de seguridad/y bak_file)
Act = lcase (solicitud (acción))
Si dataBASEname = entonces
Respuesta. Escribe el nombre de la base de datos de entrada
demás
if Action = Backup entonces
Establecer srv = server.createObject (sqldmo.sqlserver)
srv.logintimeut = sqllogintimeut
srv.connect sqlserver, sqlname, sqlpassword
Establecer bak = server.createObject (sqldmo.backup)
bak.database = databAsename
bak.devices = archivos
bak.files = bak_file
Bak.action = 0
bak.initialize = 1
'Bak.replacedatabase = True
bak.sqlbackup srv
Si err.number> 0 entonces
Response.Write Err.Number & <font color = rojo> <br>
Response.Write Eric. Descripting & </font>
final si
Response.write <font color = verde> ¡La copia de seguridad es exitosa!
srv.disconnect
Establecer srv = nada
Establecer bak = nada
elseif act = restaurar entonces
'Cuando se recupere, ¡no use la base de datos!
Establecer srv = server.createObject (sqldmo.sqlserver)
srv.logintimeut = sqllogintimeut
srv.connect sqlserver, sqlname, sqlpassword
Establecer REST = Server.CreateObject (sqldmo.restore)
REST.ACTION = 0 'Restauración de DB completa
REST.DATABASE = DATABASENAME
REST.devices = archivos
REST.FILES = BAK_FILE
REST.RePLACEDATABASE = True 'Force Restauración sobre la base de datos existente
Si err.number> 0 entonces
response.write err.number&<font color=red><br>
Response.Write Eric. Descripting & </font>
final si
REST.SQLRESTORE SRV
Response.write <font color = verde>
srv.disconnect
Establecer srv = nada
Establecer reposo = nada
demás
Response.Write <Font Color = Red> No Choice Operation </font>
final si
final si
%>
</body>
</Html>