📄 adminuploadface.asp
字号:
<!--#include file="Connections.asp" -->
<!--#include file="adminaccess.asp" -->
<body <%=background%> >
<table border=1 borderColor=<%=tdc2%> cellPadding=3 cellSpacing=1 width=100% style="border-collapse: collapse" align=center >
<tr align="center">
<td <%=hColor%> class=tdc1 height=22 colspan="2">上传头像管理</td>
</tr>
<tr align="center">
<form action="?action=do" METHOD="post" name="form1">
<td <%=tColor%> class=tdc1 height=22 colspan="2">你的空间只有支持fso才可以进行如下操作，否则你只能手动删除</td>
</tr>
<% on error resume next
Set objfso = Server.CreateObject("Scripting.FileSystemObject")
if err then
err.clear
response.write "<div class=tdc>不能建立fso对象，请确保你的空间支持fso:！"
response.end
end if
if request.querystring("action")="do" then
for i=1 to request("filename").count
objFSO.DeleteFile(Server.MapPath("uploadface\"&request("filename")(i)))
next
end if
Set uploadfolder=objfso.GetFolder(Server.MapPath("uploadface\"))
Set uploadFile=uploadFolder.Files %>
<%fmaxcount=uploadfile.count'总文件数
fpage=20'每个文件数
page=request("page")'
c=0
cmax=0
if page="" then page=1
if fmaxcount mod cint(fpage)=0 then
fmaxpage=fmaxcount \ cint(fpage)
else
fmaxpage=fmaxcount \ cint(fpage)+1
end if
for each uploadname In uploadFile
uploadfilename="uploadface/"&uploadname.name
c=c+1
if cmax>fpage then
exit for
elseif c>(page-1)*fpage then
cmax=cmax+1
%>
<tr align="center">
<td bgcolor=<%=tColor2%> class=tdc1 height=22>
<%response.write "<a href="""&uploadfilename&""">"&uploadfilename&"</a>"
%></td>
<td bgcolor=<%=tColor2%> class=tdc1 height=22><input type='checkbox' name='filename' value=<%=uploadname.name%>></td>
</tr><%
end if
next
set uploadFolder=nothing
set uploadFile=nothing
%>
<tr align="center">
<td bgcolor=<%=tColor2%> class=tdc1 height=22 colspan="2">
<input type="submit" name="Submi" value="删除" class=bdtj>
</td>
</tr>
</form>
<tr align="left" height=23>
<td colspan="2" bgcolor=<%=tColor2%> class=tdc > <%
if fmaxpage="" then maxpagecount=1
pagestart=page-5
pageend=page+5
if pagestart<1 then pagestart=1
if pageend>fmaxpage then pageend=fmaxpage
response.write(" [ ")
if fmaxpage > 6 then Response.Write ("<a href=?page=1>1</a> ... ")
for i=pagestart to pageend
if i<>int(page) then
Response.Write (" <a href=?page="&i&">" & i & "</a> ")
else
Response.Write ("<b>"&i&"</b> ")
end if
next
if fmaxpage > page +5 then Response.Write( " ... <a href=?page="&fmaxpage&">"&fmaxpage&"</a>")
response.write(" ] ")
response.write("..页次:"&page&"/"&fmaxpage&"页 每页:"&fpage&" 文件数:"&fmaxcount&" </td> ")%>
</tr>
</table>
</div>
<%
conn.close
set conn=nothing%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -