problem med at tvinge download af filer

Jamen hvorfor kalder du dine filer som skal downloades for FilNavn.Gif.Asp ?

-du skal ikke ha' .asp med!

//>Rune

Evt. læs denne artikel:

http://www.abiglime.com/webmaster/articles/asp/020998.htm

//>Rune

Du kan bruge dette script:


Du skal havde rette i denne linje som angiver hvilken fil der skal downloades:
grabfile = server.mappath(".") & "\" & request.querystring(("File"))

Her forvendter den at filen ligger i samme folder som ASP filen og så skal den havde fil nanvet på den som skal downloades i en QueryString file eks pålinl

downloadfil.asp?file=q1c.dwg



<%
if instr(request.servervariables("HTTP_USER_AGENT"),"MSIE")>0 then
  Response.ContentType = "application/x-download"
else
  Response.ContentType = "application/octet-stream"
end if
response.addheader "Content-disposition", "inline; filename=" & request.querystring(("File"))   
grabfile = server.mappath(".") & "\" & request.querystring(("File"))
Set oFM = CreateObject("SoftArtisans.FileManager")
Set oBS = oFM.OpenBinaryFile( grabfile )
Response.BinaryWrite( oBS.ReadAll )
%>

Her er også et eks på kode:
http://www.psacake.com/web/if.asp

-medions/Rune: jeg prøvede at omdøbe min asp-side til en dwg fil, men det ændrede ikke noget. Jeg går i gang med at læse artiklen, og se om jeg bliver klogere af det.
-eagleeye: Din kode kræver vist at man har installeret en komponent fra SoftArtisans, der kommer i hvert fald en server fejl:
ActiveX component can't create object: 'SoftArtisans.FileManager'

Jo ok så ret:
Set oFM = CreateObject("SoftArtisans.FileManager")
Set oBS = oFM.OpenBinaryFile( grabfile )
Response.BinaryWrite( oBS.ReadAll )


Til:
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile grabfile

Response.BinaryWrite objStream.Read

Eller prøv det sidste link.

Jepper, jeg læser og læser, men jeg får også en del forslag ind fra en anden kilde, så jeg har travlt med at holde styr på de forskellige filer...

OK, så fik jeg det til at virke, det holdt hårdt... Min endelige kode kom til at se sådan her ud:
<%
Response.Buffer = True
Dim strFilePath, strFileName

Const adTypeBinary = 1

strFilePath = server.Mappath("../filer/" & Right(Request.querystring("tegning"), 3) & "/" & Request.querystring("tegning"))
strFileName = Request.querystring("tegning")

Response.Clear

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath

strFileType = lcase(Right(strFileName, 4))

ContentType = "bad/type"

Response.AddHeader "Content-Disposition", "attachment; filename=" & strFileName

Response.Charset = "UTF-8"
Response.ContentType = ContentType

Response.BinaryWrite objStream.Read
Response.Flush

objStream.Close
Set objStream = Nothing

%>
Det fik jeg fra det link eagleeye lagde.
Tak for hjælpen!