<!--#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)
		if Instr(".htm,.html",Lcase(strExName) )<=0 then
			ShowMsg "对不起，只能上传HTML静态文件！"
		end if
		
		if Instr(strFilter,Lcase(file.filename) ) > 0 then
			ShowMsg "文件上传失败，上传的文件与一些系统的文件同名，请改用其它文件名！"
		end if
		file.saveas server.mappath("Home/" &  strUserName & "/" & file.filename)   ''保存文件
		response.Redirect("Admin_AllEdit.asp")
%>
