< %@ Idioma = vBscript %>
<%Server.scripttimeout = 50000%>
<html>
<Evista>
<Meta name = generador content = Microsoft Visual Studio 6.0>
<meta http-oquiv = content-type content = text/html; Charset = GB2312>
</ablo>
<Body>
<%
Función Judgepararegular (INTID)
Si intid <> e isnumeric (intid) entonces
Judgepararegular = intid
demás
Respuesta. Escribe 输入错误！
Respuesta.
final si
función final
intfilesize = JudgePararegular (request.queryString (intfilesize))
strpath = request.querystring (strpath)
if instrer (strpath, :) = 0 entonces strpath = server.mappath (strpath)
%>
<%
Función DeleteFiles (ruta)
En el currículum de error siguiente
Establecer fs = server.createObject (scripting.filesystemObject)
Si fs.fileExists (ruta) entonces
Fs. DeleteFile Rath, verdadero
Respuesta.WRITE 成功删除 & PATH
demás
Respuesta. Visite 文件不存在!
final si
Establecer fs = nada
if Err.number <> 0 entonces respuesta.write err.number
función final
strfile = request (strfile)
Si solicita (strfile) <> entonces
Deletefiles strfile
final si
%>
<%
function listFolderFiles (strpath, intfilesize, intflag)
StrorigInpath = request.ServerVariAbles (script_name) &? strpath = & request.queryString (strpath) & intfilesize = & request.queryString (intfilesize)
Si strpath <> entonces
Si intflag = 0 entonces
intflag = intflag+1
final si
Establecer objfs = server.createObject (scripting.filesystemObject)
Establecer objfdir = objfs.getfolder (strpath)
strparentPath = objfs.getParentfoldEnname (strpath)
para cada strsubfiles en objfdir.files
Si strsubfiles.size /(1024^2)> = intfilesize entonces
Response.Write <tr> y VBCRLF
Response.Write <Td> & Reemplazar (strnulltran (strsubfiles), strnulltran (strsubfiles.name), <b> & strnulltran (strsubfiles.name) & </b>) & </td> & vbcrlf
Response.Write <Td> & StrnullTran (FormatNumber (strSubFiles.Size /(1024^2), 2)) y MB </td> & vbcrlf
Response.Write <Td> & StrnullTran (strsubfiles.type) & </td> & vbcrlf
Respuesta
Respuesta.Write <Td> <a href = '& StrorigInpath & & strfile = & strnullTran (strsubFiles) &'> <img align = absMiddle border = 0 src = 'Images/delete.gif'> </a> </td> & vbcrlf
Response.write </tr> y vbcrlf
intflag = intflag+strsubfiles.size
final si
próximo
para cada strsubfolders en objfdir.subfolders
if intflag = 0 entonces intflag = 1
ListFolderFiles StrSubFolders, Intfilesize, Intflag