3 svar · 340 visningar · startad av sthlmkillen88
Jag håller på och kodar en bilduppladdningsfunktion till ett skript. Jag har tänkt använda aspupload. När man laddar upp filer via formulär använder jag enctype="multipart/form" i formtaggen. Problemet ligger i att jag inte kan skriva ut datan med Request.Form. Hur kan jag skriva ut datan?
Upload.Form
Du kan använda detta exempel:
<%
Set Upload = Server.CreateObject("Persits.Upload")
' Capture files
Upload.SaveVirtual("upload")
' Obtain file object
Set File = Upload.Files("THEFILE")
If Not File Is Nothing Then
' Build ODBC connection string
Connect = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("sökvägtilldb.mdb")
aktuellt="select * from nyheter where 1=2"
' Use ADO Recordset object
Set rs = Server.CreateObject("adodb.recordset")
' Reopen recordset to insert file
rs.Open aktuellt, Connect, 2, 3
rs.Addnew
rs("bild") = File.ExtractFileName
rs("headline") = Upload.Form("headline_")
rs("lank") = Upload.Form("lank_")
rs("news") = Upload.Form("news_")
rs("forstas") = Upload.Form("forstas_")
rs.Update
Response.Write "Filen finns nu på servern.<br>"
Else
Response.Write "Ingen fil uppladdad.<br>"
End If
%>
timedia skrev:
Du kan använda detta exempel:
<% Set Upload = Server.CreateObject("Persits.Upload") ' Capture files Upload.SaveVirtual("upload") ' Obtain file object Set File = Upload.Files("THEFILE") If Not File Is Nothing Then ' Build ODBC connection string Connect = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("sökvägtilldb.mdb") aktuellt="select * from nyheter where 1=2" ' Use ADO Recordset object Set rs = Server.CreateObject("adodb.recordset") ' Reopen recordset to insert file rs.Open aktuellt, Connect, 2, 3 rs.Addnew rs("bild") = File.ExtractFileName rs("headline") = Upload.Form("headline_") rs("lank") = Upload.Form("lank_") rs("news") = Upload.Form("news_") rs("forstas") = Upload.Form("forstas_") rs.Update Response.Write "Filen finns nu på servern.<br>" Else Response.Write "Ingen fil uppladdad.<br>" End If %>
Vad är det för fel med denna kod, inget laddas upp till databasen, det enda som laddas upp är bilden men inget sparas i db
Set Upload = Server.CreateObject("Persits.Upload")
' Capture files
Upload.SaveVirtual("/images/gallery")
' Obtain file object
Set File = Upload.Files("THEFILE")
If Not File Is Nothing Then
' Build ODBC connection string
Connect = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/db/Inloggning.mdb")
laddaUpp="select * from tblUsers_Galleri"
' Use ADO Recordset object
Set rs = Server.CreateObject("adodb.recordset")
' Reopen recordset to insert file
rs.Open laddaUpp, Connect, 2, 3
rs.Addnew
rs("bild") = File.ExtractFileName
rs("tillhor") = Upload.Form("tillhor")
rs("alt") = Upload.Form("alt")
rs("inlagd") = Upload.Form("inlagd")
rs.Update
Response.Redirect "/aspUpload/?m=success"
Else
Response.Redirect "/aspUpload/?m=failed"
End If