<!--#include file="../../inc/config.asp"-->
<!--#include file="../../inc/conn.asp"-->
<!-- #include file="../inc/Session.asp" -->
<!-- #include file="../inc/checkrole.asp" -->
<%
'''''''''''''''''''''''''''''''''''''''''''''''
call checkPrevilege(Session("Name"),"0000")
'''''''''''''''''''''''''''''''''''''''''''''''
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<!--#include file="function.asp" -->
<body>
<%
dim files,del,createfolder,deledir
set cls=new clsIterate
files=trim(request.QueryString("files"))
del=trim(request.QueryString("del"))
createfolder=trim(request.QueryString("createfolder"))
deledir=trim(request.QueryString("deledir"))
'=============================
if(files<>"") then			
		Call cls.downloadFile(files)		
end if
'=============================

if(del<>"") then			
		Call cls.delFile(del)		
		response.Write("<script>alert(""成功删除文件:"&del&""");</script>")
		response.Write("<meta http-equiv=""refresh"" content=""0;URL="&request.ServerVariables("HTTP_REFERER")&""">")
end if

'=============================
if(createfolder<>"") then
	folder=request.Form("folder")
	if(len(folder)<1) then
		 response.Write("文件夹名不能为空!")
	end if
	if(folder<>"") then
		Call cls.mkDir(createfolder&"\"&folder)
		response.Write("<script>alert(""成功创建文件夹:"&folder&""");</script>")
		response.Write("<meta http-equiv=""refresh"" content=""0;URL="&request.ServerVariables("HTTP_REFERER")&""">")
	end if	
end if
'============================
if(deledir<>"") then			
		Call cls.deleDir(deledir)
		response.Write("<script>alert(""成功删除文件夹:"&deledir&""");</script>")
		response.Write("<meta http-equiv=""refresh"" content=""0;URL="&request.ServerVariables("HTTP_REFERER")&""">")
end if
'=============================
set cls=nothing
%>
</body>
</html>
<%
call connclose()
%>