求一正则替换

我想实现以下功能：
将"{{{}}}之外的文本替换掉"，最后结果为：{{{中国}}}{{{上海}}}{{{北京}}}
请问正则我该怎么写？？？？
<%
Dim strTemp
strTemp = "<P>编者注：{{{中国}}}本文为{{{上海}}}方面{{{北京}}}</P>"

strTemp = ReplaceATag(strTemp)
response.write(strTemp)

Function ReplaceATag(ConStr)
Dim tmpReStr,regEx
tmpReStr = Cstr(ConStr)
Set regEx = New RegExp
regEx.Pattern = "[^{{{}}}]"
regEx.IgnoreCase = True
regEx.Global = True
tmpReStr = regEx.Replace(tmpReStr,"")
ReplaceATag = tmpReStr
Set regEx = Nothing
End Function
%>