Mas preciso renomear cada imagem que é inserida, mas não estou conseguindo alguém poderia me ajudar? Segue o script:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Set Upload = Server.CreateObject("Persits.Upload.1") ' Use AspJpeg to resize image Set Jpeg = Server.CreateObject("Persits.Jpeg") Path = "upload/" ' Capture and save uploaded image to the same directory as script Upload.Save Server.MapPath(Path) For Each File in Upload.Files If File.ImageType <> "JPG" Then Response.Write "This is not a JPGE image." File.Delete Response.End End If Jpeg.Open File.Path IF Jpeg.OriginalWidth > Jpeg.OriginalHeight THEN Jpeg.Width = 450 ' largura landscape Jpeg.Height = 338 ' altura landscape ELSE Jpeg.Width = 338 ' largura paisagem Jpeg.Height = 450 ' altura paisagem END IF Jpeg.Save Server.MapPath(Path) & "\small_" & File.FileName %> <IMG SRC="upload/<% = "small_" & File.FileName %>"><P> <% Next %>
Abraços
Edição feita por: graffdesign, 06/10/2006, 23:21.