Nmail .NET 서비스 종료 안내(EOS)
이미지파일 리싸이즈 질문좀요..
※ 필수입력정보 ※
▷ 제품버젼 : window server 2005 / ASP / iis6.0
▷ 질문내용 :
자꾸 귀찮게 해드려서 죄송합니다..
올리려는 이미지의 width값을 변경하려는데요..
nameFile = uploadform("filename")
FileInfo = right(nameFile, 3)
renameFile = uploadform("RenameFile")&"."&FileInfo
If renameFile <> "" Then
filePath = uploadform("DataFieldName").SaveAs(strSavePath & "\" & renameFile)
Else
filePath = uploadform("DataFieldName").Save(, true)
End If
이렇게 파일을 올리고나서
'--------------------
' Image 가로폭 줄이기
'--------------------
if true = oImage.SetSourceFile(strSavePath.renameFile) then
nWidth = oImage.ImageWidth
nHeight = oImage.ImageHeight
'---------------------------------------------------------
' 원이미지 조정
'---------------------------------------------------------
If nWidth > 572 Then
nHeight = Get_ImgRatio(nWidth, nHeight, 572, 0)
nWidth = 572
bResizeOK = True
End If
If bResizeOK = True Then
filePath=oImage.SaveAsThumbnail(strSavePath & "\" & renameFile& ".jpg", nWidth, nHeight, false)
End If
이런방식으로 파일크기를 변환하려고 했는데요..
자꾸 에러가 떠버려서요..
혹시 리싸이즈 지원 하나요....
이전 글 | 윈도우즈 비스타 64비트에서는 웹하드가 작동을 안하나요? 2 | 정*영 | 2008.01.25 |
---|---|---|---|
다음 글 | 146 번글에 대한 답변은 언제쯤 받을 수 있을까요? 1 | 봄* | 2008.01.25 |