ASP 이미지 리사이즈(LoadPicture 사용) > 기술자료

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

< 방법1 >
<%
    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

    GetImageSize server.MapPath("/")&"\image\"&big_image, x, y
%>
        <img src="./image/<%=big_image%>" width="<%=x%>" height="<%=y%>">

< 방법2 >
 '-----------------------------------------------------------
 ' Image ReSizeing
 '-----------------------------------------------------------
 Function f_imgResize(dir)
  Const int_limitWidth = 600      '이미지 제한 가로사이즈
  Dim int_orgWidth      '원본 이미지가로
  Dim str_dir        '폴더명
  dim str_p         '이미지업로드
  dim obj_fso        '파일시스템오브젝
  Dim str_dir_path      '파일전체경로
 
  SET Obj_fso = Server.CreateObject("Scripting.FileSystemObject")
  str_dir_path = Server.MapPath("\") & Replace(dir,"/","\")
 
  If (obj_fso.FileExists(str_dir_path)) Then
   str_dir = Server.MapPath (dir)
  
   Set str_p = LoadPicture(str_dir)         ' 원래이미지의사이즈가 리턴
   int_orgWidth = CLng(CDbl(str_p.Width) * 24 / 635) ' CLng 의 라운드 오프 기능 이용
   Set str_p = Nothing
  
   If int_limitWidth < int_orgWidth Then
    f_imgResize = int_limitWidth
   Else
   f_imgResize = int_orgWidth
   End If
  End if
 
  Set obj_fso = nothing
 End Function

* 권한오류 날경우 이미지 UpLoad Folder에 인터넷게스트권한을 부여한다(적당하게... ㅡ.ㅡ)


참고사이트
http://www.taeyo.net/Lecture/20_TIps/Danny11.asp
http://freemind.tistory.com/7