Download fra rullemenu

Har du en upload komponent som ASPupload eller ASPSmartUpload? De kan godt bruges til det, ellers gøres det med ADODB.Stream.

Du kan lave det som en form så når man trykke på "submit"-knappen kan den tvinge en download af den valgte fil.



Eksempel på koden med ADODB.Stream:

<%
if request.form("mySelect") <> ""then

Const adTypeBinary = 1
' Filen vi vil sende til brugeren
strFile = request.form("mySelect")

strFileType = "image/jpeg"

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary  'Sæt binær læsning
objStream.LoadFromFile(Server.MapPath(strFile)) 'Load filen

' Sæt content header
Response.AddHeader "content-disposition","attachment; filename=" & strFile
Response.ContentType = strFileType  'Sæt fil typen

Response.BinaryWrite(objStream.Read)
Response.Flush()
objStream.Close()
Set objStream = Nothing
end if
%>

Der er jo ikke billeder... men regneark, word m.m.....

Jeg har ASPupload på serveren

Vil du giver et eksempel på dette, eller en kode jeg kan bruge..

/Toke

http://www.toti.dk/ems.toti.dk/test.asp
her er siden

Ok jeg antog bare det var billede filer, det ingen problem om det er word filer eller biledder :) 



<%
if request.form("mySelect") <> ""then

' Her kan stien bygges til filen som skal downloades:
fil = Request.form("mySelect")
filNavn = Server.MapPath(fil) 

Set Upload = Server.CreateObject("Persits.Upload") 
' Parmeters:
' 1. sti + filnavn på filen
' 2. Ja, build content-xxx headers
' 3. Content-Type header
' 4. Sæt til True fon for at tvinge download / Save As dialogen
Upload.SendBinary filNavn, True, "application/octet-binary", True
Set Upload = Nothing

end if
%>

Hmm...
Det forstår jeg ikke...

Kan du ikke lige skrive koden så jeg kan bruge den direkte..
Hvis du kan lave så den skriver: Vælg fil som første punkt..

Du kan godt få lidt ekstra points for det..

Jo, først skal du havde en form omking din select sådan her:

<form method="post" action="download.asp">
<select name="mySelect">
<%=sOptions%>
</select>
<input type="submit" name="download" value="Download File">
</form>


Så kan du lave en ny fil som hedder download.asp og ligge den i samme folder som den anden fil hvor man vælger filen. HVis du hellere vil havde det kan koen også ligge i samme fil.

Kopier dette ind i download.asp filen:
<%
if request.form("mySelect") <> ""then

' Her kan stien bygges til filen som skal downloades:
fil = Request.form("mySelect")
filNavn = Server.MapPath(fil) 

Set Upload = Server.CreateObject("Persits.Upload")
' Parmeters:
' 1. sti + filnavn på filen
' 2. Ja, build content-xxx headers
' 3. Content-Type header
' 4. Sæt til True fon for at tvinge download / Save As dialogen
Upload.SendBinary filNavn, True, "application/octet-binary", True
Set Upload = Nothing

end if
%>

Du kan evt. prøve at udvide download.asp med ContentType sat til enten word elle excel alt efter fil typen så skulle man få mulighed for enten "Åben" eller "Gem som" i browseren.


<%
if request.form("mySelect") <> ""then

' Her kan stien bygges til filen som skal downloades:
fil = Request.form("mySelect")
filNavn = Server.MapPath(fil) 
strFileType = lcase(Right(fil, 4))
' Tilføj flere Content-Types her hvis nødvendigt
Select Case strFileType
Case ".pdf"
ContentType = "application/pdf"
Case ".doc"
ContentType = "application/msword"
Case ".zip"
ContentType = "application/zip"
Case ".xls"
ContentType = "application/vnd.ms-excel"
Case ".rtf"
ContentType = "application/rtf"
Case Else
'Handle All Other Files
ContentType = "application/octet-binary"
End Select
Set Upload = Server.CreateObject("Persits.Upload")
' Parmeters:
' 1. sti + filnavn på filen
' 2. Ja, build content-xxx headers
' 3. Content-Type header
' 4. Sæt til True fon for at tvinge download / Save As dialogen
Upload.SendBinary filNavn, True, ContentType, True
Set Upload = Nothing

end if
%>

Hvad skal jeg lige gøre her for at få det til at virke?

---------' Parmeters:
' 1. sti + filnavn på filen
' 2. Ja, build content-xxx headers
' 3. Content-Type header
' 4. Sæt til True fon for at tvinge download / Save As dialogen
Upload.SendBinary filNavn, True, ContentType, True
Set Upload = Nothing
-----------

kopier koden ind. Så skulle det gerne virke, gør det ikke det?
Det var ment som en kort forklaring hvad .SendBinary skal havde at parametre

Det virker ikke...

Får du en fejl?

Nej jeg får bare siden kan ikke vises

ok, du skulle gerne få en bedre fejl kode/beskrivelse ved at slå denne fra i IE:

funktioner -> internetindstillinger -> avanceret -> fjern kryds i "vis meddelelse om uskadelige http-fejl"

http://ems.toti.dk/test.asp

Tjek denne side så kan du se hvad der sker...
nu virker det lidt bedre... den kommer da lidt længere..

Det underlidt for jeg har prøvet det.
I IE 6 vil den ikke download word eller excel filer. Den kan fint download .asp .gif .jpg filer.
Jeg har prøvet koden i FireFox og der ikke noget problem overhoved den modtager fint alle typer word/excel

Jeg har også prøvet at lave det ekspempel som bruger ADODB.Stream
Det giver det samme som med ASPupload. IE 6 vil ikke modtage word eller excel filer men det virker fint i FireFox.

Ja det må man da godt nok sige...
Hvad gør vi så??

Er ved at kigge på det. Umiddelnart kan jeg få det til at virke med ADODB.Stream metoden, man skulle åbenbart ikke åbne filen som binær men som tekst.

skod.. det fordi ASPUpload her fejl i deres eksepempl

Prøv at kopier dettte ind i download.asp filen:

<%
if request.form("mySelect") <> ""then

' Her kan stien bygges til filen som skal downloades:
fil = Request.form("mySelect")
filNavn = Server.MapPath(fil) 

Set Upload = Server.CreateObject("Persits.Upload")
' Parmeters:
' 1. sti + filnavn på filen
' 2. Ja, build content-xxx headers
' 3. Content-Type header
' 4. Sæt til True fon for at tvinge download / Save As dialogen
Upload.SendBinary filNavn, True, "application/octet-stream", True
Set Upload = Nothing

end if
%>

Hmm....
Der skal ikke være mere i download end det eller hvad??

Nej ikke med ASPupload.

hmm
Det giver ingen ændring hos mig..
Det er samme problem stadig...

Ok, så lige noget andet du lister filerne i folderen EL.
Så det EL skal enten i ind i value eller skrives direkte i koden så denne linje
filNavn = Server.MapPath(fil) 

Bliver:
filNavn = Server.MapPath("EL/"&fil)

Det var lige det dr skulle til.....
kanont..
Du har fået de 60 point.... skal du have flere?

/Toke