22. januar 2003 - 13:34
Der er
1 kommentar og
1 løsning
Aspupload til bestemt ID
Hvordan får jeg aspupload til at lægge et billede ind på et bestemt id, på databasen ?
FORM:
<input type="text" name="ID" VALUE="<%=rs("id")%>">
<input type="file" name="FILE1"></td>
Jeg bruger dette script:
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.SetMaxSize 50000, True
Upload.SaveVirtual("/log/")
For Each Item in Upload.Form
Next
For Each File in Upload.Files
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " &_
"DBQ=" & Server.Mappath("/log/base.mdb") & ";"
File.ToDatabase strDSN, "insert into hold(ID, Path, Data) " &_
"values('"&FileID&"', '"&File.Path&"', ?)"
if Err <> 0 Then
Response.Write "Error saving the file: " & Err.Description
Else
File.Delete
Response.Write "File "&FileID&", uploaded!<br>"
End If
Next
%>
22. januar 2003 - 13:40
#1
Hvis du vil opdater databasen skal du bruge en UPDATE SQL og ikke INSERT
UDATE tabelnavn SET kolonnenavn = værdi, kolonnenavn2 = værdi WHERE ID = 343
Så din kode skal være i stil med dette:
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.SetMaxSize 50000, True
Upload.SaveVirtual("/log/")
fileID = upload.form("id")
For Each File in Upload.Files
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " &_
"DBQ=" & Server.Mappath("/log/base.mdb") & ";"
File.ToDatabase strDSN, "update hold set Path = '"&File.Path&"', data = '?' where id = " & fileID
if Err <> 0 Then
Response.Write "Error saving the file: " & Err.Description
Else
File.Delete
Response.Write "File "&FileID&", uploaded!<br>"
End If
Next
%>
