첨부파일 화이트 리스트

아~주 오랜만에 ASP를 보고있는대 하나도 모르겠네요 ㅎㅎ

문법을 몰라서 막 코딩으로 더듬 더금 일단 기능은 구현했는대 코드는 만족스럽지 않습니다만..

응급처치용으로 쓰면될것 같습니다...

더 좋은 방법 있음 좀 알려주세요

' Update History

' Author : Yoon In Hwan ( Duraboys.net )

'# 첨부파일 확장자 처리 http://duraboys.net

Sub Gnuh_FileExtension_policy(upFile) step 1

Gnuh_FileExtension = uploadform(upFile).FileExtension

Gnuh_FileExtension_ok = "txt,jpg,gif,mp3,hwp,doc,pdf,zip"

SplitFileExtension = Split(Gnuh_FileExtension_ok, ",")

i = 0

spTrue = 0

for  i = 0 to UBound(SplitFileExtension)

if trim(SplitFileExtension(i)) = trim(Gnuh_FileExtension) then

spTrue = 1

Exit for

end if

next

if spTrue = 0 then 

  Response.Write "<script language='javascript'>"

  Response.Write "alert('허락되지 않은 파일입니다');"

  Response.Write "history.back();"

  Response.Write "</script>"

  Response.End

end if

End Sub