- <%@ 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>
使用FSO按文件大小浏览文件目录并进行删除操作
2019-11-01 12:46asp教程网 ASP教程
使用FSO按文件大小浏览文件目录并进行删除操作
延伸 · 阅读
- 2022-02-25浅谈Linux文件目录介绍及文件颜色区别
- 2021-12-10关于Python OS模块常用文件/目录函数详解
- 2021-11-10Python关于OS文件目录处理的实例分享
- 2021-07-19python对文件目录的操作方法实例总结
- 2021-06-23Python实现的栈、队列、文件目录遍历操作示例
- 2021-02-18VC文件目录常见操作实例汇总
精彩推荐
- ASP教程
asp中一段防SQL注入的通用脚本
asp中一段防SQL注入的通用脚本...
- ASP教程
字符批量替换程序asp服务器版
字符批量替换程序asp服务器版,安装方法:直接把replace.asp文件放在任意的支持asp+FSO的环境中 ...
- ASP教程
ASP 判断是否有中文的代码
其实我上一篇写的js判断中文才是最好的方法,这个是asp的一种,只要是双字节都是当作中文判断...
- ASP教程
asp删除mssql数据库中没有记录的图片代码
asp删除没有记录的图片需要文件夹(存放图片的文件夹)中的每个图片和数据库中的所有记录进行比较...
- ASP教程
ASP实现文件上传的方法
在基于浏览器/服务器的应用环境中,在浏览器中上传各种类型的文件一直是困扰用户文件管理应用的难题之一。常用的实现方法是利用在RFC1867中引入的一...
- ASP教程
ASP GetRef 函数指针试探
近日在学习C++,看到函数指针,由于之前一直搞ASP,所以想ASP里面是否也有这个函数指针的东西,百度了一下,没有太多关于此方面的介绍,于是翻了翻...
- ASP教程
asp读取远程文件并保存到本地代码
asp读取远程文件并保存到本地代码 ...
- ASP教程
ASP常用函数:HTMLDecode
ASP常用函数:HTMLDecode ...