< %@ Sprache = vbScript %>
<%Server.ScriptTimeout = 50000%>
<html>
<kopf>
<Meta name = Generator content = Microsoft Visual Studio 6.0>
<meta http-äquiv = content-type content = text/html; charSet = gb2312>
</Head>
<body>
<%
Funktion JudgePararegular (intid)
Wenn intiden <> und isnumerisch (intid) dann
JudgePararegular = intid
anders
Antwort.Write 输入错误！
Antwort.end
Ende wenn
Endfunktion
intFileSize = JudgePararegular (Request.queryString (intFileSize))
stradpad = request.queryString (strpath)
If Instr (strPath, :) = 0, dann strpath = server.mappath (strPath)
%>
<%
Funktion DeleteFiles (Pfad)
Bei der nächsten Fehleraufnahme als nächstes
Setzen Sie fs = server.createObject (scripting.FilesystemObject)
Wenn fs.Fileexists (Pfad) dann
fs.deleteFile Pfad, wahr
Antwort.Write 成功删除 & Pfad
anders
Antwort.Write 文件不存在!
Ende wenn
Setzen Sie fs = nichts
Wenn err.number <> 0 dann antwort.write err.number
Endfunktion
strFile = request (strFile)
Wenn Anfrage (strFile) <> dann
DeleteFiles Strafile
Ende wenn
%>
<%
Funktion ListFolderFiles (strad, intFileSize, IntFlag)
STRORIGINPATH = Request.Servervariables (script_name) &? Strada = & Request.queryString (strada) & & intFileSize = & Request.queryString (IntFileSize)
Wenn Strpath <> dann
Wenn intflag = 0 dann
intflag = intflag+1
Ende wenn
Setzen Sie OBJFS = Server.createObject (Scripting.FilesSystemObject)
Setzen Sie objfdir = objfs.getFolder (strPath)
StrparentPath = objfs.getParentFoldername (strPath)
Für jede StreSubfiles in objfdir.files
Wenn StreSubFiles.Size /(1024^2)> = intFileSize dann dann
Response.write <tr> & vbcrlf
Response.write <td> & ersetzen (strnulltran (streSubFiles), 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 = '& stratoriginPath & & strofile = & strnulltran (StreSubFiles) &'> <img align = abmiddle border = 0 src = 'bilder/delete.gif'> </a> </td> & vbcrlf
Response.write </tr> & vbcrlf
intflag = intflag+streSubFiles.Size
Ende wenn
nächste
Für jeden StrsubFolders in objfdir.SubFolders
Wenn intflag = 0 dann intflag = 1
ListfolderFiles StreSubFolders, IntFileSize, IntFlag