(Resolvido) Upload com redimencionamento

[Marianne]

Amigos,

Tentei de todas formas pegando posts no forum e adaptar em meu codigo um redimencionamento porem sem sucesso.

alguém pode me ajudar?

1. Tenho este código que funiona perfeito para upload

2. Ele não redimenciona a imagem para gravar.

3. Quero que ele faça o upload da imagem e grave 2 tipos

4. A primeira foto teria que ter o tamanho maximo de 450px (altura ou largura)

5. A segunda foto teria que ter o tamanho maximo de 140px (altura ou largura) > Para usa-la como Thumb

Falei em tamanho maximo porque pode ser que receba fotos horizontais ou verticais

Olhe meu codigo que gostaria de adaptar:

Obrigada mesmo :>)

Response.Buffer = true
on error resume next

Dim extensao

Set Upload = Server.CreateObject("Dundas.Upload.2")

Upload.UseVirtualDir = False
Upload.UseUniqueNames = False
Upload.SaveToMemory

Dim i
i=0

for each UploadedFile in Upload.Files
    i=i+1
    extensao = right(Upload.GetFileName(UploadedFile.Originalpath),3)


IF NOT lcase(extensao) = "jpg" then

Response.write("&lt;script>alert('Este tipo de arquivo não é permitido\n Envie fotos com extensão .jpg');</script>")
Response.write("&lt;script>window.history.go(-1);</script>")


Else

IdRecuperado = 10

arquivo = IdRecuperado & "." & extensao

UploadedFile.SaveAs "E:\vhosts\sitenovo.com.br\httpdocs\fotos\" & arquivo

Response.write("&lt;script>alert('Foto enviada com sucesso !');</script>")
Response.write("&lt;script>window.location='publicacao.asp';</script>")


End IF    

next

Editado Novembro 25, 2009 por Marianne
Adcionar tag's (Jonathan)

[Marianne]

Olá Amigos,

Post Resolvido com louvor ! Consegui !

Estou postando aqui como fiz e deu 100% certo !

Fiz gravar as 2, pequena e grande, deletar a foto provisoria e até inverter largura e altura para caso esteja enviando fotos verticais

Beijocas a todos e espero q ajude alguém este post

'======REVOLVIDO===========

Response.Buffer = true

on error resume next

Req_PubId = Request.QueryString("id")

Dim extensao

Set Upload = Server.CreateObject("Dundas.Upload.2")

'estipula o tamanho máximo do arquivo

'Upload.MaxFileSize = 1048576

Upload.UseVirtualDir = False

Upload.UseUniqueNames = False

Upload.SaveToMemory

IdProduto = IdRecuperado

Dim i

i=0

for each UploadedFile in Upload.Files

i=i+1

extensao = right(Upload.GetFileName(UploadedFile.Originalpath),3)

'Response.Write "extensao = " &Upload.GetFileName(UploadedFile.Originalpath)& "<br>"

'Response.End()

IF NOT lcase(extensao) = "jpg" then

Response.write("<script>alert('Este tipo de arquivo não é permitido\n Envie fotos com extensão .jpg');</script>")

Response.write("<script>window.history.go(-1);</script>")

Else

arquivo = "FOTO" & "." & extensao

IF REQUEST.ServerVariables("REMOTE_ADDR") = "127.0.0.1" THEN

UploadedFile.SaveAs "C:\Inetpub\wwwroot\site\fotos\prov\" & arquivo

ELSE

UploadedFile.SaveAs "E:\vhosts\site.com.br\httpdocs\fotos\prov\" & arquivo

END IF

End IF

next

' ===== FAZER OS REDOMENCIONAMENTOS DAS IMAGENS

For xQtdFotos = 1 to 2

IF xQtdFotos = 1 then DirFoto = "Tb" Else DirFoto = "Big" End IF

Set Jpeg = Server.CreateObject("Persits.Jpeg")

IF REQUEST.ServerVariables("REMOTE_ADDR") = "127.0.0.1" THEN

Jpeg.Open "C:\Inetpub\wwwroot\site\fotos\prov\"&arquivo

ELSE

Jpeg.Open "E:\vhosts\site.com.br\httpdocs\fotos\prov\"&arquivo

END IF

OriginalLargura = Jpeg.OriginalWidth

OriginalAltura = Jpeg.OriginalHeight

IF xQtdFotos = 1 then

Largura = 198

Altura = 149

Else

Largura = 400

Altura = 300

End IF

IF OriginalAltura > OriginalLargura then

larguraOK = altura

alturaOK = largura

Else

larguraOK = largura

alturaOK = altura

End IF

Jpeg.Width = larguraOK

Jpeg.Height = alturaOK

IF REQUEST.ServerVariables("REMOTE_ADDR") = "127.0.0.1" THEN

Jpeg.Save "C:\Inetpub\wwwroot\site\fotos\"&DirFoto&"\"&arquivo

ELSE

Jpeg.Save "E:\vhosts\site.com.br\httpdocs\fotos\"&DirFoto&"\"&arquivo

END IF

Jpeg.close

Next

' ===== FAZER OS REDOMENCIONAMENTOS DAS IMAGENS

'=======APAGAR IMAGEM ORIGINAL=================================

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Caminho = Server.MapPath("..\fotos\prov\"&arquivo&"")

If objFSO.FileExists(Caminho) Then objFSO.DeleteFile(Caminho) End IF

set objFSO = Nothing

'=======APAGAR IMAGEM ORIGINAL=================================

Response.write("<script>alert('Foto enviada com sucesso !');</script>")

Response.write("<script>window.location='publicacao.asp';</script>")

'==========================

Amigos,

Tentei de todas formas pegando posts no forum e adaptar em meu codigo um redimencionamento porem sem sucesso.

alguém pode me ajudar?

1. Tenho este código que funiona perfeito para upload

2. Ele não redimenciona a imagem para gravar.

3. Quero que ele faça o upload da imagem e grave 2 tipos

4. A primeira foto teria que ter o tamanho maximo de 450px (altura ou largura)

5. A segunda foto teria que ter o tamanho maximo de 140px (altura ou largura) > Para usa-la como Thumb

Falei em tamanho maximo porque pode ser que receba fotos horizontais ou verticais

Olhe meu codigo que gostaria de adaptar:

Obrigada mesmo :>)

Response.Buffer = true
on error resume next

Dim extensao

Set Upload = Server.CreateObject("Dundas.Upload.2")

Upload.UseVirtualDir = False
Upload.UseUniqueNames = False
Upload.SaveToMemory

Dim i
i=0

for each UploadedFile in Upload.Files
    i=i+1
    extensao = right(Upload.GetFileName(UploadedFile.Originalpath),3)


IF NOT lcase(extensao) = "jpg" then

Response.write("&lt;script>alert('Este tipo de arquivo não é permitido\n Envie fotos com extensão .jpg');</script>")
Response.write("&lt;script>window.history.go(-1);</script>")


Else

IdRecuperado = 10

arquivo = IdRecuperado & "." & extensao

UploadedFile.SaveAs "E:\vhosts\sitenovo.com.br\httpdocs\fotos\" & arquivo

Response.write("&lt;script>alert('Foto enviada com sucesso !');</script>")
Response.write("&lt;script>window.location='publicacao.asp';</script>")


End IF    

next