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("<img src='이미지경로' width="&x2&" height="&y2&" border='0'>")



else	

  Response.Write("<img src='이미지경로' border='0'>")

end if

날짜: 2004-01-19 14:15:51, 조회수: 4085