<%
'程序名称：千纸鹤网站管理系统
'程序作者：千纸鹤
'作者邮箱：qzhxxw@sina.com
'作者 Q Q：138999501
'作者电话：0000000000
'官方主页：http://www.qqzzhh.com/
'官方论坛：http://www.qqzzhh.com/bbs
%>
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<%call hacker()
if session("superlogin")<>yecao then
response.Write "<script>alert('您还没有登陆！');this.location.href='index.asp';</script>"
Response.End
elseif session("superadmin")<>"admin" then
response.Write "<script>alert('\n错误提示：您的权限不足！\n\n您不是超级管理员！');this.location.href='index.asp';</script>"
Response.End
end if
Const PageCount=10
if request("page")<>"" then
currentPage=cint(request("page"))
else
currentPage=1
end if
MaxPerPage=PageCount
path=request.querystring("path")
select case path
case "news"
UploadDir="up/news"   
case "art"
UploadDir="up/art"  
case "dj"
UploadDir="up/dj" 
case "down"
UploadDir="up/down" 
case "pic"
UploadDir="up/pic" 
case "other"
UploadDir="up/other" 
case else 
UploadDir="up/other" 
end select        
strFileName=""
TruePath=Server.MapPath(UploadDir)
If not IsObjInstalled("Scripting.FileSystemObject") Then
Response.Write "<b><font color=red>你的服务器不支持 FSO(Scripting.FileSystemObject)! 不能使用本功能</font></b>"
Else
set fso=CreateObject("Scripting.FileSystemObject")
if request("Action")="Del" then
call DelFiles()
end if
if fso.FolderExists(TruePath)then
FileCount=0
TotleSize=0
Set theFolder=fso.GetFolder(TruePath)
For Each theFile In theFolder.Files
FileCount=FileCount+1
TotleSize=TotleSize+theFile.Size
next
totalPut=FileCount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage=totalPut\MaxPerPage
else
currentpage=totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent     	
showpage2 strFileName,totalput,MaxPerPage
response.write"<br><div align='center'>本页共显示 <b>" & FileCount & "</b> 个文件，占用 <b>" & TotleSize\1024& "</b> K</div>"
else
if (currentPage-1)*MaxPerPage<totalPut then
showContent     	
showpage2 strFileName,totalput,MaxPerPage
response.write "<br><div align='center'>本页共显示 <b>" & FileCount & "</b> 个文件，占用 <b>" & TotleSize\1024 & "</b> K</div>"
else
currentPage=1
showContent     	
showpage2 strFileName,totalput,MaxPerPage
response.write "<br><div align='center'>本页共显示 <b>" & FileCount & "</b> 个文件，占用 <b>" & TotleSize\1024 & "</b> K</div>"
end if
end if
else
response.write "找不到文件夹！可能是配置有误！"
end if
end if
sub showContent()
dim c
FileCount=0
TotleSize=0
response.write"<html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"& vbCrLf
response.write"<link rel=""STYLESHEET"" type=""text/css"" href=""img/admin.css"">"& vbCrLf
response.write"<script src=img/adminjs.js></script></head><body>"& vbCrLf
response.write"<form name=""form1"" method=""post"">"& vbCrLf
response.write"<table width='100%' align='center' border='0' cellpadding='0' cellspacing='0' rules=none class=3d>"& vbCrLf
response.write"<tr class=""title""  height=""22"">"& vbCrLf
%>
<td colspan=5><b>&nbsp;<img src=img/ie.gif border=0 width=15 height=15 align=absMiddle>&nbsp;上传文件管理</b></td></tr>
<tr align="center" height="25">
<td width=40%>文件名称</td>
<td width=10%>文件大小</td>
<td width=20%>文件类型</td>
<td width=15%>最后修改时间</td>
<td width=10%>文件操作</td></tr>
<%
For Each theFile In theFolder.Files
c=c+1
if FileCount>=MaxPerPage then
exit for
elseif c>MaxPerPage*(CurrentPage-1) then%>
<tr height="25">
<td>&nbsp;<a href=<%=(UploadDir & "/"&theFile.Name)%> target="88"><%=(UploadDir & "/"&theFile.Name)%></a></td>
<td><%=theFile.size%>字节</td>
<td><%=theFile.type%></td>
<td><%=theFile.DateLastModified%></td>
<td align=center>
<a href="?path=<%=path%>&Action=Del&FileName=<%=theFile.Name%>" onclick="{if(confirm('你真的要删除此文件吗!')){this.document.form1.submit();return true;}return false;}">删除文件</a></td>
</tr>
<%FileCount=FileCount+1
TotleSize=TotleSize+theFile.Size
end if
Next
%>
<tr><td class="hr" colspan=5></td></tr>
<tr height="30" class=foot><td  align="center"  colspan=5>
</form>
<%
end sub
sub showpage2(sfilename,totalnumber,maxperpage)
dim n, i,strTemp
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
 else
