📄 getfile.asp
字号:
<!--#include file="CONST.ASP"-->
<!-- #include file="inc/chkuser.asp" -->
<!-- #include file="inc/char.asp" -->
<!-- #include file="inc/htmlhead.asp" -->
<!--#include FILE="inc/Syschar.asp"-->
<%helpID=9
'if not isMaster then Response.redirect "login.asp"
iF SetPower(2,5)=false then Response.redirect "login.asp"
if right(GetPath,1)<>"/" then GetPath=GetPath&"/"
SetTemp=CheckFolder(GetPath,1)
if SetTemp<>"True" then
EndProc SetTemp,1,""
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="95%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#e8e8e8" bordercolorlight="#666666" bordercolordark="#FFFFFF" bgcolor="#e8e8e8">
<tr>
<td width="100%" height="4" align="right" bgcolor="#e8e8e8"></td>
</tr>
<td height="41" valign="top">
<table width="80%" height="35" border="1" align="left" cellpadding="0" cellspacing="0" bgcolor="#D4D0c8">
<td bordercolor="#D4D0c8" bgcolor="#D4D0c8">
<table width="100%" height="32" bgcolor="#D4D0c8">
<tr bordercolor="#D4D0c8">
<td width="122" 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="471" align="center"><input type="text" name="curpath" style="width:100%" class="tx" value="<%=GetPath%>"></td>
<td width="120" 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=35 align="center"><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="sousuo" value="确 认" class="btx" onClick="ChFolder(document.boxobj.curpath.value,0);" ></td>
<td width="58"> </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="202" height="10" align="left" valign="top">
<table width="100%" 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%" height="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#999999" bordercolordark="#FFFFFF">
<tr><td bgcolor="E1DDD4" align=center><input name="button2" type=button class="btx" onClick="window.history.back();" 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>
<%
dim theFolder,cMaxDir
dim theFile,cMaxCount,iTotleSize,c,iMaxPage
cMaxDir=0
for each theFolder in GetFolder.SubFolders
cMaxDir=cMaxDir+1
%>
<tr bgcolor="#d8d8d8">
<td width="27" height="21" 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 width="169" 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=#ffff55><%=cMaxDir%></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 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"> </td>
<td width="279" align="center" bgcolor="E1DDD4" class="boa"><input type="button" name="Button2" value="上传文件" class="btx" onClick="{window.location.href='This_upfile_adv.asp?path=<%=GetPath%>';}"></td>
<td width="58" align="center" class="boa"><input name="button35" type="button" class="btx" onClick="refreshWindow();" value="刷 新"></td>
<td width="78" class="boa"> </td>
<td width="58" align="center" class="boa"><input name="button2" type=button class="btx" onClick="location.href='login.asp?action=exit';" value="退出登录"></td>
<td width="78" align="center" class="boa"> </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" bgcolor="#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="pageup" value="Go" class="bt1" onClick="chpagetop(document.boxobj.curpath.value,0);" style="width:22;height:16"></td>
</tr>
<%
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))
Select CASE GetFileExtName
CASE "asp","aspx","htm","html","txt","inc","js","as","asa","css","xml","htc","vbs","jsp","php","cfm","sql"%>
<tr bgcolor="#d8d8d8">
<td height="21" align="center" valign="middle"><img src="pic/<%=GetFormValueat(theFile.Name)%>.gif" width="18" height="18"></td>
<td>
<a href="javascript:OpenIt('<%=theFile.Name%>','mainFrame');"><%=theFile.Name%>
<img src="pic/ediron.gif" alt="点击编辑之" width="36" height="18" border="0"
align="absmiddle"
onmouseover="this.src='pic/edironh.gif'"
onmouseout="this.src='pic/ediron.gif'"></a></td>
<td align="center"><a href="javascript:ExecuteIt('<%=theFile.Name%>','_blank');"><img src="pic/newwindow.gif" width="18" height="18" border="0" align="absmiddle" onmouseover="this.src='pic/newwindowh.gif'" onmouseout="this.src='pic/newwindow.gif'" alt="开新窗口查看页面"></a></td>
<td align="right"><%=ByteNum(theFile.Size)%> </td>
<td align="left"> <%=formatDateTime(theFile.DateLastModified,2)&" / "&formatDateTime(theFile.DateLastModified,4)%></td>
</tr>
<% End select
end if
next
%>
<tr valign="bottom">
<td height="23" colspan="8" width="100%" align="center" bordercolor="#CACACA" bgcolor="#CACACA">
<font color=#666666>当前页共<font color=#ffff55><%=cMaxCount%></font>个文件 为<ont 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="gopage2" 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="8" align="right" width="100%" valign="bottom" 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" align="bottom" 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>
<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>
<%call Footer()%>
<!--#include FILE="inc/coo_footer.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -