使用FSO按文件大小浏览文件目录并进行删掉操作
发布时间：2021-12-15 13:05:17 所属栏目：系统 来源：互联网
导读：%@ 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 an
|
<%@ 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 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) （编辑：开发网_开封站长网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
浙公网安备 33038102330459号