<%
function replaceCode(strContent)
on error resume next
dim objRegExp
Set objRegExp=new RegExp
objRegExp.IgnoreCase =true
objRegExp.Global=True
         objRegExp.Pattern="(\<mytag\>)(.[^\[]*)(\<\/mytag\>)"
strContent= objRegExp.Replace(strContent,"***")
set objRegExp=Nothing
replaceCode=strContent
end functionStr = "<mytag>csdn里的ggjj真好</mytag>"
Response.write replaceCode(Str)
%>