教学之友,学习之友。

站长教学网

当前位置: 站长教学网 > 网站编程 > ASP教程 >

ASP输出内容添加关键字突出显示效果函数代码

时间:2012-03-31 00:23来源:未知 作者:ken 点击:

'关键字突出显示 以下示例为红色 根据需要修改。

'str 输出内容
'keyword 需要突显的关键字

Function HighLigth(Str,keyword)
 If keyword="" Then
  HighLigth=Str
  Exit Function
 End IF
 Dim re
 Set re=new RegExp
 re.IgnoreCase =True
 re.Global=True
 re.Pattern="("&keyword&")"
 HighLigth=re.Replace(Str,"<font color=""red"">$1</font>")
End Function

(责任编辑:ken)
TAG标签: asp 函数 代码 关键字
顶一下
(0)
0%
踩一下
(0)
0%
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
注册登录:不允许匿名留言,登录后留言无需输入验证码。
栏目列表
最新内容