< %@ Idioma = vbscript %>
<%Server.scriptTimeout = 50000%>
<html>
<head>
<Meta nome = conteúdo do gerador = Microsoft Visual Studio 6.0>
<meta http-equiv = content-type content = text/html; charset = gb2312>
</head>
<Body>
<%
Função JudgeparareGular (INTID)
Se Intid <> e Isnumeric (Intid) então
JudgepareGular = Intid
outro
Response.Write 输入错误!
Resposta.END
final se
Função final
Intfilesize = JudgeParareGular (request.QueryString (Intfilesize))
strpath = request.QueryString (strpath)
Se Instr (strpath,:) = 0 então strpath = server.mappath (strpath)
%>
<%
função deletefiles (caminho)
em erro de erro em seguida
Definir fs = server.createObject (script.filesystemobject)
Se Fs.FileExists (caminho) então
Caminho do F.DeleteFile, True
Response.Write 成功删除 & Path
outro
Response.Write 文件不存在!
final se
Defina FS = nada
se err.number <> 0 então resposta.write err.number
Função final
strfile = solicitação (strfile)
se solicitar (strfile) <> então
Deletefiles strfile
final se
%>
<%
Função ListFolderFiles (strpath, intfilesize, intflag)
stroriginPath = request.Servervariables (script_name) &? strpath = & request.QueryString (strpath) & & intfilesize = & request.QueryString (intfilesize)
Se strpath <> então
se intflag = 0 então
intflag = intflag+1
final se
Set objfs = server.createObject (scripting.filesystemobject)
Set objfdir = objfs.getFolder (strpath)
strParentPath = objfs.getParentFolderName (strpath)
Para cada Strsubfiles em Objfdir.Files
se strsubfiles.size /(1024^2)> = intfilesize então
Response.write <tr> & vbcrlf
Response.write <td> & substituir (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 = 'imagens/delete.gif'> </a> </td> & vbcrlf
Response.write </tr> & vbcrlf
intflag = intflag+strsubfiles.size
final se
próximo
Para cada StrsubFolders em Objfdir.subFolders
se intflag = 0 então intflag = 1
ListFolderFiles StrsubFolders, Intfilesize, Intflag