O backup online ASP e a recuperação do banco de dados do SQL Server são uma solução temporária para amigos que não fornecem conexão remota do SQLServer ou download de pacotes. banco de dados sql server de backup on-line asp:
1. Faça backup do SQLServer
Copie o código do código da seguinte forma:
<%
SQL=nome do banco de dados de backup para disco='&Server.MapPath(backup)&/&backuptext.dat&'
definir cnn=Server.createobject(adodb.connection)
cnn.open driver={SQL Server};Servidor=nome do servidor;uid=sa;pwd=
cnn.execute SQL
em caso de erro, retome a seguir
se err<>0 então
Erro response.wrITe:&err.Descripting
outro
response.wrITe Backup de dados bem-sucedido!
terminar se
%>
2. Restaure o SQLServer
Copie o código do código da seguinte forma:
<%
SQL=Restaurar nome do banco de dados do disco='&Server.MapPath(backup)&/&backuptext.dat&'
definir cnn=Server.createobject(adodb.connection)
cnn.open driver={SQL Server};Servidor=nome do servidor;uid=sa;pwd=
cnn.execute SQL
em caso de erro, retome a seguir
se err<>0 então
Erro response.wrITe:&err.Descripting
outro
response.wrITe Recuperação de dados bem-sucedida!
terminar se
%>
O princípio de ACESSO é o mesmo
Copie o código do código da seguinte forma:
<%
'******************************************
função CopyTo(ByVal cFile,ByVal toFile)
cFile=Server.MapPath(cFile) 'O arquivo do qual será feito backup
toFile=Server.MapPath(toFile) 'Arquivo de backup
Dim cFso,cf
definir cFso=Server.CreateObject(Scripting.FileSystemObject)
cFso.fileexists(cArquivo)
cFso.Copyfile cFile,toFile
função final
'************************************************
'ASP implementa operações de backup e restauração do banco de dados ACCESS
'Esta página é databackup.asp
dim dbpath,bkfolder,bkdbname,fso,fso1
chamar principal()
chame main2()
conexão.fechar
definir conn = nada
subprincipal()
se solicitação(ação)=Backup então
chamar dados de backup()
outro
%>
<tabela cellpacing=1 cellpadding=1 alinhar=largura central=90%>
<tr>
<ésima altura=25 >
<B>Backup de banco de dados</B>
</th>
</tr>
<método de formulário=post action=databackup.asp?action=Backup>
<tr>
<td altura=100 estilo=altura da linha:150%>
Caminho atual do banco de dados (caminho relativo):
<tipo de entrada=tamanho do texto=15 nome=valor do caminho do banco de dados=../mdb/database.mdb><BR>
Diretório do banco de dados de backup (caminho relativo):
<input type=text size=15 name=bkfolder value=../Databackup> Caso o diretório não exista, o programa irá criá-lo automaticamente<BR>
Nome do banco de dados de backup (preencha o nome):
<input type=text size=15 name=bkDBname value=database.mdb> Se o diretório de backup tiver este
O arquivo será sobrescrito. Caso não exista, será criado automaticamente<BR>.
<input type=submIT value=Dados de backup><hr align=center width=90% color=#999999></td>
</tr>
</form>
</tabela>
<%
terminar se
final sub
subprincipal2()
if request(action)=Restaurar então
Dbpath=request.form(Dbpath)
backpath=request.form(backpath)
se dbpath = então
response.wrITe Por favor, insira o nome completo do banco de dados que você deseja restaurar
outro
Dbpath=servidor.mappath(Dbpath)
terminar se
backpath = servidor.mappath (backpath)
Caminho de retorno Response.wrITe
Definir Fso=server.createobject(scripting.filesystemobject)
se fso.fileexists(dbpath) então
fso.copyfile Dbpath, Backpath
response.wrITe <font color=red>Dados recuperados com sucesso! </font>
outro
response.wrITe <font color=red>Não há nenhum arquivo de backup para você no diretório de backup! </font>
terminar se
outro
%>
<alinhamento da tabela = center cellpacing = 1 cellpadding = 1 largura = 90%>
<tr>
<ésima altura=25 >
<B>Restaurar banco de dados</B>
</th>
</tr>
<método de formulário=post action=databackup.asp?action=Restore>
<tr>
<td altura=100>
Caminho do banco de dados de backup (relativo):
<tipo de entrada=tamanho do texto=30 nome=valor do caminho do banco de dados=../Databackup/database.mdb> <BR>
Caminho atual do banco de dados (relativo):
<input type=text size=30 name=backpath value=../mdb/database.mdb><BR>
<input type=submIT value=Recuperar dados> <hr width=90% align=center color=#999999>
<font color=#666666>·Observação: todos os caminhos são relativos</font></td>
</tr>
</form>
</tabela>
<%
terminar se
final sub
dados de subbackup()
Dbpath=request.form(Dbpath)
Dbpath=servidor.mappath(Dbpath)
bkfolder=request.form(bkfolder)
bkdbname=request.form(bkdbname)
Definir Fso=server.createobject(scripting.filesystemobject)
se fso.fileexists(dbpath) então
Se CheckDir(bkfolder) = True então
fso.copyfile dbpath,bkfolder& //& bkdbname
outro
MakeNewsDir bkfolder
fso.copyfile dbpath,bkfolder& //& bkdbname
terminar se
response.wrITe <font color=red>O backup do banco de dados foi bem-sucedido. O caminho do banco de dados do qual você fez backup é &bkfolder& //& bkdbname+</font>.
Outro
response.wrITe <font color=red>O arquivo do qual você precisa fazer backup não foi encontrado. </font>
Terminar se
final sub
'------------------Verifica se existe um determinado diretório------------------
Função CheckDir(FolderPath)
folderpath=Server.MapPath(.)&//&folderpath
Definir fso1 = CreateObject(Scripting.FileSystemObject)
Se fso1.FolderExists(FolderPath) então
'existir
CheckDir = Verdadeiro
Outro
'não existe
CheckDir = Falso
Terminar se
Defina fso1 = nada
Função final
'------------Gera um diretório baseado no nome especificado---------
Função MakeNewsDir(nome da pasta)
escurecer f
Definir fso1 = CreateObject(Scripting.FileSystemObject)
Definir f = fso1.CreateFolder (nome da pasta)
MakeNewsDir = Verdadeiro
Defina fso1 = nada
Função final
%>