alexdemarco
04-10-2007, 08:56
Ciao a tutti.
Con lo script riportato, ho la possibilità di far scegliere all'utente se aprire un file nel browser o scaricarlo in locale. E' possibile impedire la visualizzazione del pulsante "open", lasciando solo "Save", anche se il file da scaricare ha un'estensione che IE riesce a leggere?
Al limite posso intercettare il click dell'utente sul pulsante "Open"?
Grazie
*********
Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = adTypeBinary
objStream.Open
objStream.LoadFromFile FName
Response.AddHeader "Content-Disposition", "attachment; filename=" & request("f") & LCase (Right(rs("file"), 4))
FType = LCase (Right(rs("file"), 4))
if FType = ".pdf" then
Response.ContentType = "application/pdf"
elseif FType = ".doc" then
Response.ContentType = "application/msword"
else
Response.ContentType = "application/octet-stream"
end if
Response.BinaryWrite objStream.Read
Response.Flush()
Response.End()
objStream.Close
Set objStream = Nothing
Con lo script riportato, ho la possibilità di far scegliere all'utente se aprire un file nel browser o scaricarlo in locale. E' possibile impedire la visualizzazione del pulsante "open", lasciando solo "Save", anche se il file da scaricare ha un'estensione che IE riesce a leggere?
Al limite posso intercettare il click dell'utente sul pulsante "Open"?
Grazie
*********
Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = adTypeBinary
objStream.Open
objStream.LoadFromFile FName
Response.AddHeader "Content-Disposition", "attachment; filename=" & request("f") & LCase (Right(rs("file"), 4))
FType = LCase (Right(rs("file"), 4))
if FType = ".pdf" then
Response.ContentType = "application/pdf"
elseif FType = ".doc" then
Response.ContentType = "application/msword"
else
Response.ContentType = "application/octet-stream"
end if
Response.BinaryWrite objStream.Read
Response.Flush()
Response.End()
objStream.Close
Set objStream = Nothing