n= totalnumber \ maxperpage+1
end if
strTemp= "<table align='center'><form name='showpages' method='Post' action='?path="&path&"'><tr><td>"
strTemp=strTemp & "共 <b>" & totalnumber & "</b> 个文件，占用 <b>" & TotleSize\1024 & "</b> K&nbsp;&nbsp;&nbsp;"
'sfilename=Qcdn.JoinChar(sfilename)
if CurrentPage<2 then
strTemp=strTemp & "首页 上一页&nbsp;"
else
strTemp=strTemp & "<a href='" & sfilename & "?path="&path&"&page=1'>首页</a>&nbsp;"
strTemp=strTemp & "<a href='" & sfilename & "?path="&path&"&page=" & (CurrentPage-1) & "'>上一页</a>&nbsp;"
end if

if n-currentpage<1 then
strTemp=strTemp & "下一页 尾页"
else
strTemp=strTemp & "<a href='" & sfilename & "?path="&path&"&page=" & (CurrentPage+1) & "'>下一页</a>&nbsp;"
strTemp=strTemp & "<a href='" & sfilename & "?path="&path&"&page=" & n & "'>尾页</a>"
end if
strTemp=strTemp & "&nbsp;页次：<strong><font color=red>" & CurrentPage & "</font>/" & n & "</strong>页 "
strTemp=strTemp & "&nbsp;<b>" & maxperpage & "</b>" & "个文件/页"
strTemp=strTemp & "&nbsp;转到：<select name='page' size='1' onchange='javascript:submit()'>"   
for i=1 to n   
strTemp=strTemp & "<option value='" & i & "'"
if cint(CurrentPage)=cint(i) then strTemp=strTemp & " selected "
strTemp=strTemp & ">第" & i & "页</option>"   
next
strTemp=strTemp & "</select>"
strTemp=strTemp & "</td></tr></form></table></td></tr></table>"
response.write strTemp
end sub

sub DelFiles()
dim whichfile,arrFileName,i
whichfile=trim(Request("FileName"))
if whichfile="" then exit sub
if instr(whichfile,",")>0 then
arrFileName=split(whichfile,",")
for i=0 to ubound(arrFileName)
if left(trim(arrFileName(i)),3)<>"../" and left(trim(arrFileName(i)),1)<>"/" then
whichfile=server.MapPath(UploadDir & "/" & trim(arrFileName(i)))
set thisfile=fso.GetFile(whichfile)
thisfile.Delete True
end if
next
	else
if left(whichfile,3)<>"../" and left(whichfile,1)<>"/" then
Set thisfile = fso.GetFile(server.MapPath(UploadDir & "/" & whichfile))
thisfile.Delete True
end if
end if
Response.Write"<script>alert(""删除成功"");this.location.href='admin_up.asp?path="&path&"';</script>"
Response.end
end sub
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%>
