objRegExp.IgnoreCase=True
objRegExp.Global=True
ShowBold=objRegExp.Replace(theField,"<font color=red><b>$1</b></font>")
end function
%>



圖中橙色背景的部分即是頁(yè)面中要突出顯示的效果。

5、然后在要突出顯示的地方修改以下代碼：
如將原來(lái)的<%=(search.Fields.Item("n_contents").value)%>修改為：
<%=ShowBold(search.Fields.Item("n_contents").value)%>



OK，到這里就完成了。