Dall'archivio script > Classic ASP

Forzare l'apertura di un file fuori dal browser

di Daniele BochicchioDaniele Bochicchio, in Classic ASP, Tips, Misc,

Quanto è fastidioso essere costretti a far vedere un PDF nello schermo di un browser?
Questo esempio, anche se usa un file GIF, è riadattabile a diverse soluzioni, dai file di Word (DOC) fino a quelli di Excel, per finire con i PDF.

<%

  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

  
%>

La versione del Microsoft XML Parser 3.0 (uscita il 31 Ottobre) è più stabile e non ha problemi di performance.
E' possibile scaricarlo su

http://msdn.microsoft.com/xml/general/xmlparser.asp

Commenti

Visualizza/aggiungi commenti

| Condividi su: Twitter, Facebook, LinkedIn
Aggiorna

Per inserire un commento, devi avere un account.

Fai il login e torna a questa pagina, oppure registrati alla nostra community.

Approfondimenti

Nessuna risorsa collegata

I più letti di oggi