Salinan kode adalah sebagai berikut:
<%@bahasa = vbscriptCodepage = 936%>
<%
'File Batch Pencarian Otomatis Ganti Sisipkan Ver2.0
'Penulisan Feiyun, Akun CSDN: JSpadmin, QQ: 33323489
'Situs web pribadi http://www.pifoo.com Situs Cina, selamat datang di Exchange Links. Situs ini menyediakan aplikasi dan pendaftaran blog gratis.
'Anda dapat menggunakan atau memodifikasi kode ini, tetapi harap simpan informasi atau tautan hak cipta, terima kasih telah menggunakannya!
'Jika Anda memiliki pertanyaan atau saran, silakan tinggalkan saya pesan http://www.pifoo.com/guestbook/
%>
<%
Bakpath = permintaan ("Bakpath")
delbak = server.mappath (bakpath)
setFSO = createObject ("Scripting.FilesystemObject")
response.write "Hasil operasi penghapusan adalah sebagai berikut:" & "<br>"
iterate (delbak)
fungsinya (jalur)
Dimfolder, folder, file, file
setFolder = fso.getFolder (path)
setFiles = folder.files
foreachfileInfiles
iffso.getextExtensionName (file.name) = "bak" lalu
response.writefile.name & "telah berhasil dihapus! <br>" & file.path & "<br> <br>"
file.deletetrue
endif
Berikutnya
setFolders = folder.subfolders
foreachfinFolders
iterate.path
Berikutnya
fungsi endfungsi
setfso = tidak ada
%>
<Ahref = "index.asp"> kembali ke beranda </a>