ClassicASP [function] 파일형식에 따라 아이콘 보여주기
페이지 정보
첨부파일
-
icon.zip (12.4K)
65회 다운로드 | DATE : 2012-11-17 16:50:18
본문
첨부파일에 포함된 아이콘은 다음과 같습니다.
7z
ai, alz, asf, asp, avi
bmp
cgi
dll, doc
eml, exe
fla
gif
hlp
htm, hwp
jpg, js
mid, mov, mp3, mpeg
pcx, pdf, php3, png, ppt, psd
rar, reg
swf
tif, txt
url
wav, wmv
xls
zip
<%
'파일형식에 따라 아이콘 보여주기
Function FiletypeIcon(str)
dim pos, fileicon, str1
pos = instrrev(str, ".")+1
str1 = str
str1 = mid(str, pos)
Select Case Ucase(str1) ' 확장자에 따른 이미지 선택
Case "7Z"
fileicon = "7z.gif"
Case "ALZ"
fileicon = "alz.gif"
Case "ARC", "ARJ"
fileicon = "zip.gif"
Case "ASF"
fileicon="asf.gif"
Case "AVI"
fileicon="avi.gif"
Case "BMP"
fileicon="bmp.gif"
Case "DOC"
fileicon = "doc.gif"
Case "COM", "EXE"
fileicon = "exe.gif"
Case "GIF"
fileicon="gif.gif"
Case "HTM", "HTML"
fileicon= "htm.gif"
Case "HWP"
fileicon= "hwp.gif"
Case "JPG", "JPEG"
fileicon="jpg.gif"
Case "MP3"
fileicon="mp3.gif"
Case "MPG", "MPEG"
fileicon="mpeg.gif"
Case "PDF"
fileicon = "pdf.gif"
Case "PNG"
fileicon="png.gif"
Case "PPT"
fileicon = "ppt.gif"
Case "RA", "RAM"
fileicon = "ra.gif"
Case "RAR"
fileicon = "rar.gif"
Case "SWF"
fileicon = "swf.gif"
Case "TIF"
fileicon = "tif.gif"
Case "TXT"
fileicon = "txt.gif"
Case "URL"
fileicon = "url.gif"
Case "WAV"
fileicon="wav.gif"
Case "XLS"
fileicon = "xls.gif"
Case "ZIP"
fileicon = "zip.gif"
Case else
fileicon="etc.gif"
End Select
FiletypeIcon = fileicon
End Function
%>
<img src="img/icon/<% response.write FiletypeIcon("파일이름")%>" border="0" alt="" />
참고자료
http://sir.co.kr/bbs/board.php?bo_table=g3_skin&wr_id=2211
참고자료
http://sir.co.kr/bbs/board.php?bo_table=g3_skin&wr_id=2211
댓글목록
등록된 댓글이 없습니다.