Home
Contact us
Sitemap
제품소개
다운로드
기술지원
구입안내
고객안내
Nmail PHP
Nmail PHP
Nmail NET
Nmail ASP
기술지원안내
FAQ
Q&A
사용자팁
Nmail PHP
공지사항
고객&파트너
기술지원안내
FAQ
Q&A 게시판
사용자 팁
Home
> Support
> Q&A
>
Nbuilder PHP
Nbuilder PHP Q&A
※
기술문의
는
자세한 상황
을 적어주셔야 하며,
구입문의
는
전화
나
메일
로 부탁드립니다.
글쓴이
제목
제 생각엔...
ThumbGenerate.asp 부분에 무엇인가가 잘 못 된것 같습니다.
아래 부분을 소스에서 그래로 긁어서 옮겼습니다. 무엇이 잘못인지
확인 바랍니다.
전 페이지에서 이 화일로 넘기는 부분은 대부분 다음과 같습니다.
<img src="/nBuilder/Board/ThumbGenerate.asp?imageFile=<%= Server.URLEncode(CLUB_MAIN_IMAGE & CI.MainImage) %>&Width=200&Height=180&Quality=75&ShellThumbnails=&Stretch=" border="0"/>
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Response.ContentType = "image/jpeg"
' ---- parameter parsing ----'
Dim boardId
Dim imageFile
Dim FilePath
Dim Width
Dim Height
Dim Quality
Dim ShellThumbnails
Dim Stretch
Dim Create
imageFIle = Request.QueryString("imageFIle")
boardId = Request.QueryString("boardId")
width = Request.QueryString("width")
height = Request.QueryString("height")
quality = Request.QueryString("quality")
shellThumbNails = Request.QueryString("shellThumbNails")
stretch = Request.QueryString("Stretch")
FilePath = Server.MapPath(imageFile)
If Not fso.FileExists(FilePath) Then
FilePath = Server.MapPath("/Images/default.gif")
End If
If Len(width) > 0 Then
width = Ccur(width)
Else
width = 70
End If
If Len(height) > 0 Then
height = Ccur(height)
Else
height = 70
End If
If Len(quality) > 0 Then
quality = Ccur(quality)
Else
quality = 75
End If
If Len(shellThumbNails) > 0 Then
shellThumbNails = True
Else
shellThumbNails = False
End If
If Len(stretch) > 0 Then
stretch = True
Else
stretch = False
End If
Dim BinData
If shellThumbNails Then
' Create COM Shell Thumbnail object
Set objThumb = Server.CreateObject("ThumbExtract.FileThumbExtract")
Call objThumb.SetPath(FilePath)
Call objThumb.SetThumbnailSize(Width,Height)
Call objThumb.ExtractThumbnail
BinData = objThumb.ThumbJpgData(Quality)
'Set Obj = Server.CreateObject("ThumbExtract.FileThumbExtract")
Else
Set Obj = Server.CreateObject("CxImageATL.CxImage")
Call Obj.Load(FilePath, GetFileType(FIlePath))
Call Obj.IncreaseBpp(24)
If Not stretch THen
widthOrig = CDbl(Obj.GetWidth()) ' /// 이미지 원래 넓이
heightOrig = CDbl(Obj.GetHeight()) ' /// 이미지 원래 높이
widthRatio = Ccur(widthOrig / width)
heightRatio = Ccur(heightOrig / height)
If widthRatio > heightRatio Then maxRatio = widthRatio Else maxRatio = heightRatio
If maxRatio < 1 Then maxRatio = 1
widthTh = Ccur(widthOrig / maxRatio)
heightTh = Ccur(heightOrig / maxRatio)
Else
widthTh = width
heightTh = height
End If
Call Obj.Resample(widthTh, heightTh, 2)
BinData = Obj.ImageForASP(2, Quality)
End If
Response.BinaryWrite BinData
Function GetFIleType(sFile)
dot = InStrRev(sFile, ".")
If dot > 0 Then ext = LCase(Mid(sFile, dot + 1, 3))
If ext = "bmp" Then fileType = 0
If ext = "gif" Then filetype = 1
If ext = "jpg" Then filetype = 2
If ext = "png" Then filetype = 3
If ext = "ico" Then filetype = 4
If ext = "tif" Then filetype = 5
If ext = "tga" Then filetype = 6
If ext = "pcx" Then filetype = 7
If ext = "" Then filetype = 2
GetFileType = fileType
End Function
%>
에러 님이 쓴 글입니다.
--------------------------------------------------------------------
:앨범에서 리스트에서 이미지가 안 보이네요..
:
:이미지를 클릭을 하고 상세 내용으로 들어가서 이미지를 클릭을 하면..
:이미지가 원래 사이즈로 크게 나옵니다.
:
:왜 리스트에서 안 나올까요??
:
:
:다른 에러는 앨범에서 삭제를 하면 다음과 같은 에러가 나네요.
:
:Object required: ''
:/nBuilder/Board/Image/frmImgDel.asp, line 80
:
:
:다른 곳에선 안 나는데. 왜 이부분만 에러가 나나요?
:
:답변 부탁 드립니다.
비밀번호
패스코리아넷
경남 창원시 마산회원구 내서읍 중리상곡로 129, 한성빌딩 701호
메일 문의 :
nmail@passkorea.net
I 전화 : 1544-1608 I 팩스 : 055-231-2069
사업자 등록번호 : 608-25-32288 I 대표자 : 빈경윤