<%@Language = vbscript codepage = 936%>
<%
redup st
st = timer ()
'****************************************************************
'*************** Cari Kelas File Hard Disk Cari SearchFile ************
'************ Metode panggilan: ************
'************ Set NewsSearch = new SearchFile' Deklarasi ************
'************ Newsearch.folder = F:+E:' Sumber pencarian yang masuk *************
'************ Newsearch.keyword = Majelis' Kata kunci ***************
'************ Newsearch.search' Mulai pencarian ************
'************ Set NewsSearch = Nothing' End *************
'************ Hak Cipta (C) 完望完月完月 **************
'*************** http://btyz.51web.cn/ ************
'****************************************************************
Class SearchFile
folder redup 'melewati jalur absolut, multipath menggunakan + tanda untuk terhubung, tidak ada spasi
kata kunci kata kunci 'lewat'
redup objfso 'mendefinisikan variabel global
redup counter 'mendefinisikan variabel global, jumlah hasil pencarian
'***************** Inisialisasi **********************************
Private Sub Class_initialize
Set ObjFSO = Server.CreateObject (Scripting.FilesystemObject)
Penghitung = 0 'inisialisasi penghitung
Akhir sub
'*********************************************************************
Sub Class_Terminate pribadi
Atur objfso = tidak ada
Akhir sub
'****************** Anggota Publik, Metode Disebut *******************************
Pencarian fungsi
Folder = split (folder,+) 'Konversi ke array
kata kunci = trim (kata kunci) 'lepaskan spasi sebelum dan sesudah
Jika kata kunci = lalu
Response.write (<font color = 'red'> kata kunci tidak dapat kosong </font> <br/>)
fungsi keluar
akhiri jika
'Cukup tentukan apakah karakter ilegal disertakan
flag = instr (kata kunci,/) atau instr (kata kunci,/)
flag = flag atau instr (kata kunci, :)
bendera = bendera atau instr (kata kunci, |)
bendera = bendera atau instr (kata kunci, &)
Jika bendera maka kata kunci tidak dapat berisi //: | & &
Response.write (<font color = 'red'> kata kunci tidak dapat berisi //: | & </font> <br/>)
Fungsi keluar 'jika ini disertakan, keluar
akhiri jika
'Pencarian Multi-Path
redup i
untuk i = 0 ke ubund (folder)
Hubungi getAllFile (folder (i)) 'Call Loop Recursive Function
Berikutnya
Response.write (total <font color = 'red'> & counter & </font> hasil dicari)
Fungsi akhir
'**************************************
Fungsi pribadi getAllFile (folder)
redup objfd, objfs, objff
Atur objfd = objfso.getFolder (folder)
Atur objfs = objfd.subfolder
Atur objff = objfd.files
'Perjalanan melalui subfolder
redup strfdname 'mendeklarasikan nama subfolder
'************ Kunjungi subfolder *******
pada kesalahan resume berikutnya
Untuk setiap onedir di objfs
strfdname = onedir.name
'Folder sistem tidak termasuk dalam traversal
Jika strfdname <> config.msi eqv strfdname <> daur ulang eqv strfdname <> decycler eqv strfdname <> informasi volume sistem lalu