SA Fileup - SaveAsBlob
hej!jeg prøver på at uploade en fil til en database gennem SA FileUp-komponenten. Jeg har læst at man skal bruge SaveAsBlob
Eksemplet fra deres hjemmeside ser således ud:
<%
set rsBlob = Server.CreateObject(\"ADODB.Recordset\")
rsBlob.Open \"SimpleBlobTable\", \"AccessUpload\", 2, 3
rsBlob.AddNew
upl.SaveAsBlob rsBlob.Fields(\"filecol\")
rsBlob.Update
rsBlob.Close
Set rsBlob = Nothing
%>
Min kode er her:
<form name=f1 ENCTYPE=\"MULTIPART/FORM-DATA\" METHOD=\"POST\" ACTION=\"saveasblob2.asp\">
<table>
<tr>
<td ALIGN=\"RIGHT\" VALIGN=\"TOP\" width=\"20\">Filnavn</td>
<td ALIGN=\"LEFT\"><input TYPE=\"FILE\" NAME=\"FILE1\"></td>
</tr>
<tr>
<td ALIGN=\"RIGHT\"></td>
<td ALIGN=\"LEFT\"><input TYPE=\"SUBMIT\" NAME=\"SUB1\" VALUE=\"Upload\"></td>
</table>
</form>
submitter til denne side:
<%
Set upl = Server.CreateObject(\"SoftArtisans.FileUp\")
\'upl.Path = Server.MapPath(\"/\")
if upl.form(\"FILE1\").IsEmpty then
Response.Write \"Du glemte at udfylde feltet \"\"Filnavn\"\". Klik <a HREF=\"\"saveasblob.asp\"\">her</a> for at prøve igen.\"
else
STARTconn
strStrippedFilnavn = Mid(upl.form(\"FILE1\").UserFileName, InstrRev(upl.UserFilename, \"\\\") + 1)
upl.SaveAsBlob strStrippedFilnavn
eller noget andet???
upl.SaveAsBlob objRs(\"File_Data\") ???????
sql = \"INSERT INTO TEST (filename,filesize) VALUES (\'\" & strStrippedFilnavn & \"\',\" & upl.form(\"FILE1\").TotalBytes & \")\"
objConn.Execute(sql)
end if
%>
<P>Du har nu oploadet <%=upl.Form(\"FILE1\").UserFilename%></P>
<%
ENDconn
%>
Filename i databasen er filnavnet, filsize er filstørrelsen. Til selve filen har jeg et felt der hedder File_data som er af typen \"binary\".
Hvad gør jeg forkert???
