<%
	Function my_replace(ContentStr,reg,new_str)

  Dim ClsTempLoseStr,regEx
  ClsTempLoseStr = Cstr(ContentStr)
  Set regEx = New RegExp
  regEx.Pattern = reg
  regEx.IgnoreCase = True '是否忽略大小写
  regEx.Global = True
  ClsTempLoseStr = regEx.Replace(ClsTempLoseStr,new_str)
  my_replace = ClsTempLoseStr
  Set regEx = Nothing
 End Function
 Dim x,y
 x="{My:Google}{My:Baidu_001}"
 y=my_replace(x,"{My:([\s\S]*?)}",testr("$1"))
 response.Write(y)
 function testr(str)
  testr="test:"&str
 end function 
%>
