【下载文档:  asp标记字符串中指定字符变色不区分大小写.txt 】

---

asp 标记字符串中指定字符变色不区分大小写
普通的替换函数
复制代码 代码如下:public function HighLight(S,F) dim tL,tM,tR,k tL="" tM="" tR=S k=instr(1,tR,F,1) do while k>0 tL=tL & left(tR,k-1) tM=mid(tR,k,len(F)) tL=tL & "" & tM & "" tR=right(tR,Len(tR)-len(F)-k+1) k=instr(1,tR,F,1) loop HighLight=tL & tR end function tS="abcaBcabCaBCabcaBCa" tF="bc" response.Write(tS) response.Write("
") response.Write(HighLight(tS,tF))
正则表达式
复制代码 代码如下:Function HighLight(S,F) Dim regEx Set regEx = New RegExp regEx.IgnoreCase = True regEx.Global = True regEx.Pattern = "(" & F & ")" HighLight = regEx.Replace(S,"$1") End Function Response.write HighLight("abcaBcabCaBCabcaBCa","bc")