如何实现非大小写的替换？

Function ReplaceNoIgnoreCase(str,replStr)

If len(replStr)<1 or str="" Then

ReplaceTest=str

Exit function

End If

Dim LoopN

LoopN=1

Dim TmpStr,inStrN,LenreplStr,Ustr,UreplStr

LenreplStr = Len(replStr)

TmpStr = str

Ustr = Ucase(str)

UreplStr = Ucase(replStr)

str=""

inStrN = inStr(Ustr,UreplStr)

Do While inStrN>0 and TmpStr<>""

LoopN = LoopN+1

If LoopN>10 Then Exit Function

str=str & Left(TmpStr,inStrN-1)

TmpStr = Mid(TmpStr,inStrN)

UStr = Mid(UStr,inStrN)

str=str & "<font color=ff0000>" & Left(TmpStr,LenreplStr) & "</font>"

TmpStr = Mid(TmpStr,LenreplStr+1)

UStr = Mid(UStr,LenreplStr+1)

inStrN = inStr(Ustr,UreplStr)

If inStrN<1 Then str=str&TmpStr

Loop

ReplaceTest = str

End Function

Response.Write "<p>result:"&ReplaceNoIgnoreCase("Flying Happy in the Sun ")