'Dext sumnail'에 해당되는 글 1건

  1. 2013.10.24 Dext sumnail 새창으로 메일 보기

set objImage =server.CreateObject("DEXT.ImageProc")
   if true = objImage.SetSourceFile(Server.MapPath("/upload/"& Board_Table_NM& "/"& Board_Table_NM& "_Gallery") & "/" & File_NM) Then
     If objImage.ImageWidth >= objImage.ImageHeight Then
      If objImage.ImageHeight < Thumbnail_Height Then
       Thumbnail_Width = objImage.ImageWidth
       Thumbnail_Height = objImage.ImageHeight
      Else
       Thumbnail_Width = (objImage.ImageWidth*Thumbnail_Height)/objImage.ImageHeight
      End If
     Else
      If objImage.ImageWidth < Thumbnail_Width Then
       Thumbnail_Height = objImage.ImageHeight
       Thumbnail_Width = objImage.ImageWidth
      Else
       Thumbnail_Height = (objImage.ImageHeight*Thumbnail_Width)/objImage.ImageWidth
      End If
      
      If objImage.ImageHeight < Thumbnail_Height Then
       Thumbnail_Height =objImage.ImageHeight
       Thumbnail_Width = objImage.ImageWidth
      Else
       Thumbnail_Height = 130
       Thumbnail_Width = (objImage.ImageWidth*Thumbnail_Height)/objImage.ImageHeight
      End If
     End If
    ThumbnailPath = Server.MapPath("/upload/"& Board_Table_NM& "/"& Board_Table_NM& "_Gallery") & "/" & File_NM_WithoutExt  & "_Thumb.jpg"
    Thumbnail = objImage.SaveasThumbnail(ThumbnailPath, Thumbnail_Width, Thumbnail_Height, false)

   End If
   Set objImage = Nothing

'ASP' 카테고리의 다른 글

폴더검색 fso  (0) 2013.10.24
asp 모든폼 갖고오기  (0) 2013.10.24
FSO 객체(FileSystemObject)  (0) 2013.10.24
새창 프린트 새창으로 메일 보기  (0) 2013.10.24
form encoding 형식 변경  (0) 2013.10.24
Posted by 초보용
,