<!--#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>
<style type="text/css">
<!--
.style1 {	color: #FFFFFF;
	font-weight: bold;
}
body,td,th {
	font-size: 12px;
}
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript">
function ConfirmDel()
{
   if(confirm("确认删除?并且不能恢复！确定要删除此文件？"))
     return true;
   else
     return false;	 
}
</script>
</head>
<!--#include file="function.asp" -->
<body>
<table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><iframe src="../right_top.htm" frameborder="0" scrolling="no" marginheight="0" marginwidth="0" height="30" width="100%"></iframe></td>
  </tr>
</table>
<table width="100%"  border="0" cellpadding="0" cellspacing="0" bgcolor="#FF9900" style="border:1px solid #000000;">
  <tr>
    <td height="22"><div align="center"><span class="style1">◆ 文件/文件夹管理 ◆</span></div></td>
  </tr>
</table>
<%
dim drv,fdr

set cls=new clsIterate
drv=trim(request.QueryString("drv"))
fdr=trim(request.QueryString("fdr"))

if(drv<>"") then
		Set objFS = Server.CreateObject("Scripting.FileSystemObject")
		Set oDrive = objFS.GetDrive(drv)
		Set oRootDir = oDrive.RootFolder
		'cls.Echo("<tr><td height=""22"" bgcolor=""#FFFFFF"" style=""padding:10px; line-height:20px;"">")
		cls.EchoB("<table width=""100%""  border=""1""><tr><td><B><a href=# onClick=""javascript:history.back()"">../"&"</a></B>")
		cls.EchoB("当前位置："&drv)
		cls.Echo("<form name=""form1"" method=""post"" action=""file.asp?createfolder="&drv&":\"">")
  			cls.Echo("<input name=""folder"" type=""text"" size=""10"">")
  			cls.Echo("<input type=""submit"" name=""Submit"" value=""创建文件夹"">&nbsp;&nbsp;<input type=button value=刷新 onClick='window.location.reload();'>")
			cls.Echo("<input type=button value=上传文件 onClick='location.href=""upload.asp?updir="&server.URLEncode(drv&":\")&""";'>")
		cls.Echo("</form></td></tr></table>")
		cls.Echo("<table width=""100%"" border=""0"" align=""center"" cellspacing=""1"" bgcolor=""#D4D0C8"">")
  		cls.Echo("<tr>")
    	cls.Echo("<td width=""40%"">名称</td>")
    	cls.Echo("<td width=""15%"">大小</td>")
    	cls.Echo("<td width=""20%"">类型</td>")
    	cls.Echo("<td width=""25%"">时间</td>")
  		cls.Echo("</tr>")
		Call cls.BuildFolderList(oRootDir, "")
		cls.Echo("</table>")
end if

if(fdr<>"") then
		Set objFS = Server.CreateObject("Scripting.FileSystemObject")
		Set oFolder = objFS.GetFolder(fdr)
		'cls.Echo("<tr><td height=""22"" bgcolor=""#FFFFFF"" style=""padding:10px; line-height:20px;"">")
		cls.EchoB("<table width=""100%""  border=""1""><tr><td><B><a href=# onClick=""javascript:history.back()"">../"&"</a></B>")
		cls.EchoB("当前位置："&fdr)
		cls.Echo("<form name=""form1"" method=""post"" action=""file.asp?createfolder="&fdr&""">")
  			cls.Echo("<input name=""folder"" type=""text"" size=""10"">")
  			cls.Echo("<input type=""submit"" name=""Submit"" value=""创建文件夹"">&nbsp;&nbsp;<input type=button value=刷新 onClick='window.location.reload();'>")
			cls.Echo("<input type=button value=上传文件 onClick='location.href=""upload.asp?updir="&server.URLEncode(fdr)&""";'>")
		cls.Echo("</form></td></tr></table>")		
		cls.Echo("<table width=""100%"" border=""0"" align=""center"" cellspacing=""1"" bgcolor=""#D4D0C8"">")
  		cls.Echo("<tr>")
    	cls.Echo("<td width=""40%"">名称</td>")
    	cls.Echo("<td width=""15%"">大小</td>")
    	cls.Echo("<td width=""20%"">类型</td>")
    	cls.Echo("<td width=""25%"">时间</td>")
  		cls.Echo("</tr>")
		Call cls.BuildFolderList(oFolder,"")
		cls.Echo("</table>")
end if

cls.Cleanup oDrive
cls.Cleanup oRootDir
cls.Cleanup oFolder
cls.Cleanup objFS

set cls=nothing
%>
</table>
</body>
</html>
<%
call connclose()
%>