LoadPicture() 로 이미지 사이즈 변경하기 > 기술자료

• 목록
• 게시판 리스트 옵션
  • 검색

<table cellspacing=0 cellpadding=0 width="100%" border=0>
<%
  if file_name <> "" then
    if Len(file_size) > 0 then
      if Clng(file_size) > 1024000 then
        file_size = Round((Clng(file_size) / 1024000) * 1000) / 1000 & " MB"
      elseif Clng(file_size) > 1024 then
        file_size = Round((Clng(file_size) / 1024) * 10) / 10 & " KB"
      else
        file_size = file_size & " Byte"
      end if
    end if

    FileExt = ucase(right(file_name,3))    ' 확장자 얻기
    Dim FileIcon
    Select Case FileExt
      Case "ARJ", "BMP", "COM", "DOC", "EXE", "GIF", "HWP", "HLP", "JPG", "MDB", "PDF", "PPT", "RA", "RAM", "RAR", "TXT", "WAV", "XLS", "ZIP" 
        FileIcon = FileExt & ".gif"
      Case Else
        FileIcon = "etc.gif"
      End Select

    gif = "<img src=../images/icon/"&FileIcon&" border=0 align=absbottom>"
    ' 첨부파일의 경로와 파일명을 함께 노출시키기 위해
    file_link =  "<a href = '../upload_file/"&file_name&"' target='_blank'>"&gif&" "&file_name&"</a>"

    ' 이미지 사이즈를 체크 하는 부분
    Sub GetImageSize(ByVal f, ByRef x, ByRef y)
      Set p = LoadPicture(f)
      x = CLng(CDbl(p.Width) * 24 / 635) ' CLng 의 라운드 오프의 기능을 이용하고 있다.
      y = CLng(CDbl(p.Height) * 24 / 635) ' CLng 의 라운드 오프의 기능을 이용하고 있다.
      Set p = Nothing
    End Sub  

    if len(file_name) <> "" and not isnull(file_name) then
      if FileExt = "jpg" or FileExt = "gif" or FileExt = "JPG" or FileExt = "GIF" or FileExt = "BMP" then
        GetImageSize Server.MapPath("./")&"\upload_file\"&file_name, x, y
        if x > 250 then
          GetImage_width = "width='200'"
        else
          GetImage_width = ""
        end if
      end if
    end if
'   response.write("GetImage_width = "& GetImage_width &"<br>")
 
    if FileExt <> "jpg" and FileExt <> "gif" and FileExt <> "JPG" and FileExt <> "GIF" and FileExt <> "BMP" then
'   첨부파일이 이미지가 아닐때
%>
  <tr>
    <td align="center" style="padding:9 0 5 0; font-weight:bold; color:#FF922C;">첨부파일</td>
    <td style="padding:9 0 5 0;"><%=file_icon%> <%=file_link%></td>
  </tr>
<%
    end if
  end if
%>    
  <tr>
    <td colspan="2">
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <% if  GetImage_width <> "" then %>
        <tr>
          <td width="<%=GetImage_width%>" style="padding:0 20 0 0;"><img src="./upload_file/<%=file_name%>" <%=GetImage_width%></td>
          <td><%'=content%></td>
        </tr>
        <% else %>
        <tr>
          <td colspan="2"><%'=content%></td>
        </tr>
        <% end if %>
      </table>
    </td>
  </tr>
</table>


참고자료
http://kin.naver.com/detail/detail.php?d1id=1&dir_id=10112&eid=Q5h8MuKjhvt+BosJYRojs7XUyM2q/kN/&qb=YXNwIEdldEltYWdlU2l6ZQ==&pid=fZ8gmwoQsDCsscyKbCwsss--431731&sid=SE8Q4asHT0gAAGGMFRk