'突出显示匹配字段
在搜索时,有时候我们需要突出显示匹配的字符,这是一个用正则表达式实现的加粗和加红色显示匹配的字符的程序。
<%
function ShowBold(theField)
Set objRegExp= New RegExp
objRegExp.Pattern="(" & key & ")"
objRegExp.IgnoreCase=True
objRegExp.Global=True
ShowBold=objRegExp.Replace(theField,"<font color='#FF0000'>$1</font>")
end function
%>