📄 getfiles.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"-->
<%
'if not isMaster then Response.redirect "login.asp"
iF SetPower(2,5)=false then
Response.write("<SCRIPT LANGUAGE=""JavaScript"">"&vbcrlf)
Response.write("<!--"&vbcrlf)
Response.write("window.parent.location.href='inc/error.html';")
Response.write("//-->"&vbcrlf)
Response.write("</SCRIPT>")
Response.end
'Response.redirect "login.asp"
eND iF
if right(GetPath,1)<>"/" then GetPath=GetPath&"/"
SetTemp=CheckFolder(GetPath,1)
if SetTemp<>"True" then EndProc SetTemp,1,""
set GetFolder=Fso.GetFolder(Server.mappath(GetPath))
%>
<script language=javascript>
var baseurl;
baseurl='<%=GetBaseUrl%>';
function ExecuteIt(str,target)
{
window.open('<%=GetPath%>'+str,target);
}
function ChFolder(dir,mode)
{
var obj;
obj=document.boxobj;
if(!dir)
{alert('请输入要浏览的目录');return;}
if(mode)
{
if(obj.filter.value)
obj.action='<%=GetFileName%>?filter='+obj.filter.value+'&path=<%=GetPath%>'+dir;
else
obj.action='<%=GetFileName%>?path=<%=GetPath%>'+dir;
}
else
{
if(obj.filter.value)
obj.action='<%=GetFileName%>?filter='+obj.filter.value+'&path='+dir;
else
obj.action='<%=GetFileName%>?path='+dir;
}
obj.submit();
}
function OpenIt(name,target)
{
window.open('EditFile_Adv.asp?action=OpenIt&path=<%=GetPath%>'+name,target);
}
function refreshWindow()
{
obj=document.boxobj;
obj.action=baseurl;
obj.submit();
}
//-->
</script>
</head>
<body bgcolor="#cacaca" text="#000000" leftmargin="0" rightmargin="0" topmargin="0" bottommargin="0">
<form name="boxobj" method="post" action="<%=GetBaseUrl%>" style="margin:0px;">
<table width="100%" height="100%" border="1" cellpadding="0" cellspacing="0" bordercolorlight="#999999" bordercolordark="#eeeeee" bgcolor="#cacaca">
<tr><td align="center" width="25"><nobr> <img src="pic/refreshiron.gif" onmouseover="this.src='pic/refreshiron_h.gif';" onMouseout="this.src='pic/refreshiron.gif';" alt="刷 新" style="cursor: hand;" onClick="refreshWindow();" align="absmiddle"> </nobr></td><td width='100%'> </td></tr>
<%
dim theFolder,cMaxDir
dim theFile,cMaxCount,iTotleSize,c,iMaxPage
cMaxCount=0
iTotleSize=0
For Each theFile in GetFolder.Files
c=c+1
if CheckFile(theFile.Name,0,"02")="True" and c>GetPageSize*(GetPage-1) then
iTotleSize=iTotleSize+theFile.Size
cMaxCount=cMaxCount+1
%>
<tr>
<td height="20" align="center" valign="middle" nowrap bgcolor="#d8d8d8"><nobr> <a href="javascript:ExecuteIt('<%=theFile.Name%>','mainFrame');"><img src="pic/<%=GetFormValueat(theFile.Name)%>.gif" width="18" height="18" border="0" alt="开新窗口查看页面" align="absmiddle"></a> </nobr></td>
<td bgcolor="#d8d8d8"> <a href="javascript:OpenIt('<%=theFile.Name%>','mainFrame')" title="点击中编辑该文件"><%=theFile.Name%></a></td>
</tr>
<%
end if
next
%>
<tr align="left" valign="bottom">
<td width="100%" height="100%" colspan="8" valign="top" bordercolor="#CACACA" bgcolor="#CACACA">
<br> <font color=#777777>Files：</font> <font color=#ffff55><%=cMaxCount%></font>
</td>
</tr>
</table>
<input name="filter" type="hidden" value="<%=GetFilter%>">
</form>
</body>
</html>
<%closedatabase
set GetFolder=nothing
set Fso=nothing
%>
<!--#include FILE="inc/coo_footer.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -