📄 files_brower.asp
字号:
<!--#include file="CONST.ASP"-->
<!--#include file="inc/chkuser.asp"-->
<!--#include file="inc/htmlhead.asp"-->
<!--#include file="inc/char.asp"-->
<!--#include FILE="inc/Syschar.asp"-->
<%helpID=3
'if not isMaster or SetPower(2,4)=false then
if SetPower(2,4)=false then
call EndProc("<br><li>没有进入文件管理面板权限，或你尚未登陆！",1,"login.asp")
end if
if right(GetPath,1)<>"/" then GetPath=GetPath&"/"
SetTemp=CheckFolder(GetPath,1)
if SetTemp<>"True" then EndProc SetTemp,1,""
Select CASE GetAction
CASE "DelAll" DelAllSelect()
CASE "DelFile" DelFileS()
CASE "DelFolder" DelFolderS()
CASE "RenFile" RenameFile()
CASE "RenFolder" RenameFolder()
CASE "MkFolder" MakeFolder()
CASE "Copy" Do_Copy_Cut()
CASE "Cut" Do_Copy_Cut()
CASE "Paste" DoPaste()
CASE "MkFile" MakeFile()
CASE "previewSwith" previewSwith()
End Select
if Preview=0 then
GetPreview="关闭预览"
else
GetPreview="打开预览"
end if
set GetFolder=Fso.GetFolder(Server.mappath(GetPath))
%>
<!--#include file="inc/Javacript.asp" -->
</head>
<body bgcolor="#e8e8e8" text="#000000" leftmargin="0" rightmargin="0" topmargin="0" bottommargin="20">
<!--#include file="TopNav.asp" -->
<center>
<form name="boxobj" method="post" action="<%=GetBaseUrl%>" style="margin:0px" >
<table width="97%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#e8e8e8" bordercolorlight="#666666" bordercolordark="#FFFFFF" bgcolor="#e8e8e8">
<tr>
<td width="100%" height="50" align="center" bgcolor="#e8e8e8"> <table width="100%" height="45" cellpadding="3" cellspacing="0" border=0>
<tr valign="top" >
<td width="251" height="30" background="pic/wedmenu.gif" ></td>
<%if Session("Folderbuffer")<>"" or Session("Filebuffer")<>"" then%>
<td align="right" background="pic/wedmenu-04.gif" ><input type=checkbox value=1 name=fgit <%if request.querystring("fgit")="1" then response.write "checked" end if %>>覆盖(OverWrite)</td>
<%end if%>
<td align="right" valign="top" background="pic/wedmenu-04.gif"><nobr>
<%if Session("Folderbuffer")<>"" or Session("Filebuffer")<>"" then
Response.write ("<span valign=top></span>")
Response.write ("<a onclick='ClipBoard();'><img src='pic/clip_on.gif' width='26' height='26' alt='察看剪贴板' border=0 onMouseOver='' onMouseOut='' style='margin-bottom: 6px;cursor: hand;' ></a> ")
end if%>
</nobr> </td>
<td width="51" align="center" background="pic/wedmenu-04.gif"><a href="javascript:refreshWindow();"><img src="pic/refresh_dark.gif" width="26" height="26" alt="刷新当前页" border="0" class="bt3" onMouseDown="this.clasSetName='btbak';" onMouseOver="this.clasSetName='bt';this.src='pic/refresh.gif';" onMouseOut="this.clasSetName='';this.src='pic/refresh_dark.gif';"></a></td>
<td width="51" height="30" align="center" background="pic/wedmenu-04.gif"><a href="javascript:FilesOption('Cut');"><img src="pic/Cut_dark.gif" width="26" height="26" alt="剪切选中的文件与目录到剪贴板" border="0" class="bt3" onMouseDown="this.clasSetName='btbak';" onMouseOver="this.clasSetName='bt';this.src='pic/Cut.gif'" onMouseOut="this.clasSetName='';this.src='pic/Cut_dark.gif'"></a></td>
<td width="51" align="center" background="pic/wedmenu-04.gif"><a href="javascript:FilesOption('Copy');"><img src="pic/Copy_dark.gif" width="26" height="26" alt="复制选中的文件与目录到剪贴板" border="0" class="bt3" onMouseDown="this.clasSetName='btbak';" onMouseOver="this.clasSetName='bt';this.src='pic/Copy.gif';" onMouseOut="this.clasSetName='';this.src='pic/Copy_dark.gif'"></a></td>
<td width="51" align="center" background="pic/wedmenu-04.gif"><a href="javascript:paste();"><img src="pic/paste_dark.gif" alt="粘贴剪贴板中的文件与目录" width="26" height="26" border="0" class="bt3" onMouseDown="this.clasSetName='btbak';" onMouseOver="this.clasSetName='bt';this.src='pic/paste.gif'" onMouseOut="this.clasSetName='';this.src='pic/paste_dark.gif'"></a></td>
<td width="51" align="center" background="pic/wedmenu-04.gif"><a href="javascript:DelAll();"><img src="pic/del_dark.gif" width="26" height="26" alt="删除选中的文件与目录" border="0" class="bt3" onMouseDown="this.clasSetName='btbak';" onMouseOver="this.clasSetName='bt';this.src='pic/del.gif'" onMouseOut="this.clasSetName='';this.src='pic/del_dark.gif'"></a></td>
<td width="51" align="center" background="pic/wedmenu-04.gif"><a href="javascript:aboutme();"><img src="pic/lfgbox.gif" alt="关于该程序" width="32" height="32" border="0" class="bt3" onMouseDown="this.clasSetName='btbak';" onmouseover="this.src='pic/lfgbox_h.gif'" onmouseout="this.src='pic/lfgbox.gif'"></a></td>
<td width="8" align="center" background="pic/wedmenu-05.gif"></td>
</tr>
</table></td>
</tr>
<td width="100%" height="41" valign="top">
<table width="100%" height="35" border="1" align="center" cellpadding="0" cellspacing="0" bgcolor="#D4D0c8">
<td width="98%" bordercolor="#D4D0c8" bgcolor="#D4D0c8">
<table width="100%" height="32" bgcolor="#D4D0c8">
<tr bordercolor="#D4D0c8">
<td width="124" align="right"><nobr> <img src="pic/folderA.gif" width="18" height="17"> <script language="VBScript">document.write "<font color=#3366ee>"&document.location.protocol&"//"&document.location.hostname&"</font>"
</script></nobr></td>
<td width="479" align="center"><input type="text" name="curpath" style="width:100%" class="tx" value="<%=GetPath%>"></td>
<td width="122" align="center"><nobr><img src="pic/filterIRON.gif" align="left">搜索:
<input type="text" name="filter" style="width:55" class="tx" value="<%=GetFilter%>" title="可支持统配符号*,如,*AA*,*AA,AA* 无统配符号则相当于*AAA* 并可匹配大小写">
</nobr></td>
<td width="31"><input name="ULcase" type="checkbox" value="1" <%if GetFilterULcase=1 then%> checked <% End If %> title="匹配大小写" onClick="ChFolder(document.boxobj.curpath.value,0);"></td>
<td width="84"><input type="button" name="Button" value="确 认" class="btx" onClick="ChFolder(document.boxobj.curpath.value,0);" ></td>
<td width="57"> </td>
<td width="71"><input name="button2" type=button class="btx" onClick="location.href='login.asp?action=exit';" value="退出登录"></td>
</tr>
</table></td>
</table></td>
<tr>
<td width="100%" height="10" align="left" valign="top">
<table width="100%" height="10" border="0" cellpadding="0" cellspacing="0" >
<tr>
<td width="260" height="10" align="left" valign="top">
<table width="100%" height="10" border="1" cellpadding="0" cellspacing="0" bordercolorlight="#999999" bordercolordark="#eeeeee" bgcolor="#cacaca">
<tr>
<td height="26" colspan="5" align="center" valign="middle" bgcolor="#D4D0c8">
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#999999" bordercolordark="#FFFFFF">
<tr align="left" valign="middle" bgcolor="E1DDD4">
<td width="24" class='bob'> </td>
<td width="251" class='boc'>
<input type="button" name="Button4" value="建新目录" class="btx" onClick="MkFolders();">
<input name="button352" type="button" class="btx" onClick="listAll();" value="遍历目录">
</td>
</tr>
</table>
</td>
</tr>
<tr align="left">
<td height="20" colspan="5" valign="middle" bordercolor="#CCCCCC" bgcolor="#CCCCCC">
<%if GetPath<>GetRootUrl and GetPath<>"/" then Response.write "<a href=""javascript:ChFolder('"&left(GetPath,instrRev(GetPath,"/",len(GetPath)-1))&"',0);""><img src='pic/dir.gif' alt=返回上一级目录 border='0' onmouseover=this.src='pic/dir_x.gif' onmouseout=this.src='pic/dir.gif' ></a>"%>
</td>
</tr>
<tr>
<td width="23" height="21" align="center" valign="middle" ><input type="checkbox" name="theFolder" id="theFolder" value="all" onClick="{if (this.checked==true)SelectFolderall(true);else SelectFolderall(false);}" title="目录全部选择／取消选择"></td>
<td width="21" align="center" valign="middle" ><a href="javascript:refreshWindow();" ><img src="pic/folderB.gif" width="18" border="0" height="17" onmouseover="this.src='pic/folderA.gif'" onmouseout="this.src='pic/folderB.gif'"></a></td>
<td width="124" align="left" > </td>
<td width="40" align="center" >更名</td>
<td width="40" align="center" >删除</td>
</tr>
<%
dim theFolder,cMaxDir
dim theFile,cMaxCount,iTotleSize,c,iMaxPage
cMaxDir=0
for each theFolder in GetFolder.SubFolders
cMaxDir=cMaxDir+1
%>
<tr bgcolor='#d8d8d8'>
<td height="21" align="center" valign="middle"><input type="checkbox" name="chidd<%=cMaxDir%>" id="chidd<%=cMaxDir%>" value="<%=theFolder.Name%>"></td>
<td align="center" valign="middle"><a href="javascript:ChFolder('<%=theFolder.Name%>',1);" ><img src="pic/folderB.gif" width="18" border="0" height="17" onmouseover="this.src='pic/folderA.gif'" onmouseout="this.src='pic/folderB.gif'"></a></td>
<td align="left"> <a href="javascript:ChFolder('<%=theFolder.Name%>',1);"><%=theFolder.Name%></a></td>
<td align="center"><a href="javascript:renFolder('<%=theFolder.Name%>');">Ren</a></td>
<td align="center"><a href="javascript:DelFolder('<%=thefolder.Name%>')">Del</a></td>
</tr>
<%
next
c=0
cMaxCount=0
iTotleSize=0
For Each theFile in GetFolder.Files
if CheckFile(theFile.Name,0,"02")="True" then
cMaxCount=cMaxCount+1
iTotleSize=iTotleSize+theFile.Size
end if
next
iMaxPage=cMaxCount\GetPageSize+1
if GetPage>iMaxPage then GetPage=iMaxPage
%>
<tr valign="bottom">
<td height="24" colspan="5" bordercolor="#cacaca" bgcolor="#cacaca"> 共
<font color=#ffff55><%=cMaxDir%></font> 个目录
<input type="hidden" name="maxdir" value="<%=cMaxDir%>">
</td>
</tr>
<tr>
<td height="26" colspan="5" background="pic/GRAYBLUE.GIF">
</td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -