hi,
ich hab's mittlerweile soweit das er mir das file schreibt:
<%
Response.Expires = 0
Response.Buffer = TRUE
Response.Clear
Response.ContentType = "audio/mpeg3"
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
Server.MapPath("test.mdb")
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open strCon
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorType = adOpenStatic
objRS.cachesize = 5
strSQL = "Select * From [mp3] Where mp3_id = " & Request("mp3")
objRS.open strSQL, objCon,3,1
Response.BinaryWrite objRS.Fields("mp3_file")
Response.End
%>
wenn ich die datei jetzt aufrufe, also
download.asp?mp3={86D9B0EA-47E0-4B6A-90CB-C5D3BF4DBFCB}
dann l�sst er mich genau das file was in der db steht auch downloaden...
problem dabei: windoof will es als .asp abspeichern, d.h. das file was
ich dann downloade hei�t download.asp ... (ist aber das richtige file,
denn nach der umbenennung der ext in .mp3 funzt es)
kann mir da jemand auf die spr�nge helfen?
> -----Original Message-----
> From: J�rgen Wehrle [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, May 16, 2002 5:11 PM
> To: ASP Diskussionsliste fuer Anfaenger
> Subject: [aspdebeginners] AW: Access+Binary
>
>
> hi,
> hier ein paar code-schnipsel, finde leider die doku dazu
> nicht mehr, aber vielleicht hilfts ja weiter. (ist aus einem
> VB-Programm)
>
> Gr�sse J�rgen
>
> 'bin�re Daten in db schreiben
>
> 'Open the picture file
> intNum = FreeFile
> Open verzeichnis & "\wappen_klein\0" & seite & ".gif" For
> Binary As #intNum ReDim bytBLOB(FileLen(verzeichnis &
> "\wappen_klein\0" & seite & ".gif")) 'Read the data and close
> the file Get #intNum, , bytBLOB Close #1
> rs.Fields("img_klein").AppendChunk bytBLOB rs.update
> ##############################################################
> #########################
> 'bin�re daten aus db lesen und bild anzeigen
>
> response.contenttype = "image/GIF"
>
> set field = rs("img_klein")
> BlockSize = 4096
> FileLength = Field.ActualSize
> NumBlocks = FileLength \ BlockSize
> LeftOver = FileLength Mod BlockSize
> Response.BinaryWrite Field.GetChunk(FileLength)
> Response.BinaryWrite Field.GetChunk(LeftOver) For intLoop =
> 1 To NumBlocks
> Response.BinaryWrite Field.GetChunk(BlockSize)
> Next
> Response.End
> %>
>
>
>
>
>
> -----Urspr�ngliche Nachricht-----
> Von: Thomas Bandt [mailto:[EMAIL PROTECTED]]
> Gesendet: Donnerstag, 16. Mai 2002 15:45
> An: ASP Diskussionsliste fuer Anfaenger
> Betreff: [aspdebeginners] Access+Binary
>
>
> Hallo,
>
> ich will dateien direkt in access speichern und dann auch mit
> ihnen arbeiten, d.h. auslesen, zum download bereitstellen usw.
>
> kennt da jemand ausf�hrliche quellen zu? habe weder auf
> aspheute noch woanders viel dazu gefunden :(
>
> Gru�,
>
> Thomas // http://www.drhirn.com/65
>
>
> | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
> | [aspdebeginners] als [EMAIL PROTECTED] subscribed
> | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv Sie
> | knnen sich unter folgender URL an- und abmelden:
> |
> http://www.aspgerman.com/aspgerman/listen/anme>
lden/aspdebeginners.asp
>
> | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
> | [aspdebeginners] als [EMAIL PROTECTED] subscribed
> | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv Sie
> | knnen sich unter folgender URL an- und abmelden:
> |
> http://www.aspgerman.com/aspgerman/listen/anme>
lden/aspdebeginners.asp
>
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
