📄 admin_fsofile.asp

📁 1
💻 ASP
字号:
<!--#include file="../Conn.asp" -->
<!--#include file="../Inc/Admin_checkuser.asp"-->
<%
Call Admin_Check("文件管理","您的登陆状态错误，请重新登录后再进行操作")
Dim FY_XS,fs,f,fc,name,pagesetup,Count,TotalPage,pagecount,pagesize,page,filenum,pagenum,i,f1,genre,df,dfile
if request.form("action")="del" then
for each df in request.form("dfiles")
delfile(df)
next
response.redirect Request.ServerVariables("http_referer")
end if	
%>
<HTML><HEAD><TITLE>管理中心</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="../images/Admin/admin.css" type=text/css rel=StyleSheet>
<SCRIPT src="../images/Pic.Js"></SCRIPT>
<META content="MSHTML 6.00.2800.1126" name=GENERATOR>
</HEAD>
<body onkeydown=return(!(event.keyCode==78&&event.ctrlKey)) >
<table align="center" width="100%" align="center" border="1" cellspacing="0" cellpadding="4" class=KenQiao_Net_bk style="border-collapse: collapse">
<%
FY_XS=""
FY_XS=server.mappath("../"&FY_Config(9)&"")
If not IsObjInstalled("Scripting.FileSystemObject") Then
Response.Write "<b><font color=red>你的服务器不支持 FSO(Scripting.FileSystemObject)! 不能使用本功能</font></b>"
Else
set fs=server.createobject("scripting.filesystemobject")
set f=fs.GetFolder(FY_XS)
set fc=f.files
end if
%>
<tr class=KenQiao_Net_ss><td colspan="5"><font color="#FFFFFF"><%=name%></font> 上传文件列表</td></tr>
<form method="post" name="myform">
<tr class="KenQiao_Net_qs" align="center">
<td width="10"选中</td>
<td>文件名</td>
<td>文件大小</td>
<td>文件类型</td>
<td>创建时间</td></tr>
<%
pagesetup=15 '设定每页的显示数量
If Count/pagesetup > (Count\pagesetup) then
TotalPage=(Count\pagesetup)+1
else TotalPage=(Count\pagesetup)
End If
if Request.QueryString("ToPage")<>"" then PageCount = cint(Request.QueryString("ToPage"))
if PageCount <=0 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
%>
<%
pagesize=15
page=request.querystring("page")
if page="" or not isnumeric(page) then
	page=1
else
	page=int(page)
end if
filenum=fc.count
pagenum=int(filenum/pagesize)
if filenum mod pagesize>0 then
	pagenum=pagenum+1
end if
if page> pagenum then
	page=1
end if
i=0
for each f1 in fc
if instr(f1.name,genre) > 0 then
	i=i+1
	if i>(page-1)*pagesize and i<=page*pagesize then
%>
<tr>
<td align=center class="KenQiao_Net_ds"><input type="CheckBox" value="../<%=FY_Config(9)%>/<%=f1.name%>" name="dfiles"></td>
<td height="20" width="35%" align="center" class="KenQiao_Net_ds">
<a href="../<%=FY_Config(9)%>/<%=f1.name%>" target="_blank" zzzpop='<img src=../<%=FY_Config(9)%>/<%=f1.name%> width="100" height="100" border="0">'><%=f1.name%></a></td>
<td height="20" width="20%" align="center" class="KenQiao_Net_ds"><%=FormatNumber(f1.size/1024,2)&" KB"%></td>
<td height="20" width="15%" align="center" class="KenQiao_Net_ds"><%=f1.type%></td>
<td height="20" width="25%" align="center" class="KenQiao_Net_ds"><%=f1.datecreated%></td>
</tr>
<% elseif i>page*pagesize then
	exit for
   end if
end if
Next
%>
<tr>
<td class="KenQiao_Net_ds"></td>
<td class="KenQiao_Net_ds"><INPUT type=submit value=" 删 除 " name=Submit onClick="return confirm('确定删除选中的文件吗?此操作不可恢复！');"></td>
<input type="hidden" name="action" value="del">
<td class="KenQiao_Net_ds"></td><td class="KenQiao_Net_ds"></td><td class="KenQiao_Net_ds"></td>
</tr>
</form>
<tr>
<td class="KenQiao_Net_qs" colspan="9">共有<%=filenum%>个文件&nbsp;&nbsp;
页数：<font color="red"><%=page%></font>/<%=pagenum%>&nbsp;&nbsp;
<%
if page>1 then
	response.write "<a href=admin_fsofile.asp?path="&path&"&page=1>首页</a>&nbsp;&nbsp;<a href=admin_fsofile.asp?path="&path&"&page="& page-1 &">上一页</a>&nbsp;&nbsp;"
else
	response.write "首页&nbsp;&nbsp;上一页&nbsp;&nbsp;"
end if
if page<i/pagesize then
	response.write "<a href=admin_fsofile.asp?path="&path&"&page="& page+1 &">下一页</a>&nbsp;&nbsp;<a href=admin_fsofile.asp?path="&path&"&page="& pagenum &">尾页</a>"
else
	response.write "下一页&nbsp;&nbsp;尾页"
end if
%>
</td>
</tr>
</table>
<%
Public Function IsObjInstalled(strClassString)
	On Error Resume Next
	IsObjInstalled = False
	Err = 0
	Dim xTestObj
	Set xTestObj = Server.CreateObject(strClassString)
	If 0 = Err Then IsObjInstalled = True
	Set xTestObj = Nothing
	Err = 0
End Function
call admin_footer()
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -