Growmedia.net

Hace tiempo que necesitaba un script que me permitiera saber cual era la altura y anchura de una imagen. Navengando navengando (como no) y via www.forosdelweb.com encontré ese script que me permitiría saber esos datos para luego (por ejemplo) abrir una ventana pop-up con la medida justa de la imágen.

ASP:

'Para coger anchura de la imagen
Private Function GetImageWidth(byVal strPath)
dim myImg, fs 
Set fs= CreateObject("Scripting.FileSystemObject") 
if not fs.fileExists(strPath) then Exit Function 
set myImg = loadpicture(strPath) 
GetImageWidth = round(myImg.width / 26.4583) 
set myImg = nothing 
End Function

'Coger altura de la imagen
Private Function GetImageHeight(byVal strPath)
dim myImg, fs
Set fs= CreateObject("Scripting.FileSystemObject")
if not fs.fileExists(strPath) then Exit Function
set myImg = loadpicture(strPath)
GetImageHeight = round(myImg.height / 26.4583) 
set myImg = nothing 
End Function

Via: forosdelweb.com