--- title: "Hjälp med ASPupload!" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/163138-hjälp-med-aspupload" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "M.Cheraghi" published: "2007-08-02T15:57:38.000Z" updated: "2007-08-03T11:39:39.000Z" replies: 2 views: 504 page: 1 pages: 1 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/163138-hjälp-med-aspupload" --- # Hjälp med ASPupload! ## #1 — M.Cheraghi, 2007-08-02T15:57Z Hej hej. Jag har efter en väldigt lång tid börjat småprogrammera i ASP igen, dom få kunskaper jag hade är nästan borta numera. Har vart inne på och läst deras väldigt bra guider. Men jag lyckas ändå inte få det hela att fungera tråkigt nog! :( ``` <% Set Upload = Server.CreateObject("Persits.Upload") Upload.Save strComment = Upload.Form("strComment") strSQL = "INSERT INTO tblFlog (kommentar) VALUES ('"& strComment &"')" conn.execute(strSQL) set rs = Conn.execute( "select @@IDENTITY from tblFlog") strID = rs(0) Path = Server.MapPath("../upload") File.SaveAs path & "/" & strID & File.Ext %> ``` Det jag vill göra är att: 1\. Ladda upp bilden 2\. Lägga till en kommentar i databasen 3\. Använda ID numret från databasen till att döpa om bilden till det unika numret 4\. spara bilden i "../upload" med ID-numret som namn + filändelsen. > Feltyp: > Körningsfel i Microsoft VBScript (0x800A01A8) > Objekt krävs.: '' > line 22 Permalänk: https://www.webforum.nu/p/163138 ## #2 — Melitta, 2007-08-02T16:55Z Testa detta: ``` Set Upload = Server.CreateObject("Persits.Upload") Upload.Save for each file in upload.files strComment = Upload.Form("strComment") strSQL = "INSERT INTO tblFlog (kommentar) VALUES ('"& strComment &"')" conn.execute(strSQL) set rs = Conn.execute( "select @@IDENTITY from tblFlog") strID = rs(0) Path = Server.MapPath("../upload") File.SaveAs path & "/" & strID & File.Ext next ``` Permalänk: https://www.webforum.nu/p/2011304 ## #3 — Eclipse, 2007-08-03T11:39Z Du behöver inte spöka ut din kod med funktioner som finns inbyggt. mannen.jpg mannen(1).jpg mannen(2).jpg ``` ' ## ASPJPEG ' ## [url]http://www.aspjpeg.com/[/url] ' ## NO OVERWRITE Upload.OverwriteFiles = False ``` ``` ' ## ASP SMART UPLOAD ' ## [url]http://www.aspsmart.com/aspSmartUpload/[/url] ' ## CHECK IF FILE EXISTS DIM fso, myFileName, myArray DIM strFileName, strExt, intCounter SET fso = CreateObject("Scripting.FileSystemObject") myFileName = mySmartUpload.Files.Item(1).FileName IF fso.fileExists( server.MapPath("\images\" & myFileName ) ) THEN myArray = split( myFileName, ".", -1, 1) strFileName = myArray(0)& "_" intCounter = 1 strExt = "." & myArray(1) myFileName = strFileName & intCounter & strExt ' ## CHECK FOR DUPLICATES WHILE (fso.fileExists(server.MapPath("\images\" & myFileName))) myFileName = strFileName & CInt(intCounter) +1 & strExt intCounter = intCounter + 1 WEND END IF ``` Permalänk: https://www.webforum.nu/p/2011511 --- Tråden på webben: https://www.webforum.nu/amne/asp/163138-hjälp-med-aspupload