代碼如下: 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(&
