📄 manage.asp
字号:
obj1=eval('obj.chidd'+i);
obj1.checked=act;
i++;
}
}
function doit(act)
{
i=1;
issel=0;
obj=document.webedit;
while(eval('obj.chidf'+i))
{
obj1=eval('obj.chidf'+i);
if(obj1.checked)
{issel=1;break;}
i++;
}
i=1
while(eval('obj.chidd'+i))
{
obj1=eval('obj.chidd'+i);
if(obj1.checked)
{issel=1;break;}
i++;
}
if(!issel)
{alert('请先选择文件与目录。');return;}
obj.action=baseurl+'&act='+act;
obj.submit();
}
function refreshit()
{
obj=document.webedit;
obj.action=baseurl;
obj.submit();
}
function viewclip()
{
window.open('viewclip.asp','_blank','scrollbars');
}
function delit(str)
{
if(!confirm('确定要删除文件'+str+'吗?'))
return;
obj=document.webedit;
obj.action=baseurl+'&act=delit&file='+str;
obj.submit();
}
function delitd(str)
{
if(!confirm('确定要删除目录'+str+'吗?'))
return;
obj=document.webedit;
obj.action=baseurl+'&act=delitd&file='+str;
obj.submit();
}
function open_win(url,name,width,height,scroll)
{
var Left_size = (screen.width) ? (screen.width-width)/2 : 1;
var Top_size = (screen.height) ? (screen.height-height)/3 : 1;
var open_win=window.open(url,name,'width=' + width + ',height=' + height + ',left=' + Left_size + ',top=' + Top_size + ',toolbar=no,scrollbars=' + scroll + ',resizable=no' );
}
function dis_edit()
{
alert('该类型文件为非ASCII文件，暂时无法编辑！');
}
function document.onkeydown(){
if(event.keyCode==122){
window.opener=null
window.close();
}
}
</script>
</head>
<body oncontextmenu="return false" true" onkeydown=return(!(event.ctrlKey||event.shiftKey||event.keyCode==122)) ;return>
<form name="webedit" method="post" action="<%=gBaseUrl%>">
<table width="773" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#666666" bordercolordark="#FFFFFF">
<tr>
<td height="40" bgcolor="#d6d3cc" width="774">
<table width="772" border="0" cellspacing="0" cellpadding="5">
<tr>
<td height="32" width="332"><font color="#FF0000">注意：请在操作前，建议关闭所有屏蔽浏览器弹出窗口的插件</font></td>
<td width="34" height="30" align="center"><a href="javascript:del();"><img src="image/del.gif" width="32" height="32" alt="删除所选文件与目录" border="0" class="imgbutton" onMouseOver="this.className='imgbt'" onMouseOut="this.className='imgbutton'"></a></td>
<td width="34" height="30" align="center"><a href="javascript:doit('cut');"><img src="image/cut.gif" width="32" height="32" alt="剪切所选文件与目录到剪贴板" border="0" class="imgbutton" onMouseOver="this.className='imgbt'" onMouseOut="this.className='imgbutton'"></a></td>
<td width="34" height="30" align="center"><a href="javascript:doit('copy');"><img src="image/copy.gif" width="32" height="32" alt="复制所选文件与目录到剪贴板" border="0" class="imgbutton" onMouseOver="this.className='imgbt'" onMouseOut="this.className='imgbutton'"></a></td>
<td width="34" height="30" align="center"><a href="javascript:paste();"><img src="image/paste.gif" width="32" height="32" alt="粘贴剪贴板中的内容" border="0" class="imgbutton" onMouseOver="this.className='imgbt'" onMouseOut="this.className='imgbutton'"></a></td>
<td width="34" height="30" align="center"><a href="javascript:refreshit();"><img src="image/refresh.gif" width="32" height="32" alt="刷新" border="0" class="imgbutton" onMouseOver="this.className='imgbt'" onMouseOut="this.className='imgbutton'"></a></td>
<td width="204" height="32">剪贴板状态：
<%if Session("bufferdir")<>"" or Session("bufferfile")<>"" then response.write "<input type=button value=""查看剪贴板"" class=""imgbt"" onclick=""open_win('viewclip.asp','',400,300,'yes');"">":else response.write " 空 ":end if%> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="30" bgcolor="#d6d3cc" width="774">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20"> 当前位置：
<input type="text" name="curpath" style="width:350" class="tx" value="<%=gPath%>">
查找:
<input type="text" name="filter" style="width:100" class="tx" value="<%=gFilter%>">
<input type="button" value="转到" class="bt1" onClick="chdir(document.webedit.curpath.value,0);">
</td>
<td height="20" width="0%"> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="369" align="left" valign="top" width="773">
<table width="773" border="1" cellspacing="0" cellpadding="0">
<tr>
<td height="365" align="left" valign="top" width="213">
<table width="211" border="0" cellpadding="0" cellspacing="1" bgcolor="f6f6f6">
<tr align="center" bgcolor="#EEEEEE">
<td height="25" colspan="5" valign="middle">
<input type="button" name="Button33" value="全选目录" class="bt1" onClick="seldirall(true);" >
<input type="button" name="Button332" value="取消选择" class="bt1" onClick="seldirall(false);">
<input type="button" name="Button4" value="新建目录" class="bt1" onClick="mkdir();"> </td>
</tr>
<tr align="left" bgcolor="#EEEEEE">
<td height="25" valign="middle" colspan="5">
<%if gPath<>gRootUrl and gPath<>"/" then response.write "<img src=image/folderback.gif><a href=""javascript:chdir('"&left(gPath,instrRev(gPath,"/",len(gPath)-1))&"',0);"">上一级目录</a>"%>
</td>
</tr>
<%
dim theFolder,cMaxDir
dim theFile,cMaxCount,iTotleSize,c,iMaxPage
cMaxDir=0
for each theFolder in gFolder.SubFolders
cMaxDir=cMaxDir+1
%><tr bgcolor="ffffff"><td width="24" height="20" align="center" valign="middle"><input type="checkbox" name="chidd<%=cMaxDir%>" id="chidd<%=cMaxDir%>" value="<%=theFolder.Name%>">
</td><td width="16" align="center" valign="middle"><img src="image/folder1.gif" width="30" height="30"></td>
<td width="108" align="left"> <a href="javascript:chdir('<%=theFolder.Name%>',1);" onMouseMove="window.status='<%=theFolder.Name%>';" onMouseOut="status='';"><%=theFolder.Name%></a></td>
<td width="33" align="center"><a href="javascript:renamed('<%=theFolder.Name%>');">改名</a></td>
<td width="30" align="center"><a href="javascript:delitd('<%=thefolder.Name%>')">删除</a></td>
</tr><%
next
c=0
cMaxCount=0
iTotleSize=0
For Each theFile in gFolder.Files
if procCheckFile(theFile.Name,0)="ok" then
cMaxCount=cMaxCount+1
iTotleSize=iTotleSize+theFile.Size
end if
next
iMaxPage=cMaxCount\gPageSize+1
%>
<tr bgcolor="#EEEEEE">
<td height="11" colspan="5">共 <%=cMaxDir%> 个目录
<input type="hidden" name="maxdir" value="<%=cMaxDir%>">
</td>
</tr>
<tr bgcolor="#EEEEEE">
<td height="11" colspan="5">HOHO
</td>
</tr>
</table>
</td>
<td width="4" height="365" bgcolor="#d6d3cc"></td>
<td width="552" height="365" align="left" valign="top">
<table width="550" border="0" cellpadding="0" cellspacing="1" bgcolor="f6f6f6">
<tr bgcolor="#EEEEEE">
<td height="25" colspan="5" valign="middle"> <input type="button" name="Button3" value="全选文件" class="bt1" onClick="selfileall(true);">
<input type="button" name="Button32" value="取消选择" class="bt1" onClick="selfileall(false);">
<%
if kjs.size>=kj then
Response.Write("<font color=ff0000>系统提示：您的空间容量已满！</font>")
else
select case rshost("uptype")
case 1
Response.Write "<input type=button value=上传文件 class=imgbt onclick=javascript:open_win('upload/aspupload.asp?path="&gpath&"','upload',800,600,'yes');>"
case 2
Response.Write "<input type=button value=上传文件 class=imgbt onclick=javascript:open_win('upload/fsoupload.asp?path="&gpath&"','upload',800,600,'yes');>"
End select
end if
%></td></tr>
<tr align="left">
<td height="25" valign="middle" colspan="5" bgcolor="#EEEEEE">总
<%=cMaxCount%> 个文件,<%=gPageSize%>个/页 第 <%=gPage%> 页,共 <%=iMaxPage%> 页,
<%
if gPage>1 then
response.write "<a href="""&gFileName&"?path="&gPath&"&page="&gPage-1&""">上一页,</a>"
else
response.write "上一页,"
end if
if gPage<iMaxPage then
response.write "<a href="""&gFileName&"?path="&gPath&"&page="&gPage+1&""">下一页</a>,"
else
response.write "下一页,"
end if
response.write "转到第 <select id='selectpage' onchange=""window.location.href='"&gFileName&"?page='+(this.options.selectedIndex+1)+'&path="&replace(gPath,"'","\'")&"';this.disabled=true;"">" & vbcrlf
for i=1 to iMaxPage
if i=gpage then
response.write "<option selected>"&i&"</option>" & vbcrlf
else
response.write "<option>"&i&"</option>" & vbcrlf
end if
next
response.write "</select> 页" & vbcrlf
%>
</td>
</tr>
<tr bgcolor="#EFEBDE">
<td height="20" align="center" valign="middle"> </td>
<td width="180" align="center" valign="middle">名 称</td>
<td width="150" align="center">操 作</td>
<td align="center">大 小</td>
<td align="center">修改日期</td>
</tr>
<%
cMaxCount=0
iTotleSize=0
For Each theFile in gFolder.Files
c=c+1
if cMaxCount>=gPageSize then
exit For
elseif procCheckFile(theFile.Name,0)="ok" and c>gPageSize*(gPage-1) then
iTotleSize=iTotleSize+theFile.Size
cMaxCount=cMaxCount+1
%>
<tr bgcolor="#ffffff">
<td width="31" height="25" align="center" valign="middle">
<input type="checkbox" name="chidf<%=cMaxCount%>" id="chidf<%=cMaxCount%>" value="<%=theFile.Name%>"> </td>
<td valign="middle"><img src="image/<%=procGetFormat(theFile.Name)%>.gif"> <a href="javascript:void(0)" onMouseMove="window.status='<%=thefile.name%>';" onMouseOut="status='';" onClick="javascript:openit('<%=theFile.Name%>');"><%=theFile.Name%></a>
<%
file_type=lcase(mid(theFile.Name,InStrRev(theFile.Name, ".")+1))
select case file_type
case "gif","jpg","jpe","jpeg","png","bmp"
response.write "<img src="""&rshost("userurl")+gPath+theFile.Name&""" width=35 height=35 align=middle>"
case else
response.write " "
end select
%>
<%=thefile.type%>
</td>
<td align="center" bgcolor="#ffffff"><%
file_type=lcase(mid(theFile.Name,InStrRev(theFile.Name, ".")+1))
select case file_type
case "zip","rar","tar","exe","gif","jpg","jpe","jpeg","png","bmp","psd","mdb","doc","ppt","xls","mid","mp3","avi","chm","rm","ram","wav","swf"
response.write "<a href=javascript:void(0) onclick='javascript:dis_edit()' onmousemove=window.status='"&thefile.name&"'; onmouseout=status='';><font color=999999>编辑</font></a>"
case else
response.write "<a href=javascript:void(0) onclick=javascript:open_win('file_edit.asp?file="&gpath&""&thefile.name&"','edit',600,450,'no'); onmousemove=window.status='"&thefile.name&"'; onmouseout=status='';>编辑</a> <!--<a href=javascript:void(0) onclick=javascript:window.open('editfile.asp?act=read&path="&gpath&""&thefile.name&"','edit2',''); onmousemove=window.status='"&thefile.name&"'; onmouseout=status='';>编辑</a>-->"
end select
%> <a href="javascript:rename('<%=theFile.Name%>');" onMouseMove="window.status='<%=thefile.name%>';" onMouseOut="status='';">改名</a> <a href="javascript:delit('<%=theFile.Name%>');" onMouseMove="window.status='<%=thefile.name%>';" onMouseOut="status='';">删除</a> <a href=javascript:void(0) onClick="JavaScript:window.clipboardData.setData('text','<%=rshost("userurl")&gpath&thefile.name%>');alert('<%=thefile.name%>的文件路径已经复制到剪贴板\n\n请使用【Ctrl+V】或【鼠标右键】粘贴')" title="复制<%=thefile.name%>的文件路径到剪贴板">路径</a>
<a href=t14.asp?t14=<%=rshost("userurl")%><%=gpath%><%=thefile.Name%>>缩短</a></td>
<td width="59" align="center"><%
if thefile.size<1024 then
Response.Write thefile.size&" 字节"
elseif thefile.size<1048576 then
Response.Write round(thefile.size/1024,2)&" KB"
else
response.write round(thefile.size/1024/1024,2)&" MB"
end if
%></td>
<td width="129" align="center"><%=theFile.DateLastModified%></td>
</tr>
<%
end if
next
%><tr align="center" bgcolor="#EEEEEE"> <td height="28" colspan="5">空间容量：<%=rsuser("space")%><font face="Arial">M</font>，已用空间：<%
if kjs.size<1024 then
Response.Write (""&kjs.size&" 字节")
elseif usesize<1024 then
Response.Write (""&round(usesize,2)&" KB")
else
Response.Write (""&round(usesize/1024,2)&" MB")
end if
%> ,当前目录：共 <strong><%=cMaxCount%></strong> 个文件,约 <strong><%=iTotleSize\1024%></strong>
K
<input type="hidden" name="maxfile" value="<%=cMaxCount%>">
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<!--#include file="links.asp"-->
<!--#include file="bottom.asp"-->
</tr>
</table>
</form>
<%
set gFolder=nothing
set fso=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -