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

[simon803]

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

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

AAAAAA的的的 {ss:company}

没有解析{ss:company}

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

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

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

[一把编程的菜刀]

[Quote=引用 4 楼 simon803 的回复:]
不对哦  我的意思是

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

……………… {ss:company/}  ……………………………………

我想在输出的时候遇到类似  {ss:company/} 的标签就转义成 <%=configrs("company")%> 输出

company 是我随便定义的一个标签
[/Quote]
为什么这么死板呢？都告诉你思路如此了
正则是没错的，至于你怎么变化就看你自己啊

[一把编程的菜刀]

测试的程序：

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

[Dogfish]

楼上正确。

[simon803]

不对哦 我的意思是

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

……………… {ss:company/} ……………………………………

我想在输出的时候遇到类似 {ss:company/} 的标签就转义成 <%=configrs("company")%> 输出

company 是我随便定义的一个标签

[zhangjiewoshiwo]

这个你可以在ASP后台代码中取到数据库中值的时候自动创建HTML标签，如：
你从数据库中取到了……………… {ss:company/} ……………………………………
这段，然后自动创建前台页面上的html标签并将{ss:company/}转义成 <%=configrs("company")%> 输出

[wcwtitxu]

<%
Function ReplaceMyTag(ByVal content)
	With New RegExp
		.Pattern = "\{ss\:([^}]+)\}"
		.Global  = True
		Dim m
		For Each m In .Execute(content)
			content = Replace(content, m.Value, configrs(m.SubMatches(0)))
		Next
	End With
	ReplaceMyTag = content
End Function
%>


...

<%=ReplaceMyTag(news("content").Value)%>

[一把编程的菜刀]

给你一个思路
configrs("company")="我的公司"
str="AAAAAA的的的 {ss:aaaa}"
Set re = New RegExp
re.Global = True
re.Pattern = "\{ss:([^}]+)\}"
str=re.Replace(str,""&eval("configrs(""$1"")")&"")
response.Write str&"<br>"