--- title: "bilduppladdning" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/160674-bilduppladdning" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Vinnaren" published: "2007-05-24T19:07:31.000Z" updated: "2007-05-25T11:48:13.000Z" replies: 29 views: 857 page: 1 pages: 2 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/160674-bilduppladdning" --- # bilduppladdning _Sida 1 av 2._ ## #1 — Vinnaren, 2007-05-24T19:07Z Hej Jag behöver hjälp med min bilduppladdning. har hittills följande kod: ``` Set Upload = Server.CreateObject("Persits.Upload.1") Count = Upload.Save("c:\upload") Upload.SetMaxSize 50000 Upload.OverwriteFiles = False bildNamn = SafeSQL(Upload.Files(1).ExtractFileName) bildAgare = CLng(session("userID")) bildTyp = ?? objConn.execute("INSERT INTO bildHistorik (bildAgare, bildNamn, bildTyp)" & " VALUES (" & bildAgare & ", '" & bildNamn & "', '" & bildTyp & "')") Response.Write ""&bildNamn&" är nu sparad" ``` Det man laddar upp sparas, men nu vill jag att filen man laddar upp ska få ett ID nummer av databasen som filnamn. Sen så ska filnamnet sparas i databasen vilket det gör, men jag vill även att filtypen ska sparas i databasen i kolumnen bildTyp typ gif, png osv. Hur löser jag dessa två saker?? Tacksam för all hjälp Permalänk: https://www.webforum.nu/p/160674 ## #2 — voigtann1, 2007-05-25T05:52Z ``` bildTyp = SafeSQL(Upload.Files(1).ImageType) ``` skulle jag gissa på en snabb läsning på Permalänk: https://www.webforum.nu/p/1980789 ## #3 — Vinnaren, 2007-05-25T07:06Z ok, men hur får jag ut den genererade PK i databasen när jag sparar bilden där?? Så man vet vilket namn bilden ska ha??? Permalänk: https://www.webforum.nu/p/1980803 ## #4 — voigtann1, 2007-05-25T07:13Z va? Du har sparat sökvägen på databasen inte bilden, bilden har du laddat upp på c:\\upload på din Server... om vi säger nu att din sida ligger rakt på c:\\ så får du göra en databas öppning med SELECT \* From bildHistorik Sen göra något recordset som loopar ut alla bilder med något i stil med: ``` do until rs.eof response.write "" rs.movenext loop ``` Permalänk: https://www.webforum.nu/p/1980807 ## #5 — Vinnaren, 2007-05-25T07:20Z hmm jag måste ju spara bildens namn i databasen först. Sen så ska bilden få ett nytt namn, det ID-nummer som den fick i databasen Permalänk: https://www.webforum.nu/p/1980810 ## #6 — voigtann1, 2007-05-25T07:23Z läs har för mig dom har en bra tutorial om detta.. Permalänk: https://www.webforum.nu/p/1980811 ## #7 — Vinnaren, 2007-05-25T07:26Z ok, har läst den ett antal gånger. Men problemet just nu är hur får jag ut det ID som bilden får när man sparar den i databasen? Permalänk: https://www.webforum.nu/p/1980813 ## #8 — @nders, 2007-05-25T07:26Z Ett alternativ är ju att direkt efter insert hämta ut id med *select @@identity*, och sedan använda FSO för att byta namn på filen som har laddats upp. Om man inte orkar göra på rätt sätt, dvs göra insert innan dess att man sparar filen alltså. Permalänk: https://www.webforum.nu/p/1980814 ## #9 — Vinnaren, 2007-05-25T07:36Z ok, har nu följande kod: ``` Set Upload = Server.CreateObject("Persits.Upload") bildNamn = SafeSQL(Upload.Files.ExtractFileName) bildAgare = CLng(session("userID")) bildTyp = SafeSQL(Upload.Files.ImageType) '####Kontrollerar om namnet på filen redan finns Set objRS = objConn.Execute("SELECT * FROM bildHistorik WHERE bildNamn= "&bildNamn) IF objRS.EOF THEN objConn.execute("INSERT INTO bildHistorik (bildAgare, bildNamn, bildTyp)" & " VALUES (" & bildAgare & ", '" & bildNamn & "', '" & bildTyp & "')") 'Hämtar ut bildens id nummer Set objRS1 = objConn.Execute("SELECT bildID FROM bildHistorik WHERE bildNamn= "&bildNamn) IF NOT objRS1.EOF THEN Count = Upload.Save("c:\upload\" & objRS("bildID") & "." & Upload.Files.ImageType & "") Upload.SetMaxSize 50000 Upload.OverwriteFiles = False Response.Write ""&bildNamn&" är nu sparad" ELSE Response.Write "Bilden kunde inte sparas i databasen" END IF ELSE Response.Write "Filnamnet finns redan i databasen" END IF ``` Men jag får följande felmeddelande när bilden ska sparas: Object doesn't support this property or method: 'Upload.Files.ExtractFileName' på raden: bildNamn = SafeSQL(Upload.Files.ExtractFileName) Permalänk: https://www.webforum.nu/p/1980816 ## #10 — @nders, 2007-05-25T07:40Z @@identity var inget att tänka på för att hämta rätt id? Dessutom måste du lära dig att ha apostrofer runt strängvärden (bildnamn till exempel) i dina SQL-frågor. I tillägg tror jag minsann att du måste spara filen till minne först (typ utan att ange sökväg) och sedan kan du komma åt dess egenskaper. När du är klar med allt annat kan du så spara till disk. Permalänk: https://www.webforum.nu/p/1980818 ## #11 — Vinnaren, 2007-05-25T07:53Z provar detta sätt först för att få ut ID:t. har nuu följande kod: ``` Count = Upload.Save("c:\temp") bildNamn = SafeSQL(Upload.Files.ExtractFileName) bildAgare = CLng(session("userID")) bildTyp = SafeSQL(Upload.Files.ImageType) '####Kontrollerar om namnet på filen redan finns Set objRS = objConn.Execute("SELECT * FROM bildHistorik WHERE bildNamn= '"&bildNamn&"'") IF objRS.EOF THEN objConn.execute("INSERT INTO bildHistorik (bildAgare, bildNamn, bildTyp)" & " VALUES (" & bildAgare & ", '" & bildNamn & "', '" & bildTyp & "')") 'Hämtar ut bildens id nummer Set objRS1 = objConn.Execute("SELECT bildID FROM bildHistorik WHERE bildNamn= '"&bildNamn&"'") IF NOT objRS1.EOF THEN Upload.SetMaxSize 50000 Upload.OverwriteFiles = False Upload.Files(1).MoveVirtual ("c:\upload\" & objRS("bildID") & "." & Upload.Files.ImageType & "") Response.Write ""&bildNamn&" är nu sparad" ELSE Response.Write "Bilden kunde inte sparas i databasen" END IF ELSE Response.Write "Filnamnet finns redan i databasen" END IF ``` Men jag får samma felmeddelande som innan. Bilden sparas dock i temp mappen, men sen kommer felmeddelandet: Object doesn't support this property or method: 'Upload.Files.ExtractFileName' Permalänk: https://www.webforum.nu/p/1980819 ## #12 — @nders, 2007-05-25T07:56Z Du har ju ändrat på din kod. Files är en collection. Så här har du skrivit i ditt första inlägg: ``` bildNamn = SafeSQL(Upload.Files(1).ExtractFileName) ``` Permalänk: https://www.webforum.nu/p/1980820 ## #13 — Vinnaren, 2007-05-25T07:58Z oki, nu kommer jag ialla fall ner till raden ``` Upload.Files(1).MoveVirtual ("c:\upload\" & objRS("bildID") & "." & Upload.Files.ImageType & "") ``` innan det kraschar. Får nu felmeddelandet: Exception occurred. Permalänk: https://www.webforum.nu/p/1980821 ## #14 — @nders, 2007-05-25T08:14Z samma sak här: Upload.Files.ImageType Permalänk: https://www.webforum.nu/p/1980825 ## #15 — Vinnaren, 2007-05-25T08:33Z hjälpte inte att ändra, får samma felmeddelande :q Permalänk: https://www.webforum.nu/p/1980828 ## #16 — @nders, 2007-05-25T08:36Z Varför använder du MoveVirtual och anger en full sökväg? Permalänk: https://www.webforum.nu/p/1980830 ## #17 — Vinnaren, 2007-05-25T08:41Z hmm, för mycket copy & paste ;) Har nu provat: ``` File.Move ("c:\upload\" & objRS("bildID") & "." & Upload.Files(1).ImageType & "") ``` och ``` Upload.Move ("c:\upload\" & objRS("bildID") & "." & Upload.Files(1).ImageType & "") ``` men bägge ger samma felmeddelande som innan §jr Permalänk: https://www.webforum.nu/p/1980831 ## #18 — voigtann1, 2007-05-25T08:45Z Upload.Move ("c:\\upload\\" & objRS("bildID") & "." & Upload.Files(1).ImageType & "") du behöver inte ha & "" i slutet... annars måste du använda dig av & """ Permalänk: https://www.webforum.nu/p/1980833 ## #19 — @nders, 2007-05-25T08:52Z Har du skapat objektet File då? (Du kan inte använda objektet Upload, metoden Move tillhör file-objektet) Permalänk: https://www.webforum.nu/p/1980835 ## #20 — Vinnaren, 2007-05-25T08:53Z får nu felmeddelandet: Object doesn't support this property or method: 'Upload.Move' på samma rad som tidigare Permalänk: https://www.webforum.nu/p/1980836 --- Tråden på webben: https://www.webforum.nu/amne/asp/160674-bilduppladdning Nästa sida: https://www.webforum.nu/amne/asp/160674-bilduppladdning/page2.md