<%
'-------------------
'함수 이름: ChkImg
'기능: 이미지 파일이 합법적인지 확인
'매개변수: img, 이미지 경로, 웹사이트 루트 디렉터리에 대한 상대 경로
'반환값: 부울형, 사진이 합법적이면 True를 반환하고, 그렇지 않으면 False를 반환합니다.
'조건: 서버는 AspJpeg 구성 요소를 지원해야 합니다.
'지원되지 않는 경우 모든 사진을 업로드할 수 없는 것을 방지하기 위해 이 함수는 직접 True를 반환합니다.
'http://www.downcodes.com/asp.asp
'-------------------
기능 ChkImg(img)
On Error Resume Next '오류 정보를 캡처하려면 오류 발생 시 코드를 계속 실행해야 합니다.
Dim RetunValue, ChkJpeg
RetunValue = True
'경로가 비어 있으면 이미지가 불법인 것으로 간주됩니다.
isnull(img)인 경우 ChkImg = False:Exit 함수
설정 ChkJpeg = Server.CreateObject("Persits.Jpeg")
If -2147221005 <> Err Then '컴포넌트가 지원되는 경우 해당 컴포넌트를 사용하여 이미지의 합법성을 확인합니다.
ChkJpeg.Open Server.mappath(img)
오류가 발생한 경우
반환 값 = 거짓
종료 조건
Else '구성 요소가 지원되지 않으면 건너뛰고 True를 직접 반환합니다.
반환값 = True
End If
'필요한 후처리 작업
Err.number <> 0이면 Err.clear
ChkJpeg = 없음 설정
ChkImg = RetunValue
기능 종료
%>
참고: AspJpeg는 이미 서버에 있는 파일만 처리할 수 있으므로 실제 응용 프로그램 중에 이 작업을 수행해야 합니다. 먼저 이미지를 임시 폴더에 업로드한 다음 이미지의 합법성을 확인한 다음 이미지를 복사하세요. 이미지 저장 디렉터리에 임시 파일을 삭제하고 업로드 성공 메시지를 반환합니다. 불법일 경우 임시 파일을 직접 삭제하고 오류 경고를 반환합니다.
AspJpeg로만 이미지를 열고 이미지 처리를 하지 않기 때문에 이 기능의 실행 효율성은 여전히 매우 높으며 기본적으로 사용 중에 효율성 문제를 걱정할 필요가 없습니다.