scaricare un database da una directory protetta

[sherlock]

scaricare un database da una directory protetta

ciao a tutti,
ho un database .mdb in un'area protetta del mio sito per cui se creo un link per lo scaricamento non me lo fa fare (in quanto questa directory del server è accessibile agli script, ma non al navigatore, pur autenticato che sia come nel mio caso!).
Per cui mi occorrerebbe uno script che effettua la copia del database, o che dalla pagina crea un .mdb, o cose simili...
mah!
grazie,

Marco

[cali1981]

@sherlock said:

ciao a tutti,
ho un database .mdb in un'area protetta del mio sito per cui se creo un link per lo scaricamento non me lo fa fare (in quanto questa directory del server è accessibile agli script, ma non al navigatore, pur autenticato che sia come nel mio caso!).
Per cui mi occorrerebbe uno script che effettua la copia del database, o che dalla pagina crea un .mdb, o cose simili...
mah!
grazie,

Marco
da ftp non ci puoi andare?

[sherlock]

sì, da ftp sì, ma ho bisogno di creare per altri utenti della mia azienda la possibilità di farlo non tramite ftp, ma direttamente tramite un link...

[cali1981]

@sherlock said:

sì, da ftp sì, ma ho bisogno di creare per altri utenti della mia azienda la possibilità di farlo non tramite ftp, ma direttamente tramite un link...
Non potresti fare uno script che ti legge il file e poi te lo ricopia sulla stream di risposta?

[sherlock]

mi sembra un'ottima idea,ma non so come ralizzarlo!

Marco

[cali1981]

@sherlock said:

mi sembra un'ottima idea,ma non so come ralizzarlo!

Marco
Innanzitutto, php, asp o asp.net?

[sherlock]

asp grazie!!

[cali1981]

@sherlock said:

asp grazie!!
Prova così:

<%@ Import Namespace="System.IO" %>
<script language="vb" runat="server">

Sub Page_Load(sender as Object, e as EventArgs)

  Dim strFile as String
  strFile = Server.MapPath("nomefile")
  Dim objStream as Stream = File.Open(strFile , FileMode.Open)

  Dim buffer(objStream.Length) as Byte

  objStream.Read(buffer, 0, objStream.Length)

  objStream.Close()

  Response.BinaryWrite(buffer)

End Sub

</script>

[sherlock]

mi dà questo errore...

Active Server Pages error 'ASP 0221'
Invalid @ Command directive
/admin/mdb.asp, line 1
The specified 'Import Namespace="System.IO" ' option is unknown or invalid.

cosa può essere?
grazie!

Marco

[cali1981]

@sherlock said:

mi dà questo errore...

Active Server Pages error 'ASP 0221'
Invalid @ Command directive
/admin/mdb.asp, line 1
The specified 'Import Namespace="System.IO" ' option is unknown or invalid.

cosa può essere?
grazie!

Marco
Quello sopra è codice vb per asp.net. Se cerchi in giro trovi qualcosa di analogo per asp.

[sherlock]

...immagino, ma il problema è che non so nemmeno sotto cosa cercare!
scusami se ti stresso!
grazie,

Marco

[cali1981]

Prova questo:

Dim objStream
  Set objStream = Server.CreateObject("ADODB.Stream")
 
  objStream.Type = adTypeBinary
  objStream.Open
  objStream.LoadFromFile Server.MapPath("prova.zip")
 
  Response.ContentType = "application/x-zip-compressed" ' se è zip, senò quello che vuoi!
  Response.BinaryWrite objStream.Read
 
  objStream.Close
  Set objStream = Nothing

o questo

 Response.Buffer = True

  Dim objXMLHTTP, StrURL, StrNome
 
  StrURL = "http://store.aspitalia.com/ads/banners/concorso.gif"
  StrNome = "banner.gif"

  Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
  'Utilizziamo la versione 3 che non ha problemi di performance
  'per la 2 usare Microsoft.XMLHTTP

  objXMLHTTP.Open "GET", StrURL, False

  ' Richiama il file
  objXMLHTTP.Send

  ' Aggiunge un header per far scaricare il file
  Response.AddHeader "Content-Disposition", _
                    "attachment;filename=" & StrNome

  ' Imposta il content su octet-stream, forzando l'apertura fuori dal browser
  Response.ContentType = "application/octet-stream"

  ' Manda il contenuto con BinaryWrite
  Response.BinaryWrite objXMLHTTP.responseBody

  Set xml = Nothing

Se cerchi asp file download o simili trovi tutto.

Ciao!

[sherlock]

risolto!!!!
GRAZIE MILLE!!!!

Marco