< %@ Bahasa = VBScript %>
<%Server.scriptTimeout = 50000%>
<Html>
<head>
<Meta name = generator konten = Microsoft Visual Studio 6.0>
<meta http-equiv = konten-tipe konten = teks/html; Charset = GB2312>
</head>
<body>
<%
fungsi judgepararegular (inti)
Jika Intid <> dan Isnumeric (Intid) maka
Judgepararegular = inti
kalau tidak
Respons.write 输入错误！
Respons.end
akhiri jika
fungsi akhir
intfileSize = judgepararegular (request.querystring (intfileSize))
strpath = request.querystring (strpath)
if instr (strpath, :) = 0 lalu strpath = server.mappath (strpath)
%>
<%
Fungsi dihapus (jalur)
pada kesalahan resume berikutnya
Set FS = Server.CreateObject (Scripting.FilesystemObject)
Jika fs.fileexists (jalur) maka
jalur fs.deleteFile, benar
Response.write 成功删除 & Path
kalau tidak
Response.write 文件不存在!
akhiri jika
Atur fs = tidak ada
Jika err.number <> 0 lalu respons.write err.number
fungsi akhir
strfile = permintaan (strfile)
Jika permintaan (strfile) <> lalu
Hapus Strfile
akhiri jika
%>
<%
function listFolderFiles (strpath, intfileSize, intflag)
stroriginpath = request.serverVariable (script_name) &? strpath = & request.queryString (strpath) & & intfileSize = & request.queryString (intfileSize)
Jika strpath <> lalu
Jika intflag = 0 lalu
intflag = intflag+1
akhiri jika
Set OBJFS = Server.CreateObject (Scripting.FilesystemObject)
Setel objfdir = objfs.getfolder (strpath)
strparentpath = objfs.getparentfoldername (strpath)
untuk setiap strsubfiles di objfdir.files
Jika strsubfiles.size /(1024^2)> = intfileze maka
Response.write <tr> & vbcrlf
Response.write <td> & ganti (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 (strsubfile) &'> <img align = absmiddle border = 0 src = 'gambar/delete.gif'> </a> </td> & vbcrlf
Response.write </tr> & vbcrlf
intflag = intflag+strsubfiles.size
akhiri jika
Berikutnya
untuk setiap strsubfolder di objfdir.subfolder
Jika intflag = 0 maka intflag = 1
ListFolderFiles Strsubfolders, IntFileSize, IntFlag