Altera o Tamanho e Altura da Imagem e faz upload

[xanburzum 169]

altera o Tamanho e Altura da Imagem e fazendo upload

<%
               'declaro minha variavel para recuperar o nome da foto.
               dim nome_foto
               'Instancia o componente
               SET SaFileUp = Server.CreateObject("SoftArtisans.FileUp")
               server.ScriptTimeout=99999 ' aumenta o tempo para enviar aquivos maiores

                       'Configura o caminho onde arquivo será salvo
                       SaFileUp.Path = Server.MapPath("../img/banner/teste/")

                       'Você pode usar também o caminho relativo se preferir
                       'SaFileUp.Path = Server.MapPath("./upload/")

                       'Caso o usuário não indique um arquivo para upload, informa erro.
                       If SaFileUp.IsEmpty Then
                                       response.write ("<script>alert('Selecione uma foto antes de salvar!'); location='form_incluir_foto_servico.asp?Servico="&SaFileUp.Form("servico")&"&id="&SaFileUp.Form("id")&"'</script>")


                       Else
                               'Salva o arquivo no servidor
                       SaFileUp.Save
'recupera o nome da foto.
                               nome_foto = Right(SaFileUp.Form("fotoBanner"),Len(SaFileUp.Form("fotoBanner"))-InstrRev(SaFileUp.Form("fotoBanner"),"\"))

'Instancia o componente AspJep
Set Jpeg = Server.CreateObject("Persits.Jpeg")

'Recupera o caminho da foto do meu servidor
Path = Server.MapPath("../img/banner/teste/"&nome_foto)

'Abre a pasta do arquivo
Jpeg.Open Path

'verifica se a imagem dentro do padrao permitido
if Jpeg.OriginalWidth<>119 or Jpeg.OriginalHeight<>119 then

'caso a imagem esteja fora ele deleta a imagem do servidor a avisa ao usuario
               Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
               arq1 = Server.MapPath("../img/banner/teste/"&nome_foto)
               objFSO.DeleteFile arq1, True
               set objFSO = nothing
               response.Write("<script>alert('A imagem esta fora do tamanho padrão\n O Tamanho correto é 119px de Largura e 119px de Altura.\n Atualmente essa imagem esta com "&Jpeg.OriginalWidth&"px de Largura e "&Jpeg.OriginalHeight&"px de Altura')</script>")
else
'se estiver tudo correto ele faz o insert na tabela.
set rs = con.execute("INSERT INTO TB_BANNER (BANNER, ID_PAGINA) VALUES ('"&nome_foto&"', '"&SaFileUp.Form("id_foto")&"'")

end if

end if

response.write ("<script>alert('Foto salva com sucesso!');location='banner.asp'</script>")

%>

[retrolink 0]

CRÉDITO: http://forum.imasters.com.br/topic/418969-verficando-tamanho-e-altura-da-imagem/page__view__findpost__p__1652777