Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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.
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
'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>")
%>