backup de mdb via asp

[Mamax 0]

Preciso fazer download de um banco de dados hospedado na locaweb via asp. Isso é possível?

 

Obrigado antecipadamente,

 

Rodrigo

[xanburzum 169]

utilize o painel de administração do site, você pode compactar e fazer o download.

[Vinicius Ianni 189]

Pode fazer algo do tipo file explorer usando fso.

No laboratorio de scripts tem alguns bom exemplos disso.

Abaixo um link que pode te ajudar sobre o FSO:

http://www.w3schools.com/asp/asp_ref_filesystem.asp

[xanburzum 169]

olha este exemplo, Faz o backup do banco de dados especificado para a pasta especificada e pode ser usado em uma base diária, uma vez que verifica a existência de um arquivo com a data de hoje antes de copiar o arquivo, assim mesmo se você não executá-lo várias vezes em um dia ainda vai apenas criar um backup.

   <%
   dim fs,fo,x

   '##### Insira os detalhes do seu banco de dados aqui #####
   SourcePath = "c:\inetpub\DatabasePath\"
   SourceFilename = "Nomedobanco.mdb"
   DestinationPath = "d:\BackupPath\"
   BackupFile = ""Nomedobanco.mdb" ' terá a data yyy-mm-dd- a ele com DestinationFileName
   '############################################
   DestinationFilename = Year(now()) & "-" & FillDigit(Month(Now())) & "-" & FillDigit(Day(Now()))  & "-" & BackupFile
   Set fs=Server.CreateObject("Scripting.FileSystemObject")
   'Create new backup file
   if fs.FileExists(DestinationPath & DestinationFileName) = False then
       fs.CopyFile SourcePath & SourceFileName, DestinationPath & DestinationFileName, False
       Response.Write "<br /><br />"
   Else
       Response.Write "Backup do banco concluído<br /><br />"
   End if
   set fo=fs.GetFolder(DestinationPath)
   ' Count Files
   for each x in fo.files
     Files = Files + 1
   next
   ' Delete files > 10
   for each x in fo.files
       If Files > 10 Then
           fs.DeleteFile(DestinationPath & x.Name)
           Files = Files - 1
       End if
   next
   ' Display Directory
   for each x in fo.files
     'Print the name of all files in the test folder
     Response.write(x.Name & "<br />")
   next
   set fo=nothing
   set fs=nothing
   Response.End
   Function fillDigit(intDigit)
       Select Case len(intDigit)
       Case 1
           fillDigit = "0" & intDigit
       Case Else
           fillDigit = intDigit
       End Select
   End Function
   %>