| '================================================== ' 이미지 크기 얻는 함수 GetImageSize(물리적경로) '================================================== Function GetImageSize(Virtual_Image_Path) Dim objPic dim retVal(2) Set objPic = LoadPicture(Virtual_Image_Path) imgWidth = CLng(CDbl(objPic.Width) * 24 / 635) imgHeight = CLng(CDbl(objPic.Height) * 24 / 635) Set objPic = Nothing retVal(0) = imgWidth retVal(1) = imgHeight GetImageSize=retVal End Function |
다음과 같은 오류가 날수 있습니다.
Microsoft VBScript 런타임 오류 오류 '800a0046'
사용 권한이 없습니다.: 'LoadPicture'
/kr/bbs/include/function.asp, 줄 606
이미지가 있는 폴더에 IUSR [모든권한]을 주셔야 합니다. ( 적어도 수정권한까지 )
그래도 해결이 안될경우는%systemroot%\temp 폴더에 users 그룹이 파일을만들수 있는 권한(NTFS)이 설정되어 있어야합니다.
'asp' 카테고리의 다른 글
| asp로 xml 읽어 들이는 예제 (0) | 2007.05.02 |
|---|---|
| http://www.xx.xx/domain <ㅡ 이런식으로 주소 사용하기 (0) | 2007.05.02 |
| 글 읽을때 조회수 증가 체크(쿠키 이용) (1) | 2007.05.02 |
| 페이징(paging) 처리 함수 (1) | 2007.05.02 |
| Request 를 폼의 히든(hidden) 값으로 자동 생성해주기 (1) | 2007.05.02 |