<%
	function ChkFileExt( FileName )
		dim ext
		ChkFileExt = false

		ext = GetFileExt( FileName )	'获取文件的扩展名

		if ext = "" then
			ChkFileExt = false
			exit function
		else
			ext = Lcase(trim(ext))
		end if
		Arr = split( PermitedExt,"," ) '常量 PermitedExt 在 inc/const.asp 里定义
		for i=0 to ubound(Arr)
			if trim(Arr(i)) = ext then
				ChkFileExt = true
			else
				ChkFileExt = false
			end if
			if ChkFileExt then
				exit for
			end if
		next

	end function

 

	'获取文件的扩展名
	function GetFileExt( FileNameTmp )

		dim Arr
		Arr = split( FileNameTmp,"." )
		GetFileExt = Arr(ubound(Arr))

	end function

%>