主题：asp中replace不区分大小写(高亮显示关键字)

asp搜索时经常会用到将关键字高亮显示,实现函数如下：

<%
Function Highlight(strContent,keyword)  '标记高亮关键字
    Dim RegEx 
    Set RegEx=new RegExp 
    RegEx.IgnoreCase =True  '不区分大小写
    RegEx.Global=True 
    Dim ArrayKeyword,i
    ArrayKeyword = Split(keyword," ") '用空格隔开的多关键字
    For i=0 To Ubound(ArrayKeyword)
        RegEx.Pattern="("&ArrayKeyword(i)&")"
        strContent=RegEx.Replace(strContent,"<font color=red>$1</font>" )       ' 在这如只是实现不分大小写替换,可将颜色去掉
    Next
    Set RegEx=Nothing 
    Highlight=strContent 
End Function
response.write Highlight("搜索列表关键字高亮","搜索 replace")
%>