Encontrei esse problema hoje. Simplesmente usar a função de substituição não funcionará. Ela alterará a caixa da string original. Encontre o código relevante na Internet e faça backup dele.
Função de substituição comum
Copie o código do código da seguinte forma:
função pública Destaque(S,F)
dim tL,tM,tR,k
tL=""
tM=""
tR=S
k=instr(1,tR,F,1)
faça enquanto k>0
tL=tL & esquerda(tR,k-1)
tM=meio(tR,k,len(F))
tL=tL & "<span>" & tM & "</span>"
tR=direita(tR,Len(tR)-len(F)-k+1)
k=instr(1,tR,F,1)
laço
Destaque=tL & tR
função final
tS="abcaBcabCaBCabcaBCa"
tF="bc"
resposta.Write(tS)
resposta.Write("<br/>")
resposta.Write(Destaque(tS,tF))
expressão regular
Copie o código do código da seguinte forma:
Função Destaque(S,F)
Escurecer regEx
Definir regEx = Novo RegExp
regEx.IgnoreCase = Verdadeiro
regEx.Global = Verdadeiro
regEx.Pattern = "(" & F & ")"
Destaque = regEx.Replace(S,"<span>$1</span>")
Função final
Response.write Destaque("abcaBcabCaBCabcaBCa","bc")