filemanager.htm
来自「全方面的OA管理程序代码」· HTM 代码 · 共 154 行
HTM
154 行
<HTML>
<HEAD>
<TITLE> File System Manager </TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../css/main.css">
</HEAD>
<BODY topmargin=0 marginheight=0>
<form name="mainform" action='FileManager.htm' method=post>
<input type=hidden name=faction value=''>
<input type=hidden name=nf value=''>
<input type=hidden name="RootDir" value="<%=RootDir%>">
<div align="center">
<table border=0 width="98%">
<tr>
<td> </td>
<td></td>
</tr>
<tr>
<td width="50%"> <img src="icon_home.gif" alt="Root DIR" border=0><b> <img src="icon_upone.gif" border=0><BR>
<%end if%>
</b>
<select size=22 name=fsel ONDBLCLICK="if((checkSelected(document.mainform.fsel.selectedIndex)&&(checkFolder(document.mainform.fsel[document.mainform.fsel.selectedIndex].value))))
opendir(document.mainform.fsel[document.mainform.fsel.selectedIndex].value);else viewfile(document.mainform.fsel[document.mainform.fsel.selectedIndex].value);">
<%
if str ="" then
response.write "<option value="& currentfolder &"> "
else
response.write str
end if
%>
</select>
</td>
<td valign="bottom" align="center">
<table border=0>
<tr height=30>
<td align="center"><input type="button" name="Open" value="打开选择的目录" style='background:#336699' class='Font9BoldWhite' onClick="if(checkSelected(document.mainform.fsel.selectedIndex))
opendir(document.mainform.fsel[document.mainform.fsel.selectedIndex].value)"></td>
</tr>
<tr height=30>
<td align="center">
<%if instr(RootDir,LoginID&"_")>1 or instr(RootDir,"/FileDir/Public")>0 then%>
<input type="button" name="Delete" value="删除" style='background:#336699' class='Font9BoldWhite' onClick="if(checkSelected(document.mainform.fsel.selectedIndex)) delfile('<%=currentfolder%>',document.mainform.fsel[document.mainform.fsel.selectedIndex].value);">
<%elseif trim(RootDir)="../FileDir/"&LoginID or trim(RootDir)="/FileDir/"&LoginID then%>
<input type="button" name="Delete" value="删除" style='background:#336699' class='Font9BoldWhite' onClick="if(checkSelected(document.mainform.fsel.selectedIndex)) delfile('<%=currentfolder%>',document.mainform.fsel[document.mainform.fsel.selectedIndex].value);">
<%else%>
<input type="button" name="Delete" value="删除" style='background:#336699' class='Font9BoldWhite' onClick="if(checkSelected(document.mainform.fsel.selectedIndex)) delfile('<%=currentfolder%>',document.mainform.fsel[document.mainform.fsel.selectedIndex].value);" disabled>
<%end if%>
<%if instr(RootDir,LoginID&"_")>1 or instr(RootDir,"/FileDir/Public")>0 then%>
<input type="button" value="重命名" style='background:#336699' class='Font9BoldWhite' onClick="if(checkSelected(document.mainform.fsel.selectedIndex)) renfile('<%=currentfolder%>',document.mainform.fsel[document.mainform.fsel.selectedIndex].value);">
<%elseif trim(RootDir)="../FileDir/"&LoginID or trim(RootDir)="/FileDir/"&LoginID then%>
<input type="button" value="重命名" style='background:#336699' class='Font9BoldWhite' onClick="if(checkSelected(document.mainform.fsel.selectedIndex)) renfile('<%=currentfolder%>',document.mainform.fsel[document.mainform.fsel.selectedIndex].value);">
<%else%>
<input type="button" value="重命名" style='background:#336699' class='Font9BoldWhite' onClick="if(checkSelected(document.mainform.fsel.selectedIndex)) renfile('<%=currentfolder%>',document.mainform.fsel[document.mainform.fsel.selectedIndex].value);" disabled>
<%end if%>
</td>
</tr>
<tr height=30>
<td align="center">
<%if instr(RootDir,LoginID&"_")>1 or instr(RootDir,"/FileDir/Public")>0 then%>
<input type="button" name="Create" value="创建目录" style='background:#336699' class='Font9BoldWhite' onClick="createdir('<%=currentfolder%>');">
<%elseif trim(RootDir)="../FileDir/"&LoginID or trim(RootDir)="/FileDir/"&LoginID then%>
<input type="button" name="Create" value="创建目录" style='background:#336699' class='Font9BoldWhite' onClick="createdir('<%=currentfolder%>');">
<%else%>
<input type="button" name="Create" value="创建目录" style='background:#336699' class='Font9BoldWhite' onClick="createdir('<%=currentfolder%>');" disabled>
<%end if%>
<input type="button" name="View" value="查看文件" style='background:#336699' class='Font9BoldWhite' onClick="if(checkSelected(document.mainform.fsel.selectedIndex)) viewfile(document.mainform.fsel[document.mainform.fsel.selectedIndex].value);">
</td>
</tr>
</table><br></form>
<form method="post" name="FileUploads" enctype="multipart/form-data" action="FileUpload.htm?RootDir=<%=RootDir%>&FileUpFolder=<%=currentFolder%>">
<table border=0 cellpadding=3 cellspacing=1 bgcolor=#0047b0 width="100%">
<tr bgcolor=#ffffff><td><font color=red>提醒：如果您的文件是 Word、Excel、PowerPoint等文档建议压缩成 .zip文件再上传！</font>
</td></tr>
<tr bgcolor=#ffffff><td>
<table border="0" cellspacing="0" width="100%">
<tr>
<td>文件：</td><td><input type="file" name="File1" size=20 class="input"></td>
</tr>
<tr>
<td>主题：</td><td><input type="text" name="Text1" size=20 maxlength=50 class="input"></td>
</tr>
</table>
</td></tr>
<tr bgcolor=#ffffff><td>
<table border="0" cellspacing="0" width="100%">
<tr>
<td>文件：</td><td><input type="file" name="File2" size=20 class="input"></td>
</tr>
<tr>
<td>主题：</td><td><input type="text" name="Text2" size=20 maxlength=50 class="input"></td>
</tr>
</table>
</td></tr>
<tr bgcolor=#ffffff><td>
<table border="0" cellspacing="0" width="100%">
<tr>
<td>文件：</td><td><input type="file" name="File3" size=20 class="input"></td>
</tr>
<tr>
<td>主题：</td><td><input type="text" name="Text3" size=20 maxlength=50 class="input"></td>
</tr>
</table>
</td></tr>
</table>
<%if instr(RootDir,LoginID&"_")>1 or instr(RootDir,"/FileDir/Public")>0 then%>
<INPUT TYPE="submit" name="cmdUp" value="执行文件上传" style='background:#336699' class='Font9BoldWhite' onclick="return CheckFileData();">
<%elseif trim(RootDir)="../FileDir/"&LoginID or trim(RootDir)="/FileDir/"&LoginID then%>
<INPUT TYPE="submit" name="cmdUp" value="执行文件上传" style='background:#336699' class='Font9BoldWhite' onclick="return CheckFileData();">
<%else%>
<INPUT TYPE="submit" name="cmdUp" value="执行文件上传" style='background:#336699' class='Font9BoldWhite' onclick="return CheckFileData();" disabled>
<%end if%>
</form>
</td>
</tr>
</table>
</div><BR>
</body>
</html>
<script language=javascript>
function CheckFileData()
{
if(jtrim(document.FileUploads.File1.value)=="")
{
alert("请选择要上传的文件")
return false;
}
return true;
}
</script>
<script language=javascript src="../inc/jtrim.js"></script>
<script language="Javascript" src="functions.js"></script>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?