ASP中让Replace替换不区分大小写的方法(2)

'//函数：字符串替换
 '//参数：正则表达式,被替换字符串,替换字符串
 Public Function ReplaceTest(patrn, mStr, replStr)
  Dim regEx
  Set regEx = New RegExp
  regEx.Pattern = patrn
  regEx.IgnoreCase = True  
  regEx.Global = True
  ReplaceTest = regEx.Replace(mStr, replStr)
  Set regEx = Nothing
 End Function