关于一个ASP替换函数,参数,来看看
function LinkKeyword(bIgnoreCase, MainStr, sNeedReplace, sReplaceWith)dim sResultDim objRegExpSet objRegExp = New RegexpobjRegExp.IgnoreCase = bIgnoreCaseobjRegExp.Global = TrueobjRegExp.Pattern = "\b" & sNeedReplace & "\b(?![\w ]*</a>|>)"sResult = objRegExp.Replace(MainStr, sReplaceWith)Set objRegExp = NothingLinkKeyword = sResultend function