The specified character discoloration in an ASP tag string is not case-sensitive _ application tips

Normal substitution function

Copy Code code as follows:

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))

Regular expressions

Copy Code code as follows:

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")