<!--#include file="utf-8.asp" -->
<!--#include file="js/Function.asp" -->
<!--#include file="CheckAdmin.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<META NAME="copyright" CONTENT="Copyright 2010-2012 - yidacms.com" />
<META NAME="Author" CONTENT="世纪伟成  yidacms.com" />
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link href="js/admin.css" rel="stylesheet" type="text/css">
<title>上传文件管理！</title>
<style type="text/css">
*{
font-size:12px;
}
.td1 a:hover {
       position: relative;
}
.td1 span {display:none} 
.td1 a:hover span {
       display: block;
       position: absolute;
       left: 0px;
       top: 15px;
       background: #ffffff;
       border: 1px solid #cccccc;
       padding: 8px 10px;
       line-height: 20px;
       color: #333;
       text-decoration: none;
}
</style>
</head>
<%
'版权：世纪伟成(http://yidacms.com)
'本信息不会影响您网站的正常访问，无论免费用户或是收费用户请保留这里的信息.
'如果您删除了这里的版权信息,将追究法律责任.

		Const MaxPerPage=30
		dim strFileName
		dim totalPut,CurrentPage,TotalPages
		dim UploadDir,TruePath,fso,theFolder,theFile,whichfile,thisfile,FileCount,TotleSize
		strFileName="Admin_Upload.asp?"
		
		if request("page")<>"" then
			currentPage=cint(request("page"))
				else
			currentPage=1
		end if
		
		if right(SaveUpFilesPath,1)<>"/" then
			UploadDir="../" & SaveUpFilesPath & "/"
				else
			UploadDir="../" & SaveUpFilesPath
		end if
		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
				whichfile=server.mappath(Request("FileName")) 
				Set thisfile = fso.GetFile(whichfile) 
				thisfile.Delete True
				response.redirect "Admin_Upload.asp"
			end if
%>
<script language="JavaScript">
function ConfirmDel()
{
if (confirm("你真的要删除此文件吗!"))
	return true;
else
	return false;
}
</script>
<table width="98%" height="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#cccccc" style="border-collapse:collapse" bgcolor="#FFFFFF" align="center">
  <tr> 
    <td width="100%" align="left" valign="top"> <br>
      <p align="center"><strong>上 传 文 件 管 理</strong></p>
      <%
	  if fso.FolderExists(TruePath)then
		FileCount=0
		TotleSize=0
		Set theFolder=fso.GetFolder(TruePath)
		For Each theFile In theFolder.Files
			FileCount=FileCount+1
			TotleSize1=TotleSize1+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
			showpage2 strFileName,totalput,MaxPerPage
			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
				showpage2 strFileName,totalput,MaxPerPage
				showContent     	
				showpage2 strFileName,totalput,MaxPerPage
				response.write "<br><div align='center'>本页共显示 <b>" & FileCount & "</b> 个文件，占用 <b>" & TotleSize\1024 & "</b> K</div>"
			else
				currentPage=1
				showpage2 strFileName,totalput,MaxPerPage
				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
%> 
      <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#cccccc" class="border">
        <tr bgcolor="#cccccc" class="title"> 
          <td width="158" height="25" align="center">文件名</td>
          <td width="84" height="20" align="center">文件大小</td>
          <td width="134" height="20" align="center">文件类型</td>
          <td width="119" height="20" align="center">最后修改时间</td>
          <td width="43" height="20" 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="22" bgcolor="ffffff"><a href="<%=(UploadDir & theFile.Name)%>" target="_blank"><strong>&nbsp;<%=theFile.Name%></strong></a></td>-->
          <td height="22" bgcolor="ffffff"><p class="td1"><a href="<%=(UploadDir & theFile.Name)%>" target="_blank"><strong>&nbsp;<%=theFile.Name%></strong><span><img src="<%=(UploadDir & theFile.Name)%>" width="300" height="200" /></span></a></p></a></td>
          <td width="84" align="right" bgcolor="ffffff"><%=theFile.size%>字节</td>
          <td width="134" align="center" bgcolor="ffffff"><%=theFile.type%></td>
          <td width="119" align="center" bgcolor="ffffff"><%=theFile.DateLastModified%></td>
          <td width="43" align="center" bgcolor="ffffff"><a href="Admin_Upload.asp?Action=Del&FileName=<%=UploadDir&theFile.Name%>" onClick="return ConfirmDel()"><img src="images/015.gif" alt="删除" onclick="{if(confirm('确定删除它吗?')){return true;}return false;}"/></a></td>
        </tr>
<%
				FileCount=FileCount+1
				TotleSize=TotleSize+theFile.Size
			end if
		Next
%>
      </table>
<%
		end sub
%> </td>
  </tr>
</table>
<%
		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='" & sfilename & "'><tr><td>"
		strTemp=strTemp & "共 <b>" & totalnumber & "</b> 个文件，占用 <b>" & TotleSize1\1024 & "</b> K&nbsp;&nbsp;&nbsp;"
		'sfilename=JoinChar(sfilename)
		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 "
			strTemp=strTemp & ">第" & i & "页</option>"   
		next
		strTemp=strTemp & "</select>"
		strTemp=strTemp & "</td></tr></form></table>"
		response.write strTemp
		end sub
%>