Altura e largura da Imagem usando FSO

[aluizs 0]

Ola,

 

Utilizo o seguinte código para mostrar todas as imagens que tenho em um diretório.

 

 

<%

nome_pasta = Server.MapPath(".") & "\images\galeria"

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

Set arquivo = Fso.GetFolder(nome_pasta)

Set arquivos = arquivo.files

 

For Each a in arquivos

 

Response.Write "<img src='images/galeria/" & a.name & "'><br>"

 

Next

 

Set arquivos = nothing

Set arquivo = nothing

Set Fso = nothing

%>

 

o código funciona bem e quero a partir dele criar um album simples, colocando elas dentro de uma tabela, entretanto, as imagens são de tamanhos diferentes, gostaria de ajuda para poder pegar o tamanho das imagens para poder altera-los dentro da tag img para um tamanho padrão, o mesmo tamanho para todas as imagens.

alguem poderia me ajudar.

 

Obrigado.

[xanburzum 169]

olha este exemplo que tenho:

 

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>")

%>