Download fil som på downloads.com

<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
If (fs.FileExists("d:\home\fzydk\www\patina\mp3\" & (rsMusik.Fields.Item("Link").Value)))=true Then
response.write ("<meta http-equiv=""Refresh"" content=""2;url=mp3/" & (rsMusik.Fields.Item("Link").Value)  & """>"
Response.Write ("Hvis din download ikke starter automatisk, så klik her: <a href=""mp3/" & (rsMusik.Fields.Item("Link").Value) & """>&raquo; Download MP3</a>")
Else
      Response.Write("")
End If
    set fs=nothing
%>


Sådan her ??

nej, det var min fejl...

Læste det ikke helt igennem tror jeg.

måske kan du bruge det script der omtales i det spg jeg har oprettet her: http://www.eksperten.dk/spm/377238.

Hvis du laver en fil der hedder download.asp (fx.) du kan selv vælge et navn.
I den fil skal du have følgende kode:

<%@ Language=VBScript LCID=1030 EnableSessionState=False %>
<% 'download.asp
Option Explicit
Dim strFileSpec, objStream

strFileSpec = request.querystring("file")

Set objStream = Server.CreateObject("ADODB.Stream")

objStream.Type = 1
objStream.Open
objStream.LoadFromFile (strFileSpec)
Response.ContentType = "audio/mpeg3"
Response.BinaryWrite (objStream.Read)

objStream.Close
Set objStream = Nothing
%>

Så skal dit andet script se ud som dette:
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
If (fs.FileExists("d:\home\fzydk\www\patina\mp3\" & (rsMusik.Fields.Item("Link").Value)))=true Then
Response.Write ("<a href=""download.asp?file=mp3/" & (rsMusik.Fields.Item("Link").Value) & """>&raquo; Download MP3</a>")
Else
      Response.Write("")
End If
    set fs=nothing
%>

Så tror jeg det virker.

no go --- prøv og se linket
den skal også helst åbne i en ny side så den anden ikke lukkes :)

<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
If (fs.FileExists("d:\home\fzydk\www\patina\mp3\" & (rsMusik.Fields.Item("Link").Value)))=true Then
Response.Write ("<a href=""download.asp?file=mp3/" & (rsMusik.Fields.Item("Link").Value) & """ target=""_blank"">&raquo; Download MP3</a>")
Else
      Response.Write("")
End If
    set fs=nothing
%>

Så prøv denne i stedet.

så prøver den at åbne: http://www.fzy.dk/patina/download.asp?file=mp3/MyLife.mp3%20target=

Ja det er jo heller ikke helt godt kan man sige..
Men dette burde være rigtigt.

<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
If (fs.FileExists("d:\home\fzydk\www\patina\mp3\" & (rsMusik.Fields.Item("Link").Value)))=true Then
Response.Write ("<a href=""download.asp?file=mp3/" & (rsMusik.Fields.Item("Link").Value) & """ target=""_blank"">&raquo; Download MP3</a>")
Else
      Response.Write("")
End If
    set fs=nothing
%>

elle - prøv og lur linket og klik på Download MP3 - den springer ikke op i nyt window ...

det er dette link den prøver at finde i address linien:
http://www.fzy.dk/patina/download.asp?file=mp3/MyLife.mp3%20target=


Fejlen:
ADODB.Stream error '800a0bba'
File could not be opened.
/patina/download.asp, line 12

selvfølgelig..

jeg mangler at afslutte fildelen ;-)

link linien skal være som dette:

Response.write ("<a href=""download.asp?file=mp3/" & (rsMusik.fields.Item("Link").Value) & """ target=""_blank"">&raquo; Download MP3</a>")

http://www.fzy.dk/patina/index.asp

den fejler stadig.

Men linien skal se ud som dette.
Response.write ("<a href=""download.asp?file=mp3/" & (rsMusik.fields.Item("Link").Value) & """ target=""_blank"">&raquo; Download MP3</a>")

Problemet er at der skal være 2x " efter &" der hvor du definere linket og før target=""_blank""

Jeg har konstant problemer med "" efter en linie... Det er fordi eksperten af en eller anden grund sletter dem, jeg forstår det ikke helt..

Men der skal altså være 3x" i stedet for kun 1x" efter &-tegnet... Håber det er forståeligt.

det var bedre - men den finder ikke filen...
prøv og se linket :)

har du nogen ide om hvorfor den ikke finder filen...

undskyld den sene tilbagemelding, jeg har været syg og ikke været ved en computer...

Men prøv evt. at rette denne linie:
strFileSpec = request.querystring("file")

til:
strFileSpec = server.mappath(request.querystring("file"))

nu er det mig der ligger syg :)
vender tilbage asap

så kan jeg sku downloade - nice ;)
kunne ikke lade være med lige at prøve det

men den downloader download.asp filen, prøv og kig på linket

http://www.fzy.dk/patina/index.asp

Jeg har selv haft en del problemer med præcis det problem, jeg kan ikke huske hvordan det skal løses, for det er jo den rigtige fil der ender med at blive downloadet. Meget mystisk..

Jeg kigger på det. 5 min.

:) - ja . sjovtr at den renamer filen til download.asp

du siger bare til hvis du finder en løsning :)

jeg har ikke fundet løsningen, for det var noget med at problemet til tider lå i borwser versionen...

Jeg testede lidt på mit eget script...
Og nogen gange afhængigt af hvilken computer jeg bruger, så virker det, og andre gange ikke. det er meget mærkeligt.

Her er det spg. som jeg arbejdede med: http://www.eksperten.dk/spm/377238

Så jeg tror ikke der er nogen fornuftig løsning på det problem.

okay - det er strange når man ellers ser det implementeret på så mange sider. anyways - hvad vil du foreslå jeg gør ?
tak for hjælpen... points