ASPJpeg x ASPImage

[Marcos Nunes 0]

Pessoal,Preciso de uma ajuda... tenho esse código abaixo que funciona com o componente ASPImage... Estou querendo usar este mesmo código para o ASPJpeg....Atualmente nas páginas eu apenas uso ...redimensiona(x,y)... (onde x é largura e y a altura em pixels) e tá tudo certo...Gostaria que alguém me ajudasse a fazer o mesmo com o ASPJpeg...<%FUNCTION REDIMENSIONA(imagem,larguramax,alturamax) 'verifica se está rodando local vpath = "../" caminho = split(Server.MapPath(vpath),"\",-1,1) verro = 0 do while caminho(UBound(caminho)) <> "pmsmj" and caminho(UBound(caminho)) <> "ut" and verro < 20 vpath = vpath & "../" caminho = split(Server.MapPath(vpath),"\",-1,1) verro = verro + 1 loop if caminho(UBound(caminho)) = "ut" then 'apagar arquivos gerados pelo redimensionador de imagem Set fs = CreateObject ("Scripting.FileSystemObject") if fs.FolderExists(caminho_temp) = true then Set f = fs.GetFolder(caminho_temp) Set fc = f.Files datahora = dateadd("n",-30,now()) For Each f1 in fc if f1.datelastmodified < datahora then fs.deletefile(f1) end if Next end if Set fs = nothing '---- fim apagar 'diminui a fotografia para mostrar Set Image = Server.CreateObject("AspImage.Image") if imagem&"xx" = "xx" then imagem = "default.jpg" end if vaimagem = split(imagem,".",-1,1) vnomeimagem = vaimagem(0) & "_" & hour(time())&minute(time())&second(time()) & "." & vaimagem(1) Image.LoadImage caminho_upload & "/" & imagem Image.FileName = caminho_temp & "/" & vnomeimagem vimagem = caminho_mostra_temp & "/" & vnomeimagem altura = Image.MaxY largura = Image.MaxX if altura = 0 or largura = 0 then imagem = "default.jpg" vaimagem = split(imagem,".",-1,1) vnomeimagem = vaimagem(0) & "_" & hour(time())&minute(time())&second(time()) & "." & vaimagem(1) Image.LoadImage caminho_upload & "/" & imagem Image.FileName = caminho_temp & "/" & vnomeimagem vimagem = caminho_mostra_temp & "/" & vnomeimagem end if coeficiente = 1 if largura > altura then if largura > larguramax then coeficiente = largura / larguramax end if if (altura / coeficiente) > alturamax then coeficiente = altura / alturamax end if else if altura > alturamax then coeficiente = altura / alturamax end if if (largura / coeficiente) > larguramax then coeficiente = largura / larguramax end if end if Image.ResizeR largura/coeficiente, altura/coeficiente if Image.SaveImage then response.write(vimagem) end if Set Image = nothing end ifEND FUNCTION%>

[smith 0]

http://www.aspjpeg.com/manual_02.html

 

No link acima você encontra bons exemplos de como usar o ASPJPEG !