<!--#include file="fsoconfig.asp"-->
<!--#include file="checklogin.asp"-->
<!--#include file="incupload.asp"-->
<%
set upload=new upload_5xsoft
if upload.form("act")="uploadfile" then
	filepath=trim(upload.form("filepath"))
	if left(filepath,1)<>"/" or instr(filepath,"\")>0 or instr(filepath,"*")>0 or instr(filepath,"?")>0 or instr(filepath,"'")>0 or instr(filepath,chr(34))>0 then
		response.write "<center><div style='width:600px;margin-top:100px;padding:3px 0;text-align:center;font-size:12px;color:#990000;border:solid 1px;border-color:#000090 #000090 #cccccc;background:#cccccc'>98062.com在线文件管理器--上传结果报告</div><div style='width:600px;padding:30px;font-size:12px;color:#000090;border:solid 1px;border-color:#000090 #000090 #cccccc;'>"
		response.write "对不起，没有填写路径或路径中含有非法字符<br><br>"
		response.write "<input type='button' style='width:65px;height:20px;font-size:12px' value='返回' onclick='window.history.go(-1)'>　　　<input type='button' style='width:65px;height:20px;font-size:12px' value='关闭' onclick='window.close()'></div>"&vbcrlf
		response.write "<div style='width:600px;padding:3px 0;font-size:12px;color:#000090;border:solid 1px;border-color:#cccccc #000090 #000090;background:#cccccc;'>版权所有：<a href='http://www.98062.com' target='_blank'>www.98062.com</a>　　　程序设计：<a href=mailto:netasp@sohu.com>netasp@sohu.com</a></div>"&vbcrlf&"</center>"
		response.end
	end if
	if right(filepath,1)<>"/" then
		filepath=filepath&"/"
	end if
	if session("grade")<>3 and session("pathaccess")<>left(filepath,len(session("pathaccess"))) then
		set upload=nothing
%>
<html>
<head>
<title><%=sysname%>--出错信息</title>
<META http-equiv=Content-Type content=text/html; charset=gb2312>
<script language="javascript">
<!--
function alert_msg()
{
alert("抱歉，你只有管理目录 “<%=session("pathaccess")%>” 及其子目录的权限！");
window.close();
}
//-->
</script>
</head>
<body onload="alert_msg()">
</body>
</html>
<%
		response.end
	end if
	basepath=Server.mappath(filepath)
	set obj_fso=server.createobject("scripting.filesystemobject")
	if not obj_fso.folderexists(basepath) then
		set obj_fso=nothing
		set upload=nothing
		response.write "<center><div style='width:600px;margin-top:100px;padding:3px 0;text-align:center;font-size:12px;color:#990000;border:solid 1px;border-color:#000090 #000090 #cccccc;background:#cccccc'>98062.com在线文件管理器--上传结果报告</div><div style='width:600px;padding:30px;font-size:12px;color:#000090;border:solid 1px;border-color:#000090 #000090 #cccccc;'>"
		response.write "对不起，目录“"&filepath&"”不存在，请先创建该目录！<br>"&vbcrlf
		response.write "<br><input type='button' style='width:65px;height:20px;font-size:12px' value='返回' onclick='window.history.go(-1)'>　　　<input type='button' style='width:65px;height:20px;font-size:12px' value='关闭' onclick='window.close()'></div>"
		response.write "<div style='width:600px;padding:3px 0;font-size:12px;color:#000090;border:solid 1px;border-color:#cccccc #000090 #000090;background:#cccccc;'>版权所有：<a href='http://www.98062.com' target='_blank'>www.98062.com</a>　　　程序设计：<a href=mailto:netasp@sohu.com>netasp@sohu.com</a></div>"&vbcrlf&"</center>"
		response.end
	end if
%>
<html>
<head>
<title><%=sysname%>--上传文件成功</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body onload="opener.window.location.reload()">
<center>
<div style="width:600px;margin-top:100px;padding:3px 0;text-align:center;font-size:12px;color:#990000;border:solid 1px;border-color:#000090 #000090 #cccccc;background:#cccccc">98062.com在线文件管理器--上传结果报告</div>
<div style="width:600px;padding:30px;font-size:12px;color:#000090;border:solid 1px;border-color:#000090 #000090 #cccccc;">
<%
	i=0
	for each formName in upload.objFile
		set file=upload.objFile(formName)
		if file.FileSize>0 then
			file.SaveAs basepath&"\"&file.FileName
			response.write file.FileName&" ("&formatnumber(file.FileSize/1024,2,-1)&" K )　　上传至　　"
			response.write filepath&file.FileName&"　　成功!<br>"
			i=i+1
 		end if
		set file=nothing
	next
	set upload=nothing
	response.write "<br><br><br><b>共"&i&"个文件上传成功！</b><br>"
	response.write "<br><input type='button' style='width:65px;height:20px;font-size:12px' value='返回' onclick='window.history.go(-1)'>　　　<input type='button' style='width:65px;height:20px;font-size:12px' value='关闭' onclick='window.close()'></div>"&vbcrlf
	response.write "<div style='width:600px;padding:3px 0;font-size:12px;color:#000090;border:solid 1px;border-color:#cccccc #000090 #000090;background:#cccccc;'>版权所有：<a href='http://www.98062.com' target='_blank'>www.98062.com</a>　　　程序设计：<a href=mailto:netasp@sohu.com>netasp@sohu.com</a></div>"&vbcrlf&"</center>"&vbcrlf
	response.write "</body>"&vbcrlf
	response.write "</html>"&vbcrlf
else
	set upload=nothing
	response.redirect "fsoexplorer.asp?ntime="&ntime
end if
%>
 

