Gem billed hos bruger - hentet fra db - evt. Kombi af filer givne
Systemet skal udlevere en billed-fil(jpg) til en bruger.Jeg har selve filen der bliver kaldt SaveImg.asp, Filen der henter et billed i DB'en GetImage.asp og filen som viser det den henter i DB'en se.asp
Håber spørgsmålet er ordenligt formuleret.
Jeg vil gerne have implementeret disse filer i en.. hvis muligt.. ellers bare en løsning der virker.. :)
SaveImage.asp
-------------
<%
Dim objStream, strFile, strFileType
Const adTypeBinary = 1
' Filen vi vil sende til brugeren
strFile = "b.gif"
' Filens MIME type
strFileType = "image/gif"
' Åbner stream
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
' Fortæller ADODB.Stream at indholdet er i binært format
objStream.Type = adTypeBinary
' Henter filen ind i vores stream
objStream.LoadFromFile(Server.MapPath(strFile))
' Sender en header til browseren
Response.AddHeader "content-disposition","attachment; filename=" & strFile
' Fortæller browseren om vores MIME type
Response.ContentType = strFileType
' Skriver filens indhold ud til brugeren
Response.BinaryWrite(objStream.Read)
Response.Flush()
objStream.Close()
Set objStream = Nothing
%>
GetImage.asp
------------
<!-- #include file="db_def.inc"-->
<%
strSQL="Select Picture From image_db Where ImageIndexNo=" & Request.QueryString("ID")
Set rs = connection.Execute(strSQL)
Response.BinaryWrite rs("Picture")
%>
<!-- #include file="dbslut.asp"-->
se.asp
------
<html>
<body>
<%
id = 1
%>
<img src="getImage.asp?id=<%= ID %>"><p>
</body>
</html>
