引用FSO按文件大小浏览文件目录并进行删除操作
发布时间：2023-04-20 13:51:09 所属栏目：教程 来源：
导读：<%@ Language=VBScript %>
<%Server.ScriptTimeout=50000%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<meta http-equiv="Content-Type" content=
<%Server.ScriptTimeout=50000%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<meta http-equiv="Content-Type" content=
|
<%@ 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> （编辑：聊城站长网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
站长推荐
