Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

graffdesign

ASPUpload renomear imagem

Recommended Posts

Fala gente, bom fiz um script bem simples de upload com ASPUpload, agora eu precisava antes de gravar as imagens renomeá-las.

 

E como usar o componente ASPJpeg

 

Alguém sabe como fazer isso?

 

Segue o script:

 

<%	Set Upload = Server.CreateObject("Persits.Upload.1")	' Upload files   Upload.OverwriteFiles = False ' Generate unique names   Upload.SetMaxSize 1048576 ' Truncate files above 1MB	' 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		   Scale = 10	   Jpeg.Width = Jpeg.OriginalWidth * Scale / 100	   Jpeg.Height = Jpeg.OriginalHeight * Scale / 100	   Response.Write Jpeg.OriginalHeight & "-" & Jpeg.Height	   Jpeg.Save Server.MapPath(Path) & "small_" & File.FileName%>	   <IMG SRC="upload/<% = File.FileName %>"><BR>	   <IMG SRC="upload/<% = "small_" & File.FileName %>"><P><%	Next%>

Está exibindo o escale que ta no response.write mas não mostra os thumbs, nem grava eles.

 

Oque está errado no codigo eu peguei do site do próprio componente!!!

 

E os componentes estão instalados no servidor com certeza

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ninguém sabe?

Para operações no arquivo, renomear, eliminar, copiar.etc utiliza FSO.

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.