使用FSO按文件大小浏览文件目录并进行删除操作_ASP教程_编程技术
<%@ 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=/"http://127.0.0.1/Files/BeyondPic/2007-4/19/0741912543038824.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>
