Reduzir imagem

[mkboy 1]

Quero acrescer este recurso no meu sistema de upload.O cliente clica para fazer o upload, e o sistema reduz o arquivo dele, por exemplo:Ele está subindo uma imagem de 2 MB, o sistema reduziria para 100 KBOu mesmo ele esta subindo uma imagem de 1024 pixels de largura, o sistema reduziria para 640pixels.Pesquisei por FSO, ASP JPEG e não consegui nada!Podem me ajudar? :unsure:

[hargon 64]

'arquivo - Arquivo a ser alterado
'salvarComo - Novo nome do arquivo
'tamanho - informe a largura ou altura da imagem nova 
'p - informe 1 para imagem horizontal e 0 para vertical
'qualidade - informe quanto de qualidade você quer a imagem nova, isso também influenciará no tamanho do arquivo (máx. 100)

sub fthumb(arquivo,salvarComo,tamanho,p,qualidade)
	set Jpeg = Server.CreateObject("Persits.Jpeg")
	Jpeg.Open arquivo
	Jpeg.PreserveAspectRatio = True
	Jpeg.Quality = qualidade
	Jpeg.Interpolation = 1	
	Jpeg.Sharpen 1,101

	if p = 1 then
		Jpeg.Width = tamanho
	else
		Jpeg.Height = tamanho
	end if	
	
	Jpeg.Save salvarcomo	
	set Jpeg = nothing
end sub

call fthumb(Server.MapPath("teste1.jpg"),Server.MapPath("teste2.jpg"),640,1)

 

Em relação a alterar a imagem comparando o tamanho, dê uma olhada no manual do ASP JPEG (http://www.aspjpeg.com/manual_06.html), item 6.2. Lá fala sobre as propriedades da imagem que você tem acesso através do componente.

[Ivan.Teles 23]

lembrando que esse código acima, seu servidor de hospedagem tem que ter o componente instaldo.