<%@ Language=VBScript %>
<%Server.ScriptTimeout=50000%>
<HTML>
<HEAD>
<META NAME=GENERATOR Content=Microsoft Visual Studio 6.0>
<meta http-equiv=Content-Type content=text/html; charset=gb2312>
</HEAD>
<BODY>
<%
function JudgeParaRegular(intID)
if intID<> and isnumeric(intID) then
JudgeParaRegular=intId
else
Response.Write 输入错误！
Response.End
end if
end function
intFileSize=JudgeParaRegular(Request.QueryString(intFileSize))
strPath=Request.QueryString(strPath)
if instr(strPath,:)=0 then strPath=server.MapPath(strPath)
%>
<%
function deletefiles(path)
on error resume next
Set fs=Server.CreateObject(Scripting.FileSystemObject)
if fs.FileExists(path) then
fs.DeleteFile path,True
response.write 成功删除&path
else
response.write 文件不存在!
end if
Set fs=nothing
if Err.number<>0 then Response.Write Err.number
end function
strFile=request(strFile)
if request(strFile)<> then
deletefiles strFile
end if
%>
<%
function ListFolderFiles(strPath,intFileSize,intFlag)
strOriginPath= Request.ServerVariables(Script_Name)& ?strPath= &Request.QueryString(strPath) & &intFileSize=&Request.QueryString(intFileSize)
if strPath<> then
if intFlag=0 then
intFlag=intFlag+1
end if
Set objFs=Server.CreateObject(Scripting.FileSystemObject)
Set objFdir=objFs.GetFolder(strPath)
strParentPath= objFs.GetParentFolderName(strPath)
for each strSubFiles in objFdir.files
if strSubFiles.size /(1024^2)>=intFileSize then
Response.Write <TR> & vbcrlf
Response.Write <TD> & replace(strNullTran(strSubFiles),strNullTran(strSubFiles.Name),<b>&strNullTran(strSubFiles.Name)&</b>) & </TD> & vbcrlf
Response.Write <TD>& strNullTran(FormatNumber(strSubFiles.size /(1024^2),2)) & MB</TD> & vbcrlf
Response.Write <TD> & strNullTran(strSubFiles.type) & </TD> & vbcrlf
Response.Write <TD> & strNullTran(strSubFiles.datelastmodified) & </TD> & vbcrlf
Response.Write <TD><A HREF='& strOriginPath & &strFile=&strNullTran(strSubFiles)&'><img align=absmiddle border=0 src='images/delete.gif'></A></TD> & vbcrlf
Response.Write </TR> & vbcrlf
intFlag=intFlag+strSubFiles.size
end if
next
for each strSubFolders in objFdir.SubFolders
if intFlag=0 then intFlag=1
ListFolderFiles strSubFolders,intFileSize,intFlag
next
else
Response.Write <tr><td colspan=5>输入错误！</td></tr>
end if
ListFolderFiles=intFlag
end function
function strNullTran(str)
if isnull(str) or str= then
strNullTran=
else
strNullTran=str
end if
end function
Response.Write <TABLE WIDTH=100% BORDER=1 CELLSPACING=1 CELLPADDING=1> & vbcrlf
Response.Write <TR> & vbcrlf
Response.Write <TD>文件名及路径</TD> & vbcrlf
Response.Write <TD align=center>大小</TD> & vbcrlf
Response.Write <TD align=center>类别</TD> & vbcrlf
Response.Write <TD align=center>修改时间</TD> & vbcrlf
Response.Write <TD align=center>删除</TD> & vbcrlf
Response.Write </TR> & vbcrlf
intFlag=ListFolderFiles(strPath,CDbl(intFileSize),0)
Response.Write <tr><td align=right>总计：</td><td colspan=4>&formatNumber((intFlag-1)/(1024^2),2) & MB</td></tr> & vbcrlf
Response.Write </TABLE> & vbcrlf
%>
</BODY>
</HTML>
