📄 clearupfile.asp
字号:
<%
'=========================================================
' 『动感在线』版权所有(C) Donggan.Net
' 您可以自由应用本程序于合法的个人或商业行为。
' 您必须保留版权信息。
'=========================================================
' Version:1.3
' Date: 2003-01-10
' Script Written by xubin
'=========================================================
' Copyright (C) 1999-2002 Donggan.Net. All rights reserved.
' Web: http://www.Donggan.net
' Email: webmaster@Donggan.net,webmaster@mail.Donggan.net
'=========================================================
%>
<!--#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 & " Byte"
If size>1024 Then
size=(size\1024)
showsize=size & " KB"
End If
If size>1024 Then
size=(size/1024)
showsize=Formatnumber(size,2) & " MB"
End If
If size>1024 Then
size=(size/1024)
showsize=Formatnumber(size,2) & " 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> <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
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -