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.
