25. april 2004 - 15:36Der er
11 kommentarer og 1 løsning
upload billede plus filnavn i database
<html> <head></head> <body> <% if Request.ServerVariables("REQUEST_METHOD") = "POST" then
' Object creation Set upload = Server.CreateObject("aspSmartUpload.SmartUpload") 'Max størrelse i bytes upload.MaxFileSize = 100000000000000000
'Upload filerne til memory upload.Upload
For each file In upload.Files If not file.IsMissing Then filnavn = "/images/crew/" & Session("nngadmin") & "." & file.FileExt file.SaveAs filnavn end if next
' Trap errors If Err Then Response.Write("<b>Wrong selection : </b>" & Err.description) End If
'Gem filnanvet i databasen
%> <center> Filen er nu uploaded og gemt </center> <% else %>
Der opstod en Microsoft VBScript-kørselsfejl (0x800A000D) Typer stemmer ikke overens: 'SaveAs' /nng/upload.asp, line 18
For each file In upload.Files If not file.IsMissing Then filnavn = "/images/crew/" & Session("nngadmin") & "." & file.FileExt file.SaveAs filnavn end if next
ups glemt lige det med at gemme i databasen det kommer her..
<html> <head></head> <body> <% if Request.ServerVariables("REQUEST_METHOD") = "POST" then
On Error Resume Next ' Object creation Set upload = Server.CreateObject("aspSmartUpload.SmartUpload") 'Max størrelse i bytes upload.MaxFileSize = 1000000000000000000
'Upload filerne til memory upload.Upload
For each file In upload.Files If not file.IsMissing Then filnavn = "/images/crew/" & Session("nngadmin") & "." & file.FileExt file.SaveAs filnavn end if next
' Trap errors If Err Then Response.Write("<b>Wrong selection : </b>" & Err.description) End If
'Gem filnanvet i databasen if filnavn <> "" then Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("database/brugernavne.mdb") sql = "UPDATE Tuser set filnavn = '"&session("nngadmin")&".jpg' where FBruger = '" & session("nngadmin") & "'" Conn.Execute(SQL) Conn.Close Set Conn = Nothing end if
%> <center> Filen er nu uploaded og gemt </center> <% else %>
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
