ASP自定义标签如何实现正则替换 ？

比如一个新闻的内容为
##################################
AAAAAA的的的  {ss:company}
##################################

正常 <%=news("content")%> 输出的内容为

AAAAAA的的的  {ss:company} 

没有解析{ss:company}

{ss:company}就是我自定义的标签，我的系统 <%=configrs("company")%> 就可以输出公司名
我想让系统输出的时候遇到  {ss:  开头和  }  结尾的时候自动解析这个标签

按 <%=configrs("标签名")%>输出值

说得有些乱，但是大家一看应该能明白意思，请问怎么实现 ？

---

测试的程序：

VBScript code:
Set rs=server.CreateObject("adodb.recordset")
sql = "select top 10 * from table1 order by id desc"
rs.open sql,conn,1,1
If not Rs.BOF Then
do while not rs.eof
str="AAAAAA的的的 {ss:aaaa}"
Set re = New RegExp
re.Global = True
re.Pattern = "(.*?)\{ss:([^}]+)\}(.*?)"
a=re.Replace(str, "$1")
a=a&eval(re.Replace(str, "rs(""$2"")"))
a=a&re.Replace(str, "$3")
Response.Write a
response.Write "<br>"
rs.movenext
loop
end if

---

楼上正确。

---

不对哦  我的意思是

比如我存储在数据库的内容是

……………… {ss