Vi backup e restauração de banco de dados. A maior parte é feita usando componentes. Na verdade, isso pode ser feito por meio de instrução SQL.
Devido a limitações de tempo, os parâmetros não foram verificados e a interface embelezada. O código é apenas para referência.
Um total de 4 arquivos: Endereço de download: function rec(rs,sql)
definir rs = server.CreateObject("ADODB.Recordset")
rs.Activeconnection = conexão
rs.Fonte = sql
rs.CursorType = 0
rs.Cursorlocalização = 3
rs.LockType = 1
rs.Abrir
se rs.eof e rs.bof então
rec = falso
outro
rec = verdadeiro
terminar se
função final
função cmd(sql)
escurecer cmd1
definir cmd1 = server.CreateObject("ADODB.Command")
cmd1.ActiveConnection = conexão
cmd1.CommandText=sql
cmd1.CommandType = 1
cmd1.CommandTimeout = 0
cmd1.Preparado = verdadeiro
cmd1.Execute()
função final
função cdb(rs)
rs.fechar()
definir rs = nada
função final
%>
dev.asp
<!--#include file="conn.asp"-->
<%
if request("AddDev") <> ""então
sql="selecione nome,phyname de master..sysdevices onde status=16 e name='"&request("devname")&"'"
rec verificar,sql
se chk.eof e chk.bof então
sql = "sp_addumpdevice 'disco','"&request("devname")&"','"&request("phyname")&"'"
cmdsql
resposta.Write "<script language=javascript>window.location=reload;</script>"
outro
response.Write "<script language=javascript>alert('O dispositivo já existe no banco de dados"&request("devname")&"Device!');window.location='cmd.asp';</script>"
terminar se
terminar se
if request("deldev") <> ""então
sql = "sp_dropdevice '"&request("devname")&"'"
cmdsql
resposta.Write "<script language=javascript>window.location=reload;</script>"
terminar se
rec li,"selecione nome,nome físico de master..sysdevices onde status=16"
se li.eof e li.bof então
response.Write "<font color=#ff0000>Por favor, crie um novo dispositivo de backup para fazer backup e restaurar o banco de dados</font>"
outro
%><style type="text/css">
<!--
corpo {
margem esquerda: 0px;
margem superior: 0px;
}
-->
</estilo>
<table width="60%" border="0" cellpacing="0">
<tr>
<td width="29%">Nome:</td>
<td width="71%">Posição:</td>
</tr>
<%
eu=0
enquanto não li.eof
eu=eu+1
%>
<tr>
<td><%=li(0)%></td>
<td><%=li(1)%> <a href='dev.asp?DelDev=1&devname=<%=li(0)%>'>Excluir este dispositivo</a></td>
</tr>
<%
li.movnext
vamos
resposta.Write "<script language=javascript>top.document.all.dev.height='"&(i+1)*25&"';</script>"
cdbli
%>
</tabela>
<%
terminar se
%>
padrão.asp
< %@LANGUAGE="VBSCRIPT " CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
'************************************************
'Backup e restauração de banco de dados
'Programação: Magic Yang (MagicYang.CN)
'Data de conclusão: 11/04/2004
'Explicação: Devido a limitações de tempo, a segurança dos dados não foi verificada.
'Por favor, verifique os dados ao se inscrever para garantir a segurança.
'QQ: 1168064 Dê as boas-vindas a todos para se comunicarem uns com os outros
'************************************************
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" " http://www.w3.org/TR/html4/loose.dtd ">
<html>
<cabeça>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Backup e restauração de banco de dados</title>
</head>
<corpo>
<%%
>
<table width="80%" border="0" align="center">
<tr>
<td width="21%" valign="top">Dispositivo de banco de dados:</td>
<td largura="79%">
<iframe name="dev" src="dev.asp" width="100%" height="200" frameborder="0" scrolling="no"></iframe>
</td>
</tr>
<tr>
<td>Adicionar dispositivo:</td>
<td>Nome do dispositivo:
<input name="devname" type="text" id="devname" size="10" maxlength="10"></td>
</tr>
<tr>
<td> </td>
<td>Caminho do arquivo:
<input name="phyname" type="text" id="phyname" size="20" maxlength="50">
<input type="button" value="Adicionar dispositivo" onClick="document.all.dev.src='dev.asp?AddDev=1&devname='+document.all.devname.value+'&phyname='+document.all .phyname.value;"></td>
</tr>
<tr>
<td valign="top">Backup/Restauração:</td>
<td>
Nome do banco de dados:
<%
rec li,"selecione o nome de master..sysdatabases onde status=16"
%>
<selecione nome="b_data">
<%
enquanto não li.eof
resposta.Escreva "<option value="&li(0)&">"&li(0)&"</option>"
li.movnext
vamos
cdbli
%>
</select><br>
Backup para dispositivo: <%
rec li,"selecione nome,nome físico de master..sysdevices onde status=16"
%>
<selecione nome="b_dev">
<%
enquanto não li.eof
resposta.Escreva "<option value="&li(0)&">"&li(0)&"(arquivo:"&li(1)&")</option>"
li.movnext
vamos
cdbli
%>
</select><br>
<input name="Button" type="button" value="Fazer backup do banco de dados" onClick="window.location='cmd.asp?action=backup&database='+document.all.b_data.value+'&dev='+document. all.b_dev.value;">
<input name="Button" type="button" value="Restaurar banco de dados" onClick="window.location='cmd.asp?action=RESTORE&database='+document.all.b_data.value+'&dev='+document. all.b_dev.value;"> </td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</tabela>
</body>
</html>
cmd.asp
<!--#include file="conn.asp"-->
<%
em caso de erro, retome a seguir
if request("ação") <> ""então
if request("action")="backup" então
sql ="BACKUP BANCO DE DADOS "&request("banco de dados")&" To "& request("dev")
cmdsql
se err.number > 0 então
resposta.Write "<script language=javascript>alert('database"&request("database")&"Falha no backup!');window.location='default.asp';</script>"
outro
response.Write "<script language=javascript>alert('Database"&request("database")&"Backup bem sucedido!');window.location='default.asp';</script>"
terminar se
outro
sql ="RESTORE BANCO DE DADOS "&request("banco de dados")&" De "& request("dev")
cmdsql
se err.number > 0 então
response.Write "<script language=javascript>alert('Database"&request("database")&"Restauração falhou!');window.location='default.asp';</script>"
outro
response.Write "<script language=javascript>alert('database"&request("database")&"Restaurado com sucesso!');window.location='default.asp';</script>"
terminar se
terminar se
terminar se
%>
Espero que todos possam se comunicar uns com os outros! QQ: 1168064