Sangat mudah untuk menggunakan ASP untuk mencari, tetapi menerapkan pencarian cerdas sedikit lebih melelahkan. Faktanya, program apa pun serupa. Hal ini terutama bergantung pada kekuatan pemrosesan database. Umumnya, ASP untuk situs web kecil sering dipasangkan database ACCESS. Di bawah konfigurasi ini, kita harus menerapkan Untuk mencari dan menyorot kata kunci dengan cara yang tidak peka huruf besar-kecil, Anda perlu menggunakan pemrosesan reguler ASP.
Copy kode kodenya sebagai berikut:
<%
Fungsi Takeout (pola, string1, warna)
'Ekstrak teks pencocokan kata kunci pencarian
Redupkan regEx, Cocokkan, Cocok, tt 'Buat variabel.
Setel regEx = RegExp Baru ' Buat ekspresi reguler.
regEx.Pattern = pola ' Tetapkan pola.
regEx.IgnoreCase = True ' Setel apakah peka huruf besar-kecil.
regEx.Global = Benar ' Tetapkan ketersediaan global.
Setel Kecocokan = regEx.Execute(string1) 'Jalankan pencarian.
Untuk Setiap Pertandingan di Koleksi Traverse the Matches.
RetStr = RetStr & Cocokkan.Nilai &
Berikutnya
RetStr = potong(RetStr)
jika instr(RetStr, )>0 maka
untuk tt = 0 hingga ubound(split(RetStr, ))
string1 = ganti(string1,split(RetStr, )(tt),<font color=&colors&>&split(RetStr, )(tt)&</font>)
Berikutnya
kalau tidak
string1 = ganti(string1,RetStr,<font color=&colors&>&RetStr&</font>)
berakhir jika
Bawa pulang = string1
Fungsi Akhir
respon.write Takeout(jOeKOe, Joekoe Joeko versi bilingual, merah)
Sorotan Fungsi (strContent, kata kunci) 'Tandai kata kunci yang disorot
Redupkan RegEx
Tetapkan RegEx=RegExp baru
RegEx.IgnoreCase =Benar 'Tidak peka huruf besar-kecil
RegEx.Global=Benar
Redupkan Kata Kunci Array,i
ArrayKeyword = Split(kata kunci, )'Beberapa kata kunci dipisahkan dengan spasi
Untuk i=0 Ke Ubound(ArrayKeyword)
RegEx.Pattern=(&ArrayKeyword(i)&)
strContent=RegEx.Replace(strContent,<font color=red>$1</font> )
Berikutnya
Setel RegEx=Tidak Ada
Sorotan=strKonten
Fungsi Akhir
respon.write Sorotan (versi bilingual Joekoe, jOeKOe)
%>