Implementasi Kode Menggunakan Program Modifikasi Batch ASP, Terkait FSO
Ini adalah hal kecil yang perlu dilakukan dalam batch modifikasi kode, dan saya akan membaginya dengan Anda.
Jenis file yang dapat diproses saat ini :.asp .inc .htm .html jenis spesifik dapat dimodifikasi dan ditambahkan sendiri.
Fungsi yang diimplementasikan oleh program: Batch memodifikasi file di direktori sumber dan menyimpannya ke direktori tujuan.
Beberapa modifikasi dapat mencapai banyak hal!
Saya tidak akan mengatakan hal lain, kodenya sangat jelas
<%
'// +--------------------------------------------------------------------------- +
'// | Nama Program: Pengubah Kode Batu V1.01 |
'// | Semua hak yang dilindungi oleh batu -batu gunung lainnya, pelanggaran akan dikejar! Harap tunjukkan hak cipta saat mencetak ulang :) |
'// | ------------------------------------------------------------------------- |
'// | Sistem: Win2000; Editor: Editplus; Alat indentasi: tab; Panjang indentasi: 8; Font: Songti (10pt); |
'// | ------------------------------------------------------------------------- |
'// | Pencipta: WYC; Waktu Penciptaan: 2004-03-08; |
'// | Penulis: WYC; Penulis: 2004-03-08; |
'// +--------------------------------------------------------------------------- +
Server.scriptTimeout = 500 'waktu batas waktu skrip
'// +--------------------------------------------------------------------------- +
'// | Batch Modify Functions |
'// | ------------------------------------------------------------------------- |
'// | Atribut: Path_From Sumber File Direktori Path_to Target File Working Directory |
'// | ------------------------------------------------------------------------- |
'// | Nilai Pengembalian: Tidak Ada |
'// | ------------------------------------------------------------------------- |
'// | Aliran Program: ... |
'// | ------------------------------------------------------------------------- |
'// | Penulis: WYC; Waktu Tulis: 2004-03-08; |
'// +--------------------------------------------------------------------------- +
Sub midfile (path_from, path_to)
List_from = Path_From 'Penyimpanan Direktori Kerja Sumber Saat Ini
list_to = path_to 'penyimpanan direktori kerja target saat ini
Atur fso = createObject (scripting.filesystemObject)
Setel lipatan = fso.getFolder (list_from) 'Dapatkan objek folder
Setel fc = fold.files 'Dapatkan set catatan file
Atur mm = fold.subfolders 'Dapatkan set rekaman direktori
Untuk setiap f2 dalam mm
Set ObjFile = Server.CreateObject (Scripting.FilesystemObject)
objfile.createFolder (path_to & / & f2.name) 'Create Directory
midfile path_from & / & f2.name, path_to & / & f2.name 'panggilan rekursif
response.write path_to & / & f2.name & finish! <br>
Berikutnya
Untuk setiap F1 di FC
file_from = list_from & / & f1.name 'Buat alamat file (sumber)
file_to = list_to & / & f1.name 'Buat alamat file (ke)
fileExt = lcase (kanan (f1.name, 4)) 'Dapatkan jenis file
Jika fileExt = .asp atau fileExt = .inc atau fileext = .htm atau fileExt = html maka 'jenis spesifik dapat dimodifikasi dan ditambahkan sendiri