FilePath = “파일경로”
Set objImg = LoadPicture(FilePath)
x1 = clng(cdbl(objImg.Width)*24/635)
y1 = clng(cdbl(objImg.Height)*24/635)
if(x1 > “게시판넓이”)then
x2 = “게시판넓이”
y2 = “게시판넓이”
if x1 >= y1 then
y2 = cint((y1 * x2) / x1)
else
x2 = cint((x1 * y2) / y1)
end if
Response.Write(““)
else
Response.Write(““)
end if
Comments
Powered by Facebook Comments