<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if request("filename")<>"" then
if objFSO.fileExists(Server.MapPath(""&path&"\"&request("filename"))) then
objFSO.DeleteFile(Server.MapPath(""&path&"\"&request("filename")))
else
response.write "未找到"&path&request("filename")
end if
end if
on error resume next
Set uploadFolder=objFSO.GetFolder(Server.MapPath(""&path&"\"))
if err.number<>0 then
response.write "<tr><td colspan=6 class=forumrow>"&Err.Description&"</td></tr>"
response.end
end if
Set uploadFiles=uploadFolder.Files
filenum=uploadfiles.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 Upname In uploadFiles
i=i+1
if i>(page-1)*pagesize and i<=page*pagesize then
upfilename=upname.name
response.write "<tr><td align=center height=24 class=forumrow><img src=""images/files/"& procGetFormat(upname.name) &".gif"" border=0></td>"
response.write "<td class=forumrow><a href="""&path&"/"&upfilename&""" target=_blank>"&upfilename&"</a></td>"
response.write "<td align=center class=forumrow>"& upname.size &" B </td>"
response.write "<td align=center class=forumrow>"& upname.datelastaccessed &"</td>"
response.write "<td align=center class=forumrow>"& upname.datecreated &"</td>"
response.write "<td align=center class=forumrow><a href='?filename="&upname.name&"&path="&request("path")&"'>删除</a></td></tr>"
elseif i>page*pagesize then
exit for
end if
next
set uploadFolder=nothing
set uploadFiles=nothing
%>
<tr>
<form method="POST" action="?path=<%=path%>">
<td colspan=6 align=center height=25 class="forumRowHighlight">
<%
if page>1 then
response.write "<a href=?page=1&path="&request("path")&">首页</a> <a href=?page="& page-1 &"&path="&request("path")&">上一页</a> "
else
response.write "首页 上一页 "
end if
if page<i/pagesize then
response.write "<a href=?page="& page+1 &"&path="&request("path")&">下一页</a> <a href=?page="& pagenum &"&path="&request("path")&">尾页</a>"
else
response.write "下一页 尾页"
end if