<٪@ language = vbscript ٪>
<٪ server.scriptTimeout = 50000 ٪>
<html>
<head>
<meta name = Generator Content = Microsoft Visual Studio 6.0>
<meta http-equiv = content-type content = text/html ؛ charset = gb2312>
</head>
<body>
<٪
وظيفة القاضي Parararegular (Intid)
إذا كان intid <> و isnumeric (intid) ثم
judgepararegular = intid
آخر
استجابة. write 输入错误！
استجابة
إنهاء إذا
وظيفة نهاية
intfilesize = judgepararegular (request.querystring (intfilesize))
strprath = request.querystring (strath)
إذا instr (strPrath ، :) = 0 ثم strprath = server.mappath (strprath)
٪>
<٪
وظيفة deletefiles (المسار)
عند استئناف الخطأ التالي
set fs = server.createObject (scripting.filesystemObject)
إذا fs.filexists (المسار) ثم
مسار fs.deletefile ، صحيح
استجابة. write 成功删除 & path
آخر
الرد. write 文件不存在!
إنهاء إذا
تعيين fs = لا شيء
إذا err.number <> 0 ثم response.write err.number
وظيفة نهاية
strfile = طلب (strfile)
إذا طلب (strfile) <> ثم
حذف strfile
إنهاء إذا
٪>
<٪
الوظائف listfolderfiles (strprath ، intfilesize ، intflag)
stroriginpath = request.servervariables (script_name) &؟ strprath = & request.querystring (strath) & & intfilesize = & request.querystring (intfilesize)
إذا strath <> ثم
إذا intflag = 0 ثم
intflag = intflag+1
إنهاء إذا
تعيين OBJFS = server.createBject (scripting.filesystemObject)
تعيين objfdir = objfs.getfolder (strprath)
strparentpath = objfs.getParentFolderName (Strath)
لكل strsubfiles في objfdir.files
إذا كان strsubfiles.size /(1024^2)> = intfilesize ثم
استجابة. write <tr> و vbcrlf
Response.write <td> & Replace (Strnulltran (Strsubfiles) ، Strnulltran (strsubfiles.name) ، <b> & strnulltran (strsubfiles.name) & </b>) & </td> & vbcrlf
استجابة.
Response.write <td> و Strnulltran (strsubfiles.type) و </td> & vbcrlf
استجابة. write <td> & strnulltran (strsubfiles.datelastmodified) & </td> & vbcrlf
reponse.write <td> <a href = '& stroriginpath & & strfile = & strnulltran (strsubfiles) &'> <img align = absmiddle border = 0 src = 'images/delete.gif'> </a> </td> & vbcrlf
استجابة. write </r>
intflag = intflag+strsubfiles.size
إنهاء إذا
التالي
لكل strsubfolders في objfdir.subfolders
إذا intflag = 0 ثم intflag = 1
listfolderfiles strsubfolders ، intfilesize ، intflag