<%
' Cria uma instância do controle
Set ImageSize = Server.CreateObject("ImgSize.Check")
' Carrega a imagem
ImageSize.FileName = Server.MapPath("imagem.jpg")
If (ImageSize.Error = "") Then
Response.Write "Largura: " & ImageSize.Width & "
"
Response.Write "Altura: " & ImageSize.Height & "
"
Else
Response.Write "Erro: " & ImageSize.Error
End If
' Tira o objeto da memória
Set ImageSize = Nothing
%> |