CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章asp 关键词高亮显示(不区分大小写)由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.

在这种配置下我们要实现关键词不区分大小写搜索并高亮显示要借助ASP的正则处理了，请看下面代码:

复制代码代码如下

<%  Function Takeout(patrn,string1,colors)  '提取搜索关键字匹配文字  Dim regEx, Match, Matches, tt ' 建立变量。  Set regEx = New RegExp ' 建立正则表达式。  regEx.Pattern = patrn ' 设置模式。  regEx.IgnoreCase = True ' 设置是否区分大小写。  regEx.Global = True ' 设置全局可用性。  Set Matches = regEx.Execute(string1) ' 执行搜索。  For Each Match in Matches ' 遍历 Matches 集合。  RetStr = RetStr & Match.Value & " "  Next  RetStr = trim(RetStr)  if instr(RetStr," ")>0 then  for tt = 0 to ubound(split(RetStr," "))  string1 = replace(string1,split(RetStr," ")(tt),"<font color="""&colors&""">"&split(RetStr," ")(tt)&"</font>")  next  else  string1 = replace(string1,RetStr,"<font color="""&colors&""">"&RetStr&"</font>")  end if  Takeout = string1  End Function  response.write Takeout("jOeKOe", "Joekoe乔客双语版","red")  Function Highlight(strContent,keyword) '标记高亮关键字  Dim RegEx  Set RegEx=new RegExp  RegEx.IgnoreCase =True '不区分大小写  RegEx.Global=True  Dim ArrayKeyword,i  ArrayKeyword = Split(keyword," ")'用空格隔开的多关键字  For i=0 To Ubound(ArrayKeyword)  RegEx.Pattern="("&ArrayKeyword(i)&")"  strContent=RegEx.Replace(strContent,"<font color=red>$1</font>" )  Next  Set RegEx=Nothing  Highlight=strContent  End Function  response.write Highlight("Joekoe乔客双语版","jOeKOe")  %>  。

最后此篇关于asp 关键词高亮显示(不区分大小写)的文章就讲到这里了,如果你想了解更多关于asp 关键词高亮显示(不区分大小写)的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。