어떻게 비 대소 문자 의 교 체 를 실현 합 니까?

어떻게 비 대소 문자 의 교 체 를 실현 합 니까?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 & "" & Left(TmpStr,LenreplStr) & ""            TmpStr = Mid(TmpStr,LenreplStr+1)            UStr = Mid(UStr,LenreplStr+1)            inStrN = inStr(Ustr,UreplStr)            If inStrN<1 Then str=str&TmpStr      Loop      ReplaceTest = strEnd FunctionResponse.Write "

result:"&ReplaceNoIgnoreCase("Flying Happy in the Sun ")