<%
'=========================================================
' 『上电在线』版权所有(C) www.semmw.com
' 您可以自由应用本程序于合法的个人或商业行为。
' 您必须保留版权信息。
'=========================================================
' Version:1.3
' Date: 2003-01-10
' Script Written by xubin
'=========================================================
' Copyright (C) 1999-2002 www.semmw.com. All rights reserved.
' Web: http://www.www.semmw.com
' Email: webmaster@www.semmw.com,webmaster@mail.www.semmw.com
'=========================================================
%>
<!--#Include File="conn.asp" -->
<!--#Include File="procedure.asp" -->
<!--#Include File="Language.asp" -->
<% 
	Call loaderror()
	Call showwebdata()
	Call Language_var(Language,"clearupfile")
	
	'统计占用空间大小
 	Sub ShowSpaceInfo(drvpath)
 		Dim fso,d,size,showsize
 		Set fso=Server.Createobject("scripting.filesystemobject") 		
 		drvpath=Server.mappath(drvpath) 		 		
 		Set d=fso.getfolder(drvpath) 		
 		size=d.size
 		showsize=size & "&nbsp;Byte" 
 		If size>1024 Then
 		   size=(size\1024)
 		   showsize=size & "&nbsp;KB"
 		End If
 		If size>1024 Then
 		   size=(size/1024)
 		   showsize=Formatnumber(size,2) & "&nbsp;MB"		
 		End If
 		If size>1024 Then
 		   size=(size/1024)
 		   showsize=Formatnumber(size,2) & "&nbsp;GB"	   
 		End If   
 		Response.Write showsize
  	End Sub	
%> 
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charSet=<%=Language_charSet%>">
<link rel="stylesheet" href="images/styles.css" type="text/css">
</head>
<body leftmargin="0" Topmargin="0" marginwidth="0" marginheight="0" background="images/greystrip.gIf">
<!--#Include File="head.asp" -->
<center><FORM method="post" action="config.asp">
    <table border="1" cellspacing="0" cellpadding="0" width="455" bordercolor="#7C96B8" bordercolordark="#FFFFFF" height="110" >
      <tr> 
<td height="20" colspan="2" bgcolor="#7C96B8" background="images/mmTo.gIf" width="451"><DIV style="FILTER: dropshadow(color=#FFFFFF, offx=1, offy=1, positive=1); WIDTH: 100%; CURSOR: hAND; POSITION: relative">
      <p align="center"><font color="#336699"><%=Language_clearupfile(0)%></font></p></div></td>
      </tr>
      <tr> 
<td height="65" colspan="2" width="451"><p align="center"><font color="#336699"><%=Language_clearupfile(1)%></font></p>
    <ol>
				<%
				Dim objFSO,uploadfolder,uploadfiles,upname,upfilename
				'显示上传目录下的文件列表
				Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
				If Request("filename")<>"" Then objFSO.DeleteFile(Server.MapPath(FilePath&"\"&Request("filename")))
				Set uploadFolder=objFSO.GetFolder(Server.MapPath(FilePath&"\"))
				Set uploadFiles=uploadFolder.Files
				For Each Upname In uploadFiles
					upfilename=FilePath&"/"&upname.name
					Response.Write "<li><a href="&upfilename&">"&upfilename&"</a>&nbsp;&nbsp;&nbsp;<a href='?filename="&upname.name&"'><img src=images/delete.gIf align=absmiddle border=0>"&Language_clearupfile(2)&"</a></li>"
				Next
				Set uploadFolder=nothing
				Set uploadFiles=nothing
				%>
			</ol>
		  <p align="center"><font color="#336699"><%=Language_clearupfile(3)%></font><%ShowSpaceInfo(FilePath)%></p>
		</td> 
      </tr>
      <tr> 
<td colspan="2" align="center" bgcolor="#7C96B8" height="20" background="images/mmTo.gIf" width="451"> <input name="bank" type="Submit" value="<%=Language_head(1)%>" class="Tips_bo"> 
</td>
      </tr>
    </table>
  </FORM>
</center>
</body>
</html>
<%
'关闭销毁对象
Set rs=nothing
conn.close
Set conn=nothing
%>