< %@ language = vbscript %>
<%server.scriptTimeout = 50000%>
<html>
<헤드>
<메타 이름 = 발전기 컨텐츠 = Microsoft Visual Studio 6.0>
<meta http-equiv = content-type content = text/html; charset = gb2312>
</head>
<body>
<%
함수 judgepararegular (indid)
intid <>와 isnumeric (indid)이라면
judgepararegular = indid
또 다른
응답. 쓰기 输入错误！
응답. 엔드
끝 If
엔드 기능
intfilesize = judgepararegular (request.querystring (intfilesize))
stratp = request.querystring (strath)
if instrath (stratp, :) = 0 strpath = server.mappath (strath)
%>
<%
함수 deletefiles (경로)
다음에 오류가 재개됩니다
set fs = server.createobject (scripting.filesystemobject)
fs.FileExists (경로)라면
fs.deletefile 경로, true
응답. write 成功删除 & path
또 다른
응답. 쓰기 文件不存在!
끝 If
fs = 아무것도 설정하지 않습니다
err.number <> 0 인 경우 response.write err.number
엔드 기능
strfile = 요청 (strfile)
요청 (strfile) <>
strfile 삭제
끝 If
%>
<%
함수 listfolderfiles (strath, intfilesize, intflag)
stroriginpath = request.servariables (script_name) &? strath = & request.querystring (strath) & & intfilesize = & request.querystring (intfilesize)
그렇다면 stratp <>
intflag = 0이면
intflag = intflag+1
끝 If
set objfs = server.createobject (scripting.filesystemobject)
set objfdir = objfs.getfolder (strath)
strparentpath = objfs.getParentFolderName (strath)
objfdir.files의 각 strsubfiles에 대해
if strsubfiles.size /(1024^2)> = intfileSize
응답. write <tr> & vbcrlf
response.write <td> & replace (strnulltran (strsubfiles), strnulltran (strsubfiles.name), <b> & strnulltran (strsubfiles.name) & </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 elign = absmiddle border = 0 src = 'images/delete.gif'> </a> </td> & vbcrlf
응답 </tr> & vbcrlf
intflag = intflag+strsubfiles.size
끝 If
다음
objfdir.subfolders의 각 strsubfolders에 대해
intflag = 0이면 intflag = 1입니다
ListFolderFiles StrSubfolders, intfilesize, intflag