ftyepseesrfgtsf.asp

绿叶oa系统办公自动化 2008.工作日志管理,文件管理

		 <%
		  f1=lcase(right(file.filename,3))'2位后缀
		  f=lcase(right(file.filename,4)) '３位后缀
		  f2=lcase(right(file.filename,5)) '4位后缀
		  
if f<>"" then 
if f=".doc" or f=".xls" or  f=".mdb" or f=".dbf" or f=".htm" or  f=".html" or f=".shtml" or f=".shtm" or  f=".wps"  or f=".chm" or f=".psd" or  f=".jpg" or f2=".jpeg" or  f=".gif" or f=".bmp" or f=".png" or  f=".tif" or f2=".tiff" or f=".wml" or  f=".xml" or f=".rar" or f=".zip" or  f=".pdf"or f=".dat" or  f=".ico" or f=".fla" or f=".swf"  or  f1=".rm" or f=".wmv" or f=".ram" or  f1=".ra" or f2=".rmvb" or f=".wmv" or  f=".avi"or f=".scr" or  f=".wav" or f=".mid"  or f=".mp3" or  f=".mov" or f=".mpg" or f2=".mpeg" or  f=".asf" or f=".asx" or f=".qtm" or  f=".err"or f=".bak" or  f=".hlp" or f=".idx" or f=".lnk" or  f=".log" or f=".sql" or f=".txt" or  f=".mp3" or f1=".mp4" or f=".mp5" or  f2=".real" then
 else 
response.write"<script>alert('"&Session("names")&"很抱歉，您上传的"&fileformatxz&"文件类型，系统安全机制暂不允许。建议联系绿叶OA官方新增上传类型：http://www.oa169.com  Email:[e-mail]  Tel:[phone]  支持QQ:413400260。');location='"&request.ServerVariables("HTTP_REFERER")&"'</script>"
response.end()
end if
end if
'response.end()

%>
<%
Dim filebig
Dim filebig_numRows
Set filebig = Server.CreateObject("ADODB.Recordset")
filebig.ActiveConnection = MM_oavbsconn_STRING
filebig.Source = "SELECT * FROM 文件限制大小"
filebig.CursorType = 0
filebig.CursorLocation = 2
filebig.LockType = 1
filebig.Open()
filebig_numRows = 0
if not filebig.eof or not filebig.bof then
dim filesuploadmaxnum
filesuploadmaxnum=filebig("文件限制大小")
if (file.FileSize/1024)>filesuploadmaxnum then 
filebig.Close()
set filebig = Nothing
   	response.write"<script>alert('"&Session("names")&"很抱歉，您上传的文件大小为"&(file.FileSize/1024)&"KB，系统允许上传的最大文件是"&filesuploadmaxnum&"KB。请联系管理员！');location='"&request.ServerVariables("HTTP_REFERER")&"'</script>"
	response.end()
		end if 
			else
	   	response.write"<script>alert('上传文件大小限制为空。请在后台设置！');location='"&request.ServerVariables("HTTP_REFERER")&"'</script>"
response.end()

end if 
%>