Berikut ini adalah kode sumber fungsinya:
<%
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, versi bilingual Joekoe, 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(keyword, ) '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)
%>
-