<!--#include file="conn.asp"-->
 <!--#include file="upload.inc" -->

<%
'检查访问的来源是否合法
call checkPrePage()

Server.ScriptTimeOut=60*10
strUserName=Trim(Session("UserName"))
%>

<%
'上传文件
'-----------------------------------------------------------------
	set upload=new upload_5xsoft
	
	set file=upload.file("FileFrom")
		if file.filesize<=0 then         ''如果 filesize < 0 说明是空文件
			ShowMSg "上传的文件不存在，或是空文件！"
		end if
		
		if file.filesize>1024*1024 then
			ShowMsg "对不起，文件太大，上传文件不能大于1MB！"
		end if
		
		strExName=Right(file.filename,4)
		strPassExName=".gif .jpg .png .swf .rar .zip .doc .txt .exl .rm .ram .wav"
		if Instr(strPassExName,Lcase(strExName) )<=0 then
			ShowMsg "对不起，只能上传" & strPassExName & " 格式的文件！"
		end if
		
		'求得文件保存位置		
		strCurrDir=upload.form("currdir")
		strFilePath="Home/" &  strUserName & "/UpFile" & upload.form("currdir") & "/" & file.filename
		strFilePath=Replace(strFilePath,"//","/")
		file.saveas server.mappath(strFilePath)   ''保存文件
		response.Redirect("explorer.asp?dir=" & strCurrDir & "&action=" & upload.form("action"))
%>
