matrix3_upload_config.asp

来自「这是ASP的OA」· ASP 代码 · 共 30 行

<%
dim uploadsize,uploadtype,uploadfolder
uploadsize=200  'K
uploadtype="jpg,gif,zip,psd,ico,png,jpeg,bmp,rar,mid,txt,swf,ppt,doc,wav,mp3,rm,c,cpp,vb,exe,pdf,fla,chm"
uploadfolder="UploadFiles/"
function checkext(ext)
	dim tmp_i,str
	checkext=0
	if isnull(ext) then 
		exit function
	end if
	if ext<>"" then
		str=split(uploadtype,",")
		for tmp_i=0 to ubound(str)
			if str(tmp_i)=ext then
				checkext=1
				exit function
			end if
		next
	end if
end function
function getext(filename)
	if isnull(filename) then exit function
	if instr(filename,".")>0 then
		getext=lcase(mid(filename,instrRev(filename,".")+1))
	else
		getext=""
	end if
end function
%>