ciao ho un problema con il codice per salvare immagini sul server di aruba. Il codice che ho scritto salva in effetti le immagini nella cartella public, il problema è che io vorrei salvare solo le immagini che il mio codice ridimensiona e non l'originale, vi posto il codice
Siccome ho preso parte di uno script du internet, non riesco a capire dove salva l'immagine con le dimensioni originalicodice:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <title>Salvataggio immagini</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <% Set Upload = Server.CreateObject("Persits.Upload.1") percorso=Server.MapPath("/public") On Error Resume Next Upload.Save(percorso) Set File = Upload.Files("FILE1") Set Jpeg = Server.CreateObject("Persits.Jpeg") Path = percorso & "/" & File.FileName 'Creazione foto piccole Jpeg.Open Path Jpeg.Width = Jpeg.OriginalWidth /24 Jpeg.Height = Jpeg.OriginalHeight /24 Jpeg.Save (percorso & "/" & "thumb_"&File.FileName) 'Creazione foto grandi Jpeg.Open Path Jpeg.Width = Jpeg.OriginalWidth /8 Jpeg.Height = Jpeg.OriginalHeight /8 Jpeg.Save (percorso & "/" & "thumb2_"&File.FileName) %>
saluti Roberto
Rispondi quotando