asp搜索結果中關鍵詞高亮顯示方法

在ASP做的站內搜索中經常遇到這種效果，但要實現智能搜索這類就比較累一點，其實任何程序都差不多，主要還是看數據庫的處理能力，一般小網站ASP經常跟Access數據庫搭配
在這種配置下我們要實現關鍵詞不區分大小寫搜索並高亮顯示要借助ASP的正則處理了，請看下面代碼：
代碼如下: vIEw source print? 01 <% 02 Function Takeout(patrn,string1,colors) 03 '提取搜索關鍵字匹配文字 04 Dim regEx, Match, Matches, tt ' 建立變量。 05 Set regEx = New RegExp ' 建立正則表達式。 06 regEx.Pattern = patrn ' 設置模式。 07 regEx.IgnoreCase = True ' 設置是否區分大小寫。 08 regEx.Global = True ' 設置全局可用性。 09 Set Matches = regEx.Execute(string1) ' 執行搜索。 10 For Each Match in Matches ' 遍歷 Matches 集合。 11 RetStr = RetStr & Match.Value & " " 12 Next 13 RetStr = trim(RetStr) 14 if instr(RetStr," ")>0 then 15 for tt = 0 to ubound(split(RetStr," ")) 16 string1 = replace(string1,split(RetStr," ")(tt),"<font color="""&colors&""">"&split(RetStr," ")(tt)&"</font>") 17 next 18 else 19 string1 = replace(string1,RetStr,"<font color="""&colors&""">"&RetStr&"</font>") 20 end if 21 Takeout = string1 22 End Function 23 response.write Takeout("www.ASPbc.com", "ASP編程網","red") 24 Function Highlight(strContent,keyWord) '標記高亮關鍵字 25 Dim RegEx 26 Set RegEx=new RegExp 27 RegEx.IgnoreCase =True '不區分大小寫 28 RegEx.Global=True 29 Dim ArrayKeyWord,i 30 ArrayKeyword = Split(keyWord," ")'用空格隔開的多關鍵字 31 For i=0 To Ubound(ArrayKeyWord) 32 RegEx.Pattern="("&ArrayKeyWord(i)&")" 33 strContent=RegEx.Replace(strContent,"<font color=red>$1</font>" ) 34 Next 35 Set RegEx=Nothing 36 Highlight=strContent 37 End Function 38 response.write Highlight("ASP編程網","www.ASPbc.com") 39 %>