ASP中經常會用到replace，比如在查找時，要求高度顯示被查找的字符，怎么使用replace不區分大小寫替換字符？

在網上查詢了幾個相關函數都不能正常運行，以下提供一個ASP正則表達式來實現replace不區分大小寫替換字符，保留原來大小寫狀態，只是高亮進行顯示：

函數如下：

Function SWhighstr(Str,keyword) '注釋：str為需要搜索的字符串，keyword：搜索的關鍵詞
Dim RegObj
Set RegObj= New RegExp
With RegObj
 .Global = True
 .IgnoreCase = True
 .Pattern="([.\n]*)("&Keyword&")([.\n]*)" 
 SWhighstr=.Replace(Str,"$1<font color='red'>$2</font>$3")
End With
Set RegObj=Nothing
End Function

在網站程序中調用時使用：SWhighstr(str,keyword)

程序使用效果案例：http://www.ygzc.net.cn/newslist.asp 不分大小寫搜索，查看效果

如在使用過程中有問題，歡迎共同交流學習！

Tags：ASP，正則表達式，程序