ASP LoadPicture 이미지사이즈

Dim objPic 

Set objPic = LoadPicture("이미지 경로")
Response.Write(objPic.Height & "<br>")
Response.Write(objPic.Width & "<br>")
Response.Write(objPic.Type & "<br>")
Response.Write(objPic.Handle & "<br>")
Response.Write(objPic.hPal & "<br>")
Set objPic = Nothing


'pic : server.MapPath("/") & imgName

Function GetImageSizeX(pic)
	Set p = LoadPicture(pic)
	width = CLng(CDbl(p.Width) * 24 / 635)
	Set p = Nothing
	GetImageSizeX = width
End Function

Function GetImageSizeY(pic)
	Set p = LoadPicture(pic)	
	height = CLng(CDbl(p.Height) * 24 / 635)
	Set p = Nothing
	GetImageSizeY = height
End Function

[출처] ASP LoadPicture 이미지사이즈|작성자 블루호넷