Set  objImg  =  LoadPicture(FilePath)

x1  =  objImg.Width        

y1  =  objImg.Height



'response.write  x1



if(x1  >  5800)then



    x2  =  580

    y2  =  580

    if  x1  >=  y1  then

            y2  =  cint((y1  *  x2)  /  x1)

    else

            x2  =  cint((x1  *  y2)  /  y1)

    end  if

            

    response.write  "<img  src='"&imgFilePath&"'  width='"&x2&"'  height='"&  y2  &"'><br>"

else

    response.write  "<img  src='"&imgFilePath&"'><br>"    

end  if    

set  objImg  =  nothing

날짜: 2003-08-28 10:06:40, 조회수: 2329

2006-04-04 13:45:39