[ASP] 파일업로드 제한하기 (확장자 체크)

파일 업로드 제한하기 - 확장자로 체킹하기

 

Function UsableFileExtCheck(FileName)
	Ext1 = LCase(Mid(FileName, InStrRev(FileName, ".") + 1))
	FilterExt = "ad,adprototype,asa,asax,ascx,asmx,asp,aspx,axd,browser,cd,cdx,cer,compiled,config,cs,csproj,dd,exclude,idc,java,jsl,ldb,"&_
				"ldd,lddprototype,ldf,licx,master,mdb,mdf,msgx,refresh,rem,resorces,resx,sd,sdm,sdmdocument,shtm,shtml,sitemap,skin,soap,svc,"&_
				"vb,vbproj,vjsproj,vsdisco,webinfo,htm,html,cfm,cfml,js,css,"&_
				"php,jsp,exe,dll,ocx,cab,servlet,cgi,"
	if (instr(FilterExt,Trim(Ext1))) > 0 then
		UsableFileExtCheck = False
	else
		UsableFileExtCheck = True
	end if
End Function