이미지 크기 (가로 세로) 구하기 > 기술자료

• 목록

원리부터! 이렇게 하면 원이미지의 가로길이와 세로길이가 나옵니다.
<%
Set objImg = LoadPicture("d:/bt_write.gif")
Response.Write "가로: " & objImg.Width
Response.Write "세로: " & objImg.Height
set objImg = nothing
%>

<%
dim fs, img_url, p, imgWidth, imgHeight
Set fs = server.CreateObject("Scripting.fileSystemObject")

img_url = Server.MapPath(imgLarge1)

Set p = LoadPicture(img_url)        ' 이미지 경로
imgWidth = CLng(CDbl(p.width)*24/700)    ' 넓이
imgHeight = CLng(CDbl(p.height)*24/635)    ' 높이
Set p = Nothing

if imgWidth >= 750 then  ' 원하는 이미지 폭의 최대값
    imgWidth = 750
end if
%>


관련자료
http://www.devpia.com/Maeul/Contents/Detail.aspx?BoardID=57&MAEULNO=22&no=1640&page=10 
http://jupiter0410.tistory.com/53