<％@语言= 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
response.write <td> <a href ='＆stroriginpath＆＆＆＆strfile =＆strnulltran（strsubfiles）＆'> <img align = absmiddle border = 0 src ='images/delete.gif'> </a> </a> </a> </a> </td> </td>＆vbcrlf
响应。写入</tr>＆vbcrlf
intflag = intflag+strsubfiles.size
如果结束
下一个
对于objfdir中的每个strsubfolters.subfolders
如果intflag = 0，则intflag = 1
ListFolderFiles strsubFolders，intfilesize，intflag