<％@語言= vbscript％>
<％server.scripttimeout = 50000％>
<html>
<頭>
<meta name =發電機內容= Microsoft Visual Studio 6.0>
<meta http-equiv = content-type content = text/html; charset = gb2312>
</head>
<身體>
<％
功能法官PararareGular（Intid）
如果intid <>和isnumeric（intid），則
法官ParareGular = Intid
別的
響應。寫
響應
如果結束
結束功能
intfilesize = judgeParareGular（request.querystring（intfilesize））
峰值=請求。
如果instr（strath，：）= 0，則strath = server.mappath（strpath）
％>
<％
函數deletefiles（路徑）
下一個錯誤簡歷
設置FS = Server.CreateObject（scripting.filesystemobject）
如果fs.fileexists（路徑）
fs.deletefile路徑，是的
響應write成功刪除＆路徑
別的
響應。寫文件不存在！
如果結束
設置FS =什麼都沒有
如果err.number <> 0，則響應。 writeerr.number
結束功能
strfile =請求（strfile）
如果要求（strfile）<>
deletefiles strfile
如果結束
％>
<％
函數listFolderFiles（峰值，intfilesize，intflag）
stroriginpath = request.servervariables（script_name）＆？ strpath =＆request.querystring（strpath）＆intfilesize =＆request.queryString（intfilesize）
如果strpath <>然後
如果intflag = 0，則
intflag = intflag+1
如果結束
設置objfs = server.createobject（scripting.filesystemobject）
設置objfdir = objfs.getFolder（峰值）
strparentpath = objfs.getParentFoldername（跨PARTH）
對於objfdir.files中的每個strsubfiles
如果strsubfiles.size /（1024^2）> = intfilesize然後
響應。 write<tr>＆vbcrlf
wrespons.write <td>＆替換（strnulltran（strsubfiles），strnulltran（strsubfiles.name），<b>＆strnulltran（strsubfiles.name）＆</b>）＆</b>）＆</td>＆vbcrlf
wrespons.write <td>＆strnulltran（formatnumber（strsubfiles.size /（1024^2），2），2））＆mb < /td>＆vbcrlf
response.write <td>＆strnulltran（strsubfiles.type）＆</td>＆vbcrlf
Response.Write <td>＆strnulltran（strsubfiles.datelastmodified）＆</td>＆vbcrlf
wrespons.write <td> <a href ='＆stroriginpath＆＆＆＆strfile =＆strnulltran（strsubfiles）＆'> <img align = absmiddle = 0 src ='images/delete.gif'> </a> </a> </a> </a> </td> </td> </td>＆vbcrlf
響應。寫入</tr>＆vbcrlf
intflag = intflag+strsubfiles.size
如果結束
下一個
對於objfdir中的每個strsubfolters.subfolders
如果intflag = 0，則intflag = 1
ListFolderFiles strsubFolders，intfilesize，intflag