<%@language="vbscript" codepage="936" %>
<!--#include file="inc/function.asp"-->
<%call Loginpower%>
<%call Legalpower%>
<!--#include file="inc/config.asp"-->
<!--#include file="inc/Head.asp" -->
<%
Const MaxPerPage=20
dim strFileName
dim totalPut,CurrentPage,TotalPages
dim UploadDir,TruePath,fso,theFolder,theFile,whichfile,thisfile,FileCount,TotleSize
Const SaveUpFilesPath="UploadFiles"        '存放上传文件的目录
    strFileName="UploadFile.asp"
    	if idboolean(request.querystring("page")) then
		 currentPage=cint(request.querystring("page"))
	else
		currentPage=1
	end if

'----------------------------------------------------------
if right(SaveUpFilesPath,1)<>"/" then
	UploadDir="../" & SaveUpFilesPath & "/"
else
	UploadDir="../" & SaveUpFilesPath
end if

If not IsObjInstalled("Scripting.FileSystemObject") Then
	Response.write errorback("你的服务器不支持 FSO(Scripting.FileSystemObject)! 不能使用本功能")
    response.end
Else
	set fso=server.CreateObject("Scripting.FileSystemObject")
	if request.querystring("Action")="Del" then
		whichfile=server.mappath(Request.querystring("FileName"))
		Set thisfile = fso.GetFile(whichfile)
		thisfile.Delete True
	end if
'------------------------------------------------------
%>
<script language="JavaScript">
function ConfirmDel()
{
if (confirm("你真的要删除此文件吗!"))
	return true;
else
	return false;
}
</script>
<SCRIPT type=text/javascript>
function bbimg(o){
 var zoom=parseInt(o.style.zoom, 10)||100;zoom+=event.wheelDelta/12;
 if (zoom>0)
 {
 o.style.zoom=zoom+'%';
 }
 return false;
}
</SCRIPT>

<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center" valign="top"> <br>
      <p align="center"><strong>上 传 文 件 管 理</strong></p>
      <%

 TruePath=Server.MapPath(UploadDir)  '返回本地地址+\UploadFiles\
  if fso.FolderExists(TruePath)then
	FileCount=0
	TotleSize=0
	Set theFolder=fso.GetFolder(TruePath) 'truepath如:E:\wwwroot\UploadFiles\
	For Each theFile In theFolder.Files   'theFolder.Files(theFile*)0~9
		FileCount=FileCount+1
		TotleSize=TotleSize+theFile.Size
	next
    totalPut=FileCount
  	'------ 以上统计文件个数总字节---------
 '--------------------------------------------

	if currentpage<1 then
   		currentpage=1
   	end if

   	if (currentpage-1)*MaxPerPage>totalput then 'maxperpage=20
		if (totalPut mod MaxPerPage)=0 then 'totalput统计目录中的文件个数
	  		currentpage= totalPut \ MaxPerPage
	  	else
	      	currentpage= totalPut \ MaxPerPage + 1
		end if
    end if
'--------------------------------------------

	if currentPage=1 then
		showpage2 strFileName,totalput,MaxPerPage 'sub过程
		showContent
		showpage2 strFileName,totalput,MaxPerPage 'sub过程
		response.write "<br><div align='center'>本页共显示 <b>" & FileCount & "</b> 个文件,占用 <b>" & TotleSize\1024 & "</b> K</div>"
   	else
   	   	if (currentPage-1)*MaxPerPage<totalPut then
			showpage2 strFileName,totalput,MaxPerPage 'sub过程
			showContent
			showpage2 strFileName,totalput,MaxPerPage 'sub过程
			response.write "<br><div align='center'>本页共显示 <b>" & FileCount & "</b> 个文件,占用 <b>" & TotleSize\1024 & "</b> K</div>"
       	else
        	currentPage=1
			showpage2 strFileName,totalput,MaxPerPage 'sub过程
			showContent
			showpage2 strFileName,totalput,MaxPerPage 'sub过程
			response.write "<br><div align='center'>本页共显示 <b>" & FileCount & "</b> 个文件,占用 <b>" & TotleSize\1024 & "</b> K</div>"
    	end if
	end if
  else
	response.write errorback("找不到文件夹!可能是配置有误!")
  end if
end if

sub showContent()
   	dim c
	FileCount=0
	TotleSize=0
%>
<table width="650"  align="center" border="1" bordercolor="#A5B6D6" cellpadding="0" cellspacing="1" class="center" style="table-layout: fixed; WORD-BREAK: break-all">
        <tr bgcolor="A4B6D7" class="title">
          <td width="258" height="22" align="center">文件名</td>
          <td width="84" height="22" align="center">文件大小</td>
          <td width="134" height="22" align="center">文件类型</td>
          <td width="119" height="22" align="center">最后修改时间</td>
          <td width="50" height="22" align="center">操作</td>
        </tr>
        <%

For Each theFile In theFolder.Files
	c=c+1
	if FileCount>=MaxPerPage then
		exit for
	elseif c>MaxPerPage*(CurrentPage-1) then
%>
        <tr class="tdbg">
          <td height="20" width="158" bgcolor="F2F8FF">
          <a href="<%=(UploadDir & theFile.Name)%>" target="_blank">
          <%if true then%>
         <%=theFile.Name%>
          <%else%>
		  <img src="<%=(UploadDir & theFile.Name)%>" alt="点击在新窗口浏览图片原尺寸url:<%=theFile.Name%>" border="0" onmousewheel="return bbimg(this)" onload="javascript:if(this.width >150){this.resized=true;this.style.width=150;this.style.height=150;}">
		  <%end if%>
		  </a></td>
          <td width="84" align="left" bgcolor="F2F8FF"><%=theFile.size%>字节</td>
          <td width="134" align="center" bgcolor="F2F8FF"><%=theFile.type%></td>
          <td width="119" align="center" bgcolor="F2F8FF"><%=theFile.DateLastModified%></td>
          <td width="50" align="center" bgcolor="F2F8FF"><a href="?Action=Del&FileName=<%=UploadDir&theFile.Name%>" onClick="return ConfirmDel()">删除</a></td>
        </tr>
        <%
		FileCount=FileCount+1
		TotleSize=TotleSize+theFile.Size
	end if
Next
%>
      </table>
      <%
end sub
%> </td>
  </tr>
</table>
<!-- #include file="inc/Foot.asp" -->
<%
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='get' action='" & sfilename & "'><tr><td>"
	strTemp=strTemp & "共 <b>" & totalnumber & "</b> 个文件,占用 <b>" & TotleSize\1024 & "</b> K&nbsp;&nbsp;&nbsp;"
	sfilename=JoinChar(sfilename)'url没有?就加?,url没有&就加&
	'------------------分页开始-----------------------------
  	if CurrentPage<2 then
    		strTemp=strTemp & "首页 上一页&nbsp;"
  	else
    		strTemp=strTemp & "<a href='" & sfilename & "page=1'>首页</a>&nbsp;"
    		strTemp=strTemp & "<a href='" & sfilename & "page=" & (CurrentPage-1) & "'>上一页</a>&nbsp;"
  	end if

  	if n-currentpage<1 then
    		strTemp=strTemp & "下一页 尾页"
  	else
    		strTemp=strTemp & "<a href='" & sfilename & "page=" & (CurrentPage+1) & "'>下一页</a>&nbsp;"
    		strTemp=strTemp & "<a href='" & sfilename & "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='true'"
		strTemp=strTemp & ">第" & i & "页</option>"
	next
	strTemp=strTemp & "</select>"
	strTemp=strTemp & "</td></tr></form></table>"
	response.write strTemp
end sub
%>
