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("WenMingdazhou Mingda Electrical Mingda Equipment
Co.mIngda,Ltd ","Mingda")

（出处：ASP精品屋）