Discussion :

[Poussy-Puce]

Bonjour, j'ai une page qui doit offrir à l'utilisateur d'enregistrer ou d'ouvrir un fichier X dont je ne sais pas le format.

J'ai un script qui fonctionne très bien avec les pdf, mais je ne suis pas capable d'ouvrir un eps ou un jpg.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
NomFichier = "06731100214.eps"    
 
if NomFichier <> "" then
      Response.ContentType = "application/octet-stream"
      Response.AddHeader "content-disposition", "attachment; filename=" & NomFichier 
      Set Stream = server.CreateObject("ADODB.Stream")
      Stream.Open
      Stream.LoadFromFile "d:\share\" & NomFichier 
      ContenuFichier = Stream.ReadText
      Response.BinaryWrite ContenuFichier
      Stream.Close
      Set Stream = Nothing
Else
     Response.Redirect "failure.htm"
end if

Est-ce que quelqu'un saurait me dire ou est mon problème, et dans le meilleur des mondes, me dire comment je pourrais le régler!!!

[Poussy-Puce]

y'a personne qui peut m'aider?!?!??!?!?!?!?

[ryan]

Yop!


Je me suis aussi frotté à ce genre de pb il y a quelques temps pour streamer un ficher mdb. Je n'y suis jamais arrivé car il semble que le serveur était réglé pour ne pas streamer certains types de fichiers, dont les mdb. J'ai donc laissé tomber

Tout ce que je peux faire pour toi, c'est te donner le code des deux solutions que j'avais testées.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
<% 
Response.ContentType = "application/mdb"  
Response.AddHeader "Content-Transfer-Encoding", "binary;"
Response.AddHeader "Content-Disposition", "attachment; filename=backup.mdb;"
 
thepath = server.mappath("/") & "\backup\backup.mdb" 
 
'SOLUTION 1
 
set fsob = Server.CreateObject("Scripting.FileSystemObject")
set thefile = fsob.OpentextFile(thepath)
response.BinaryWrite(thefile.ReadAll)
 
'SOLUTION 2
 
Set fsob = Server.CreateObject("Scripting.FileSystemObject")
set thefile = fsob.getfile(thepath)
Set ts = thefile.OpenAsTextStream(1,-1)
response.BinaryWrite(ts.ReadAll)
ts.close
set ts = Nothing
 
set fsob =  Nothing
set thefile = Nothing
%>

En espérant que cela puisse t'aider...


Ryan

[Immobilis]

Pourquoi t'utilises pas ASPSmartUpload?