使用FSO按文件大小浏览文件目录并进行删除操作

2019-11-01 12:46asp教程网 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='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>