有没有不区分大小写的替换～解决方法

有没有不区分大小写的替换～～
<%
strText   =   "zhongguoren,Zhongguorenren "
OutstrText   =   Replace(strText, "zhongguo ", "ZHONGGUO ")
response.write   OutstrText
%>
现在只能把zhongguo替换为ZHONGGUO，如何实现不管zhongguo字符串中不管那个字母是大写都可以替换为ZHONGGUO

------解决方案--------------------
<% strText = "zhongguoren,Zhongguorenren " OutstrText = Replace(strText, "zhongguo ", "ZHONGGUO ",1,len(strText),1) response.write OutstrText %>
------解决方案--------------------
Response.Write Join(Split(strText, "zhongguo ", -1, 1), "ZHONGGUO ")
曾分^o^