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 |