Upload billede til database
Fortsættelse af tidligere spørgsmålhttp://www.eksperten.dk/spm/792094
Jeg har en medlemsliste, hvor en bruger har ønsket mulighed for at tilknytte et foto.
Fennec skrev sådan til mig:
Går ud fra du allerede har et upload script, som gemmer billeder i databasen. Det script skla vi have ændret til at gemme i en folder i stedet.
Kan du vise os den kode? Det behøver kun være selve ASP delen. Altså der hvor du kalder dit upload komponent og gemme i databasen.
Start med at tage et kik i manualen til ASPupload. De har rigtige gode kode eks.
Specielt denne side som kombinere fil og form felter. Der er det nemt at smide en database indsættelse ind i:
http://www.aspupload.com/manual_simple.html
Her har de et fuldt eks med den opbygning du har nu. Altså filerne gemmes binært i databasen, men også hvor de bare gemme filnavnet:
http://www.aspupload.com/manual_db.html
Jeg har kigget på de anbefalede link og har også fået lavet en formular og en asp-fil som uploader en billedfil til en mappe: upload, men jeg kan godt nok ikke finde ud af at få billedet ind i databasen.
Jeg har også lavet en database: db/aspupload.mdb
Column - Type - Description
id - Autonumber - Unique record ID
image_blob - OLE Object - Stores file BLOB
filename - Text (50) - Stores file name
filesize - Number - Stores file size
description - Text (255) - Stores file description
hash - Text (50) - Stores one-way hash value of file
Skal jeg bruge den også?
Koden i asp-filen ser sådan ud:
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = False
On Error Resume Next
Upload.SetMaxSize 1048576 ' Limit files to 1MB
Count = Upload.Save(Server.MapPath("/upload"))
%>
<HTML>
<link href="file:///e|/Hjemmesider/Dreamweawer/TOENDER%20LIVE/stylesheet/iframe.css" rel="stylesheet" type="text/css">
<CENTER>
<% If Err <> 0 Then %>
<H3>Følgende fejl opstod:</h3>
<h2>"<% = Err.Description %>"</h2>
<A HREF="uploadform.asp" class="link">prøv igen</A>
<% Else %>
<h1>Tillykke! - dit billede er blevet uploaded</h1>
<TABLE BORDER=1 CELLPADDING=3 CELLSPACING=0>
<TH class="bg_raekke">Billede</TH>
<TH class="bg_raekke">Størrelse</TH>
<TH class="bg_raekke">Original størrelse</TH>
<TR>
<% For Each File in Upload.Files %>
<% If File.ImageType = "GIF" or File.ImageType = "JPG" or File.ImageType = "PNG" Then %>
<TD ALIGN=CENTER>
<IMG SRC="/upload/<% = File.FileName%>"><BR><B><% = File.OriginalPath%></B><BR>
(<% = File.ImageWidth %> x <% = File.ImageHeight %> pixels)
</TD>
<% Else %>
<TD><B><% = File.OriginalPath %></B></TD>
<% End If %>
<TD ALIGN=RIGHT VALIGN="TOP"><% =File.Size %> bytes</TD>
<TD ALIGN=RIGHT VALIGN="TOP"><% =File.OriginalSize %> bytes</TD><TR>
<% Next %>
</TABLE>
<P>
<% End If %>
