📄 files_brower.asp
字号:
</tr>
</table></td>
<td height="10" align="left" valign="top" bordercolor="#999999"> <table width="100%" height="10" border="1" cellpadding="0" cellspacing="0" bordercolorlight="#999999" bordercolordark="#eeeeee" bgcolor="#cacaca">
<tr>
<td height="26" colspan="100%" align="center" bgcolor="#D4D0c8"><table width="100%" height="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#999999" bordercolordark="#FFFFFF">
<tr bgcolor="E1DDD4">
<td width="17" align="center" class='bob'> </td>
<td width="56" align="center" class='boa'><input type="button" name="Button42" value="建新文件" class="btx" onClick="mkfile();"></td>
<td width="6" class='boa'> </td>
<td width="66" class='boa'><input name="button3522" type="button" class="btx" onClick="listAllfile();" value="遍历文件"></td>
<td class='boa' align="right"><input name="previewthis" type="button" class="btx" onClick="{boxobj.action='<%=GetBaseUrl%>&action=previewSwith';boxobj.submit();}" value="<%=GetPreview%>"> </td>
<td width="62" align="center" class='boa'><input name="button35" type="button" class="btx" onClick="{refreshWindow();}" value="刷 新"></td>
<td width="174" align="center" class='boa'><input type="button" name="Button2" value="上传文件" class="btx" onClick="{window.location.href='This_upfile_adv.asp?path=<%=GetPath%>';}"></td>
<td width="61" align="center" class='boc'><a href=#ssss target="_self"><img src="pic/zbot_out.gif" width="21" height="17" hspace="20" vspace="0" border="0" align="absmiddle" onmouseover="this.src='pic/zbot.gif'" onmouseout="this.src='pic/zbot_out.gif'"></a></td>
</tr>
</table></td>
</tr>
<tr>
<td height="20" colspan="8" align="center" valign="middle" bordercolor="#CACACA" > <font color=#666666>该目录共<font color=#ffff55><%=cMaxCount%></font>个文件 总<font color=#ffff55><%=iTotleSize\1024%></font>KB
<input type="hidden" name="maxfile2" value="<%=cMaxCount%>">
/// 页次:<font color=#ffff55><%=GetPage%>/<%=iMaxPage%></font>
<%
if GetPage>1 then
Response.write "<a href="""&GetFileName&"?filter="&request("Filter")&"&ULcase="&request("ULcase")&"&path="&GetPath&"&page="&GetPage-1&"""><<<上一页</a>"
else
Response.write ""
end if
if GetPage<iMaxPage then
Response.write "<a href="""&GetFileName&"?filter="&request("Filter")&"&ULcase="&request("ULcase")&"&path="&GetPath&"&page="&GetPage+1&"""> 下一页>>></a>"
else
Response.write ""
end if
%>
第
<input type="text" name="pagetop" style="width:22;height:16" class="tx" value="<%=GetPage%>">
页</font> <input type="button" name="Button52" value="Go" class="bt1" onClick="chpagetop(document.boxobj.curpath.value,0);" style="width:22;height:16"></td>
</tr>
<!--<td height="5" colspan="8"></td> -->
<tr align="center" >
<td height="21" valign="middle"><input type="checkbox" name="theFiles" id="theFiles" value="1" onClick="{if (this.checked==true)SelectFilesall(true);else SelectFilesall(false);}" title="文件全部选择／取消选择"></td>
<td align="center" valign="middle" nowrap><img src="pic/a.gif" width="18" height="18"></td>
<td > </td>
<td align="center">预览</td>
<td align="center">编辑</td>
<td align="center">更名</a></td>
<td align="center">删除</a></td>
<td align="center"> </td>
<td align="center"> 修改日期</td>
</tr>
<% dim ic
ic=0
cMaxCount=0
iTotleSize=0
For Each theFile in GetFolder.Files
c=c+1
if cMaxCount>=GetPageSize then
exit For
elseif CheckFile(theFile.Name,0,"02")="True" and c>GetPageSize*(GetPage-1) then
iTotleSize=iTotleSize+theFile.Size
cMaxCount=cMaxCount+1
GetFileExtName=lcase(ExtNameS(theFile.Name))
%>
<tr bgcolor="#d8d8d8">
<td height="21" align="center" valign="middle"><input type="checkbox" name="chidf<%=cMaxCount%>" id="chidf<%=cMaxCount%>" value="<%=theFile.Name%>"></td>
<td align="center" valign="middle"><img src="pic/<%=GetFormValueat(theFile.Name)%>.gif" width="18" height="18" ></td>
<td> <a href="javascript:ExecuteIt('<%=theFile.Name%>');"><%=theFile.Name%></a></td>
<td align="center">
<%
if Preview=0 then
Select CASE GetFileExtName
CASE "jpg","gif","jpeg","png","bmp"
Response.write "<a href='"&GetPath&theFile.Name&"' target='_blank'><img src='"&GetPath&theFile.Name&"' alt='点击查看图象' hspace=1 vspace=1 border=0 align=absmiddle name=""imgs""></a>"
ic=ic+1
CASE else
Response.write ""&GetFileExtName&""
End Select
else
Response.write ""&GetFileExtName&""
end if
%></td>
<td align="center"><a href="javascript:OpenIt('<%=theFile.Name%>','mainFrame');">Edit</a></td>
<td align="left"><div align="center"><a href="javascript:renFile('<%=theFile.Name%>');">Ren</a></div></td>
<td align="right"><div align="center"><a href="javascript:DelFile('<%=theFile.Name%>');">Del</a></div></td>
<td align="right"><%=ByteNum(theFile.Size)%> </td>
<td align="left"> <%=formatDateTime(theFile.DateLastModified,2)&" / "&formatDateTime(theFile.DateLastModified,4)%></td>
</tr>
<%
end if
next
%>
<tr valign="bottom"><td height="23" colspan="8" align="center" bordercolor="#CACACA" bgcolor="#CACACA"> <font color=#666666>当前页共<font color=#ffff55><%=cMaxCount%></font>个文件 为<font color=#ffff55><%=iTotleSize\1024%></font>KB
<input type="hidden" name="maxfile" value="<%=cMaxCount%>">
/// 页次:<font color=#ffff55><%=GetPage%>/<%=iMaxPage%></font>
<%
if GetPage>1 then
Response.write "<a href="""&GetFileName&"?filter="&request("Filter")&"&ULcase="&request("ULcase")&"&path="&GetPath&"&page="&GetPage-1&"""><<<上一页</a>"
else
Response.write ""
end if
if GetPage<iMaxPage then
Response.write "<a href='"&GetFileName&"?filter="&request("Filter")&"&ULcase="&request("ULcase")&"&path="&GetPath&"&page="&GetPage+1&"'> 下一页>>></a>"
else
Response.write ""
end if
%>
第
<input type="text" name="pagebottom" style="width:22;height:16" class="tx" value="<%=GetPage%>">
页</font>
<input type="button" name="Button5" value="Go" class="bt1" onClick="chpagebottom(document.boxobj.curpath.value,0);" style="width:22;height:16">
</td>
</tr>
<tr align="left" valign="middle"> </tr>
<tr>
<td height="26" colspan="9" align="right" valign="middle" background="pic/GRAYBLUE.GIF"><a href=#top target="_self" id="ssss"><img src="pic/ztop.gif" width="21" height="17" hspace="20" vspace="0" border="0" onmouseover="this.src='pic/ztop_out.gif'" onmouseout="this.src='pic/ztop.gif'"></a></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</form>
</center>
<%
set GetFolder=nothing
set Fso=nothing%>
<SCRIPT LANGUAGE="JavaScript">
<!--
var pagevar=boxobj.pagetop.value;
if (pagevar><%=iMaxPage%>)
{boxobj.pagetop.value=<%=iMaxPage%>;
boxobj.pagebottom.value=<%=iMaxPage%>;}
if (pagevar<1)
{boxobj.pagetop.value=1;
boxobj.pagebottom.value=1;}
//-->
</SCRIPT>
<Script language="JavaScript">
<!--
//图像预览宽度问题,自动调适于宽度
if(document.imgs)
{ var e = document.imgs;
for (var i=0;i<document.imgs.length;i++)
{
e[i].width>40?e[i].width=40:e[i].height=e[i].height;
}
}
//-->
</Script>
<%call Footer()%>
<!--#include FILE="inc/coo_footer.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -