📄 admin_upload.asp
字号:
<!--#include file="mdb.asp"-->
<%Admin="up"%>
<!--#include file="check.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/FORMAT.asp"-->
<%
'****************************************************
' Hxcms 7.5 Power by Hx66.net
' Web: http://www.Hx66.net,http://www.Hx66.net/home
' Copyright (C) 2006 Hx66.net All Rights Reserved.
'****************************************************
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.top.location.href='admin.asp';</script>")
response.end
end if
if request.form("operation")="DEL" then
dim hx66,df,dfile
function DeleteFile(Filename) '删除文件
if Filename<>"" then
Set fso = server.CreateObject("Scripting.FileSystemObject")
if fso.FileExists(Filename) then
fso.DeleteFile Filename
end if
set fso = nothing
end if
end function
hx66=request.form("dir")
hx66=server.mappath(""&hx66&"")
for each df in request.form("dfiles")
dfile=hx66&"\"&df
DeleteFile(dfile)
conn.execute("delete from [upload] where filename='"&df&"'")
next
response.redirect Request.ServerVariables("http_referer")
end if
sql="select * from upload order by id desc"
if request.querystring("types")<>"" then
sql="select * from upload where totable="&cint(request.querystring("types"))&" order by id desc"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totalup=rs.recordcount
%>
<HTML><HEAD><TITLE>Hxcms管理中心——会员上传管理</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="inc/admin.css" type=text/css rel=StyleSheet>
<META content="MSHTML 6.00.2800.1126" name=GENERATOR>
</HEAD>
<body onkeydown=return(!(event.keyCode==78&&event.ctrlKey)) >
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<tr class=Hxcmsss><td colspan="6">会员上传文件管理 <a href='?'><font color=#FFFFFF>·上传管理</font></a> <a href='?types=1'><font color=#FFFFFF>·有效文件</font></a> <a href='?types=0'><font color=#FFFFFF>·无效文件</font></a></td></tr>
<form name="form" method="post" action="?types=<%=request.querystring("types")%>">
<script language="javascript">
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.name != 'chkall')
e.checked = form.chkall.checked;
}
}
</script>
<tr align="center">
<td class=Hxcmsqs width="5%">选中</td>
<td class=Hxcmsqs width="32%">文件名</td>
<td class=Hxcmsqs width="10%">类型</td>
<td class=Hxcmsqs width="20%">栏目、ID</td>
<td class=Hxcmsqs width="13%">作者</td>
<td class=Hxcmsqs width="20%">时间</td>
</tr>
<%if not rs.eof then
rs.movefirst
rs.pagesize=adflperpage
if trim(request("page"))<>"" then
currentpage=clng(request("page"))
if currentpage>rs.pagecount then
currentpage=rs.pagecount
end if
else
currentpage=1
end if
totalup=rs.recordcount
if currentpage<>1 then
if (currentpage-1)*adflperpage<totalup then
rs.move(currentpage-1)*adflperpage
dim bookmark
bookmark=rs.bookmark
end if
end if
if (totalup mod adflperpage)=0 then
totalpages=totalup\adflperpage
else
totalpages=totalup\adflperpage+1
end if
i=0
do while not rs.eof and i<adflperpage
%>
<tr class=Hxcmsds>
<td align="center"><input type=checkbox Name=dfiles Value=<%=rs("filename")%>></td>
<td> <a href='upload/<%=rs("filename")%>' target=_blank><%=rs("filename")%></a></td>
<td align="center"><%=rs("filetype")%></td>
<td align="center">
<%if rs("webtype")<>"" then%>
<a href='?' Title='对应标题：<%=rs("url")%>'><%=rs("webtype")%></a>
<%else%>
<font color=red>无效</font>
<%end if%>
</td>
<td align="center"><%=rs("name")%></td>
<td> <%=rs("uploadtime")%></td>
</tr>
<%
i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then
%>
<tr class=Hxcmsds><td colspan="6" height="22" align="center">当前没有文件！</td></tr>
<%end if
end if%>
<tr class=Hxcmsqs> <td class=Hxcmsqs colspan="6"><table width="100%" align="center">
<td align="seft">
<input type=hidden value=DEL name=operation><input type="hidden" name="dir" value="upload">
<input type="checkbox" name="chkall" onclick="CheckAll(this.form)" value="ON">选中本页所有 <input type=submit value=批量删除 onClick="return confirm('确定删除选中的文件吗?');"> </td></form>
<td align="right"><%=currentpage%> /<%=totalpages%>页,<%=totalup%>条记录/<%=adflperpage%>篇每页.
<%
i=1
showye=totalpages
if showye>10 then
showye=10
end if
for i=1 to showye
if i=currentpage then
%>
<%=i%>
<%else%>
<a href="?page=<%=i%>&types=<%=request.querystring("types")%>"><%=i%></a>
<%end if
next
if totalpages>currentpage then
if request("page")="" then
page=1
else
page=request("page")+1
end if%>
<a href="?page=<%=page%>&types=<%=request.querystring("types")%>" title="下一页">>>下一页</a>
<%end if
'****************************************************
' Hxcms 7.5 Power by Hx66.net
' Web: http://www.Hx66.net,http://www.Hx66.net/home
' Copyright (C) 2006 Hx66.net All Rights Reserved.
'****************************************************
%>
</td>
</tr>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -