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 & "<span style='color:red'>" & tM & "</span>"

　　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("<br/>")

　　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,"<span style='color:red'>$1</span>")

　　End Function

　　Response.write HighLight("abcaBcabCaBCabcaBCa","bc")