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
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.