Published in: ASP
'accepts: file extension, array of extensions allowed 'returns: boolean if extension if value function checkFileExt(sFileExt,sExtAllowed) checkFileExt = false dim i dim arrExt: arrExt = split(sExtAllowed,",") for i = 0 to ubound(arrExt) if lcase(sFileExt) = lcase(arrExt(i)) then checkFileExt = true exit function end if next end function
You need to login to post a comment.
