📄 index1.asp
字号:
while(eval('obj.chidf'+i))
{
obj1=eval('obj.chidf'+i);
obj1.checked=act;
i++;
}
}
function seldirall(act)
{
i=1;
obj=document.webedit;
while(eval('obj.chidd'+i))
{
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 upload()
{
window.open('upfiles.asp?path=<%=gPath%>');
}
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 about()
{
window.showModalDialog("images/about.htm","","dialogWidth:280px;dialogHeight:150px;scroll:no;status:no;help:no");
}
</script>
<html>
<head>
<title>Web Edit</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="admin.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0">
<form name="webedit" method="post" action="<%=gBaseUrl%>">
<table width="98%" border="1" class="tableBorder" cellspacing="0" cellpadding="0" height="462">
<tr>
<tH height="37" class=forumrow width="778">
<table width="100%" border="0" cellspacing="0" cellpadding="5">
<tr>
<td height="32" width="250"> WEBFTP 程序来源于化境</td>
<td width="32" height="32" align="center"><a href="javascript:doit('copy');">复制</a></td>
<td width="32" height="32" align="center"><a href="javascript:doit('cut');">剪贴</a></td>
<td width="32" height="32" align="center"><a href="javascript:paste();">粘贴</a></td>
<td width="32" height="32" align="center"><a href="javascript:refreshit();">刷新</a></td>
<td width="32" height="32" align="center"><a href="javascript:del();">删除</a></td>
<td width="32" height="32" align="center"><a href="javascript:about();">关于</a></td>
<td height="32" align="left">剪贴板状态:
<%if Session("bufferdir")<>"" or Session("bufferfile")<>"" then response.write "有数据<input type=button value=""查看剪贴板"" class=""bt"" onclick=""viewclip();"">":else response.write " 空 ":end if%>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<th height="28" bgcolor="#CCCCCC" width="778">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<tH height="20"> 位置:
<input type="text" name="curpath" style="width:350" class="tx" value="<%=gPath%>" size="20">
过滤显示:
<input type="text" name="filter" style="width:100" class="tx" value="<%=gFilter%>" size="20">
<input type="button" name="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="367" align="left" valign="top" width="777">
<table width="777" border="1" cellspacing="0" cellpadding="0">
<tr>
<td height="365" align="left" valign="top" width="213">
<table border="0" cellspacing="0" cellpadding="0" width="211">
<tr align="right" bgcolor="#EEEEEE">
<td height="25" valign="middle" colspan="5">
<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 "<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><td height="20" width="24" 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="images/folder1.jpg" width="16" height="16"></td>
<td align="left" width="108"> <a href="javascript:chdir('<%=theFolder.Name%>',1);"><%=theFolder.Name%></a></td>
<td align="center" width="33"><a href="javascript:renamed('<%=theFolder.Name%>');">更名</a></td>
<td align="center" width="30"><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="21" colspan="5">共 <%=cMaxDir%> 个目录
<input type="hidden" name="maxdir" value="<%=cMaxDir%>">
</td>
</tr>
</table>
</td>
<td width="4" height="365" bgcolor="#CCCCCC"></td>
<td width="552" height="365" align="left" valign="top">
<table border="0" cellspacing="0" cellpadding="0" width="556">
<tr align="right" bgcolor="#EEEEEE">
<td height="25" valign="middle" colspan="8">
<input type="button" name="Button3" value="全部选择" class="bt1" onClick="selfileall(true);">
<input type="button" name="Button32" value="清除选择" class="bt1" onClick="selfileall(false);">
<input type="button" name="Button2" value="上传文件" class="bt1" style="width:60;height:19" onclick="upload();">
</td>
</tr>
<tr align="left">
<td height="25" valign="middle" colspan="8" bgcolor="#EEEEEE">总
<%=cMaxCount%> 个文件,第 <%=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
%>
第
<input type="text" name="fliter2" style="width:30" class="tx" size="20">
页
<input type="button" name="Button5" value="转到" class="bt1" onClick="chdir(document.webedit.curpath.value,0);">
</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>
<td height="25" width="32" align="center" valign="middle">
<input type="checkbox" name="chidf<%=cMaxCount%>" id="chidf<%=cMaxCount%>" value="<%=theFile.Name%>">
</td>
<td width="17" align="center" valign="middle"><img src="images/<%=procGetFormat(theFile.Name)%>.gif" width="16" height="16"></td>
<td width="213"> <a href="javascript:openit('<%=theFile.Name%>');"><%=theFile.Name%></a></td>
<td width="28" align="center"><a href="javascript:edit('<%=theFile.Name%>');">编辑</a></td>
<td width="28" align="center"><a href="javascript:rename('<%=theFile.Name%>');">更名</a></td>
<td width="28" align="center"><a href="javascript:delit('<%=theFile.Name%>');">删除</a></td>
<td align="right" width="60"><%=theFile.Size%> </td>
<td align="left" width="120"><%=theFile.DateLastModified%></td>
</tr>
<%
end if
next
%><tr bgcolor="#EEEEEE"> <td height="28" colspan="8">当前共 <%=cMaxCount%> 个文件,共 <%=iTotleSize\1000%>
K
<input type="hidden" name="maxfile" value="<%=cMaxCount%>">
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<tH height="22" align="center" valign="middle" bgcolor="#CCCCCC" width="777">©Copyright
written by 稻香老农 xoYu修正</td>
</tr>
</table>
</form>
</body>
</html>
<%
set gFolder=nothing
set fo=nothing%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -