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
相关问答：
HTML code:
dim jf
set conn=server.createobject("adodb.connection")
connstr="Driver={Sql Server};Server="&Sqlip&";Database="&Sqldb&";Uid="& ......
在一个发表文章的页面，如果中途关闭页面，这提示是否放弃编辑，
如果点击放弃，则转向填写放弃原因的界面，
如果点不放弃，这停留在原页面，
如果是点击页面的超级链接，则触发事件失效
如何编写代 ......
我想用asp写个页面以前没有接触过，我看网上说asp的运行环境只能是windows，还必须要装IIS。
请教各位高手，asp还有其他的运行环境吗?
差不多就这些了，就是IIS一定要装好
还有要是用VS2005的话好像可以直接� ......
<%
Sql="select top 8 * from NewsData where d_classid in (select classid from NewsClass where ParentID=16)"
Rs.Open Sql, conn, 1,1
Do Until Rs.Eof
......
www.trueart.com
不错。
jf
很好啊！就是图片浏览速度有一点慢，真佩服！！
大家能说说这个网站的优点和缺点的 详细点的 小弟的BOSS貌似想做类似的 但是让我提点意见 我晕哦 完全茫然的说...
自己顶... ......
