< %@ language = vbscript %>
<%Server.ScriptTimeOut = 50000%>
<html>
<head>
<meta name = generator content = Microsoft Visual Studio 6.0>
<meta http-equiv = เนื้อหาประเภทเนื้อหา = text/html; charset = gb2312>
</head>
<body>
-
ฟังก์ชั่น JudgePararegular (intid)
ถ้า intid <> และ isnumeric (intid) แล้ว
JudgeParareGular = intid
อื่น
Response.write 输入错误！
Response.end
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
Intfilesize = JudgeParareGular (request.QueryString (intfilesize))
strpath = request.querystring (strpath)
ถ้า instr (strpath, :) = 0 ดังนั้น strpath = server.mappath (strpath)
-
-
ฟังก์ชั่น deleetefiles (เส้นทาง)
เมื่อเกิดข้อผิดพลาดต่อไป
ตั้งค่า fs = server.createObject (scripting.filesystemobject)
ถ้า fs.fileexists (เส้นทาง) จากนั้น
เส้นทาง fs.deletefile, true
Response.write 成功删除 & Path
อื่น
Response.write 文件不存在!
สิ้นสุดถ้า
ตั้งค่า fs = ไม่มีอะไร
ถ้า err.number <> 0 จากนั้น response.write err.number
ฟังก์ชันสิ้นสุด
strfile = คำขอ (strfile)
หากคำขอ (strfile) <> จากนั้น
deleetefiles strfile
สิ้นสุดถ้า
-
-
ฟังก์ชั่น ListFolderFiles (strpath, intfilesize, intflag)
stroriginpath = request.serverVariables (script_name) &? strpath = & request.querystring (strpath) & & intfilesize = & request.querystring (intfilesize)
ถ้า strpath <> แล้ว
ถ้า intflag = 0 แล้ว
intflag = intflag+1
สิ้นสุดถ้า
ตั้งค่า objfs = server.createObject (scripting.filesystemobject)
ตั้งค่า objfdir = objfs.getFolder (strpath)
starentpath = objfs.getparentfoldername (strpath)
สำหรับแต่ละ strsubfiles ใน objfdir.files
ถ้า strsubfiles.size /(1024^2)> = intfilesize แล้ว
response.write <tr> & vbcrlf
Response.write <td> & แทนที่ (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 = 'images/delete.gif'> </a> </td> & vbcrlf
Response.write </tr> & vbcrlf
intflag = intflag+strsubfiles.size
สิ้นสุดถ้า
ต่อไป
สำหรับแต่ละ strsubfolders ใน objfdir.subfolders
ถ้า intflag = 0 แล้ว intflag = 1
listfolderfiles strsubfolders, intfilesize, intflag