📄 this_upfile_adv.asp
字号:
</script>
-->
<%
Response.Write "<font color=#3366ee>http://"&Request.ServerVariables("SERVER_NAME")&"</font>"%>
</td>
<td align="left"><input name="curpath" type="text" class="tx" style="width:180" value="<%=GetPath%>" size="100" maxlength="0"></td>
<td width="3" align="center"></td>
<td width="22" align="center"><img src="pic/filterIRON.gif"></td>
<td width="30" align="center">搜索</td><td><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="40" align="center"><input name="filter" type="text" class="tx" style="width:32" value="<%=GetFilter%>" size="32" title="可支持统配符号*,如,*AA*,*AA,AA* 无统配符号则相当于*AAA* 并可匹配大小写"></td>
<td width="61" align="center"><input type="button" name="Button" value="确 认" class="btx" onClick="ChFolder(document.boxobj.curpath.value,0);"></td>
<td width=61 align="center"><input name="button35" type="button" class="btx" onClick="{location.href='javascript:refreshWindow()';}" value="刷 新"></td>
<td width="5" align="center"></td>
</tr>
</table></td><td width="100" height="36" align="left"><img valign="top" height="36" src="pic/dff1.gif" width="32" hspace="1"></td> <!--sssssssssssss-->
</table></td>
<tr>
<td align="right" valign="top"> <table width="742" border="0" cellpadding="0" cellspacing="0" >
<tr>
<td width="169" align="left" valign="top"> <table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolorlight="#777777" bordercolordark="#ffffff" bgcolor="#cacaca">
<tr>
<td height="26" colspan="5" align="center" valign="middle" bgcolor="#D4D0c8">
<table width="100%" height="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#D4D0c8" bordercolorlight="#777777" bordercolordark="#ffffff" bgcolor="#D4D0c8">
<tr><td align="center" valign="middle" bgcolor="E1DDD4"><input type="button" name="Button4" value="建新目录" class="btx" onClick="MkFolders();">
</td></tr>
</table>
</td>
</tr>
<tr align="left" valign="bottom">
<td height="20" colspan="5" bordercolor="#CCCCCC" bgcolor="#CCCCCC" align="left" valign="middle">
<%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>
<%
dim theFolder,cMaxDir
dim theFile,cMaxCount,iTotleSize,c,iMaxPage,ic
cMaxDir=0
for each theFolder in GetFolder.SubFolders
cMaxDir=cMaxDir+1
%>
<tr bgcolor="#dddddd">
<td width="24" align="center" valign="middle"><a href="javascript:ChFolder('<%=theFolder.Name%>',1);" ><img src="pic/folderB.gif" width="18" height="18" border="0" onmouseover="this.src='pic/folderA.gif'" onmouseout="this.src='pic/folderB.gif'"></a></td>
<td width="145" align="left"> <a href="javascript:ChFolder('<%=theFolder.Name%>',1);"><%=theFolder.Name%></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=#666666>共
<font color=#ffff55><%=cMaxDir%></font> 个目录</font>
<input type="hidden" name="maxdir" value="<%=cMaxDir%>">
</td>
</tr>
<tr>
<td height="26" colspan="5" background="pic/GRAYBLUE.GIF"> </td>
</tr>
</table></td>
<!------=============\\--->
<td width="576" valign="top" bordercolor="#999999">
<TABLE align="right" cellpadding="0" cellspacing="0">
<TR>
<TD width="464"> <table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolorlight="#777777" bordercolordark="#ffffff" bgcolor="#cacaca">
<tr>
<td height="26" colspan="101" align="center"><table width="100%" height="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#D4D0c8" bordercolorlight="#777777" bordercolordark="#ffffff" bgcolor="#D4D0c8">
<tr align="center" valign="middle">
<td width="23" bgcolor="E1DDD4" class="bob"><img src="pic/filefilter.gif" width="18" height="17"></td>
<td width="169" bgcolor="E1DDD4" class="boa">远程文件列表</td>
<td width="70" bgcolor="E1DDD4" class="boa">
<input name="previewthis" type="button" class="btx" onClick="{boxobj.action='<%=GetBaseUrl%>&action=previewSwith';boxobj.submit();}" value="<%=GetPreview%>">
</td>
<td width="75" bgcolor="E1DDD4" class="boa">文件大小</td>
<td width="120" bgcolor="E1DDD4" class="boc">修改时间</td>
</tr>
</table></td>
</tr>
<tr>
<td height="20" colspan="8" align="right" valign="middle" bordercolor="#cccccc">
<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="pagetop" style="width:16;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">
<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>
<!--<td height="5" colspan="8"></td> -->
<%
cMaxCount=0
iTotleSize=0
ic=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>
<td width="24" align="center" valign="middle" bgcolor="#dddddd"><img src="pic/<%=GetFormValueat(theFile.Name)%>.gif" width="18" height="18"></td>
<td width="169" bgcolor="#dddddd"> <a href="javascript:ExecuteIt('<%=theFile.Name%>');"><%=theFile.Name%></a></td>
<td width="42" align="center" valign="middle" bgcolor="#dddddd" id="td<%=ic%>">
<%
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 width="28" align="center" bgcolor="#d8d8d8"><a href="javascript:DelFile('<%=theFile.Name%>');"><img src="pic/del_dark.gif" alt="执行该文件删除" width="16" height="16" hspace=0 vspace=0 border="0" align="middle" onMouseOver="this.clasSetName='bmt';this.src='pic/del.gif'" onMouseOut="this.clasSetName='';this.src='pic/del_dark.gif'"></a></td>
<td width="75" align="right" bgcolor="#dddddd"><%=ByteNum(theFile.Size)%> </td>
<td width="125" align="left" bgcolor="#dddddd"> <%=formatDateTime(theFile.DateLastModified,2)&" / "&formatDateTime(theFile.DateLastModified,4)%></td>
</tr>
<%
end if
next
%>
<tr>
<td height="23" colspan="9" align="center" valign="bottom" 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:16;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>
<td height="26" colspan="10" align="right" valign="middle" background="pic/GRAYBLUE.GIF"><a href=#top target="_self" id=ssss><img src="pic/ztop.gif" width="21" border="0" height="17" onmouseover="this.src='pic/ztop_out.gif'" onmouseout="this.src='pic/ztop.gif'" vspace="0" hspace="20"></a></td>
</tr>
</table></td>
<TD width="9"></TD>
<TD width="101" height="100%" valign="top"><img valign="top" height="100%" src="pic/dff2.gif" width="32"></TD>
</TR>
</TABLE>
<!--------------------------------->
</tr>
</table></td>
</tr>
</table></form></td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
<tr>
<td></tr>
</table>
</center>
<img name=imgs src="" border=0 width=0 height=0 style="visibility:hidden">
<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 + -