< %@ Language = vbscript %>
<%Server.scripttimeout = 50000%>
<html>
<Голова>
<Meta name = Generator Content = Microsoft Visual Studio 6.0>
<meta http-equiv = content-type content = text/html; charset = gb2312>
</Head>
<Тело>
<%
Функциональный судья ParuePararegular (Intid)
Если INTID <> и is -NURERIER (Intid), то тогда
JudgePararegular = Intid
еще
Response.write 输入错误!
Response.end
конец, если
конечная функция
intfilesize = dreadyPararegular (request.querystring (intfilesize))
strpath = request.querystring (strpath)
Если instr (strpath, :) = 0, то strpath = server.mappath (strpath)
%>
<%
функция Deletefiles (PATH)
при ошибке резюме следующим
Установить fs = server.createObject (scripting.filesystemobject)
Если fs.fileexists (путь), тогда
FS.DeleteFile Path, True
response.write 成功删除 & path
еще
Ответ.write 文件不存在!
конец, если
Установите fs = ничего
Если err.number <> 0, то response.write err.number
конечная функция
strfile = запрос (strfile)
Если запрос (strfile) <> then
Deletefiles strfile
конец, если
%>
<%
Функция LiledFolderFiles (strPath, Intfilesize, Intflag)
StroriginPath = request.servervariables (script_name) &? Strpath = & request.querystring (strpath) & & intfilesize = & requery.querystring (intfilesize)
Если Strpath <> Then
Если intflag = 0, то
intflag = intflag+1
конец, если
Установить objfs = server.createObject (scripting.filesystemobject)
Установить objfdir = objfs.getfolder (strpath)
strparentpath = objfs.getParentFolderName (strPath)
Для каждого strsubfiles in objfdir.files
Если strsubfiles.size /(1024^2)> = intfilesize тогда
Response.write <tr> & vbcrlf
Response.write <td> & reply (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
конец, если
следующий
Для каждого Strsubfolders в Objfdir.subfolders
Если intflag = 0, то intflag = 1
LiledFolderFiles Strsubfolders, Intfilesize, Intflag