"Thrane" <kyskoen@stofanet.dk> skrev i en meddelelse
news:453dc521$0$3530$edfadb0f@dread11.news.tele.dk...
>
> "Neuhafen" <neuhafen sNaBeL-A neuhafen dk> wrote in message
> news:453dbcce$0$823$edfadb0f@dread12.news.tele.dk...
>>
>> Se.... Det var jo LIIIIGE det jeg skulle bruge !!!
>> Har du eventuelt en source kode som du vil dele med almenheden ?
>>
>> Neuhafen
>>
>>
>
> Lav en "GetFile.asp" med dette indhold:
>
> <%
> ' Get file details
> Filename = server.HTMLEncode(Trim(cstr("" & request("Filename"))))
>
> ' create stream object
> on error resume next
> Set GetFile = Server.CreateObject("ADODB.Stream")
> GetFile.Type = 1
> GetFile.Open
> GetFile.LoadFromFile Server.Mappath("\downloads\"&Filename)
> If Err.number = 0 Then
> Response.Clear
> Response.ContentType = "application/octet-stream"
> Response.AddHeader "Content-Disposition", "attachment;
> filename="&Filename
> Response.AddHeader "Content-Transfer-Encoding","binary"
> Response.BinaryWrite GetFile.Read
> GetFile.Close
> Set GetFile = Nothing
> Response.End()
> Else '< Error
> GetFile.Close
> Set GetFile = Nothing
> Response.Redirect("/default.asp?p=error")
> End If
> %>
>
> I ovenstående bestemmer du selv hvor filerne skal hentes fra
> ("\downloads\...)
> Det er så den folder alle filerne skal ligge i og giv den gerne et navn
> man
> ikke lige gætter!
> Nederst kan du sætte filen til at redirecte til en anden side, hvis filen
> ikke findes.
>
> Link til en fil således:
> <a href="GetFile.asp?Filename=<%=server.URLEncode("Filens navn med
> ext")%>">Linknavn</a>
>
> Alternativt kan man oprette underfoldere i downloadfolderen og så smide
> filerne der.
> Så skal du blot have et par ekstra ting med:
>
> Filename = server.HTMLEncode(Trim(cstr("" & request("Filename"))))
> Foldername = server.HTMLEncode(Trim(cstr("" & request("Foldername"))))
>
> Erstat:
> GetFile.LoadFromFile Server.Mappath("\downloads\"&Filename)
> Med:
> GetFile.LoadFromFile Server.Mappath("\downloads\"&FolderName&"\"&FileName)
>
> Linket skal så se således ud:
> <a href="GetFile.asp?Foldername=<%="Fodlernavn UNDER downloads"
> %>Filename=<%=server.URLEncode("Filens navn med ext")%>">Linknavn</a>
>
>
> Håber det er til at forstå!
Læst, forstået og implementeret !!!
TAK !
Neuhafen
>
> /Thrane
>
>