Jump to content


Photo

Renomear Uma Imagem Durante O Upload


  • Faça o login para participar
1 reply to this topic

#1 graffdesign

graffdesign

    Turista

  • Usuários
  • 28 posts
  • Sexo:Não informado
  • Localidade:Rio de Janeiro

Posted 06/10/2006, 23:20

Fiz esse script de upload com o componente ASPUpload e redimencionei com o componente ASPJpeg.

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.


#2 replay

replay

    Agora a vida começa...

  • Usuários
  • 421 posts
  • Sexo:Não informado

Posted 07/10/2006, 00:23

www.aspupload.com

consute o manual do usuario ou o guia de referncias e veja algo sobre o File.FileName...

Valeu :P
Não me adicione no MSN pq eu não vo te ajuda... se insistir eu vo ser grosso!!!
Ta com dúvida pergunta aqui no fórum...
Grato




0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq