<％@言語= vbscript％>
<％server.scripttimeout = 50000％>
<html>
<head>
<メタ名=ジェネレーターコンテンツ= Microsoft Visual Studio 6.0>
<メタhttp-equiv = content-type content = text/html; charset = gb2312>
</head>
<body>
<％
関数JudgerPararegular（intid）
intid <> and isNumeric（intid）の場合
JuddParareGular = intid
それ以外
Response.Write 输入错误！
Response.End
ifを終了します
エンド関数
intfilesize = judgpararegular（request.querystring（intfilesize））
strpath = request.querystring（strpath）
If strut（strpath、：）= 0、strpath = server.mappath（strpath）
％>
<％
関数deletefiles（パス）
エラーの再開時に次に再開します
fs = server.createObject（scripting.filesystemObject）を設定します
fs.fileexists（パス）の場合
fs.deletefileパス、True
Response.Write成功删除＆パス
それ以外
Response.Write文件不存在！
ifを終了します
fs = Nothingを設定します
err.number <> 0の場合、respons.write err.number
エンド関数
strfile = request（strfile）
リクエストの場合（strfile）<> then
deletefiles strfile
ifを終了します
％>
<％
function listfolderfiles（strpath、intfilesize、intflag）
stroriginpath = request.servervariables（script_name）＆？strpath =＆request.queryString（strpath）＆＆＆＆request.querystring（intfilesize）
strpath <> thenの場合
intflag = 0の場合
intflag = intflag+1
ifを終了します
objfs = server.createobject（scripting.filesystemobject）を設定します
objfdir = objfs.getfolder（strpath）を設定します
strparentpath = objfs.getParentFoldername（strpath）
objfdir.filesの各strsubfilesについて
strsubfiles.size /（1024^2）> = intfilesizeの場合
Response.Write <Tr>＆vbcrlf
Response.Write <TD>＆Leplace（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
respons.write <td>＆strnulltran（strsubfiles.datelastModified）＆</td>＆vbcrlf
respons.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
ifを終了します
次
objfdir.subfoldersの各strsubfoldersについて
intflag = 0の場合、intflag = 1
ListFolderFiles strsubfolders、intfilesize、intflag