替換字串中關鍵字的ASP函數

    寫時是針對英文的,也沒測試輸入中文是啥情況.不過中文的情況應該比處理起英文來要簡單一點才對.
    說明如下:
       1. 被<>包含的關鍵字不會被替換
       2. 在<a </a>內部的關鍵字不會被替換.
    此外,還可能有些BUG.LinkKeyWord
 1' link key word
 2    function LinkKeyword(bIgnoreCase, MainStr, sNeedReplace, sReplaceWith)
 3        dim sResult
 4       
 5        Dim objRegExp
 6        Set objRegExp = New Regexp
 7        objRegExp.IgnoreCase = bIgnoreCase
 8        objRegExp.Global = True
 9        objRegExp.Pattern = "\b" & sNeedReplace & "\b(?![\w ]*</a>|>)"
10        sResult = objRegExp.Replace(MainStr, sReplaceWith)
11        Set objRegExp = Nothing
12       
13        LinkKeyword = sResult
14    end function