原创著作,产权保护 政府、投票、评选、公安、学校、问卷、视频会议专注发展中小企事业 系统报价 | 支付帐号 | 授权查证
    计算机著作版权登记号:2014SR032463 手机:+86-1373066-4304 | QQ:1213920482 欢迎选择智睿软件系统 欢迎选择智睿软件系统
智睿软件系统
ASP搜索关键词自动加色高亮
来源:智睿 浏览:524 次 发布时间:2020-03-10 11:23:13
分享一个自己用正则表达式写的关键词自动加色高亮函数。
Function BoldWord(strContent,word)
If word="" Then
BoldWord = strContent
Exit Function
End IF
dim objRegExp
Set objRegExp=new RegExp
objRegExp.IgnoreCase =true
objRegExp.Global=True
  
objRegExp.Pattern="(" & word & ")"
strContent=objRegExp.Replace(strContent,"<font color=""#FF0000""><b>$1</b></font>" )  
  
Set objRegExp=Nothing
BoldWord=strContent
End Function
函数参数说明
strContent:字符串文字
word:要高亮显示的关键词
【刷新页面】【加入收藏】【打印此文】 【关闭窗口】
上一篇:asp 横排显示数据 下一篇:智睿中小学校网站系统 V 10.8.0 学校网站系统 2020小学网站管理系统