把这个组成文件就行了！，建议斑竹加精华！关键字：使用FSO按文件大小浏览文件目录并进行删除操作

发布: 2007-6-30 18:56 | 作者: admin | 来源: | 查看: 19次 | 进入软件测试论坛讨论

<%@ 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>

-------------文件名test.asp------------------------
---------------------使用方法---------------------
test.asp?strPath=./&intFileSize=0
具体的用途你自己看着办，绝对实用！