ubb留言代码效果自动预览,是怎么加入的

http://bbs.dedecms.com/65413.html
帖子的具体内容，具体是怎么加入模板中的
我用新云4.0系统

用Replace 进行替换
<%
dim content

content=replace(content,"<","<") '替换<

content=replace(content,">",">") '替换>

content=replace(content,CHR(39),"'") '替换单引号

content=replace(content,CHR(34),""") '替换双引号

content=replace(replace(content,chr(13),""),chr(10),"<br>") '替换换行符

'

content=Replace(content,"[img]","<img src=") '替换 [img] 为 特定的html代码,就是把[img]作为一个UBB代码
content=Replace(content,"[/img]","") '同上

content=Replace(content,"[red]","<font color=red>") '替换 [red] 为 特定的html代码,就是把[red]作为一个UBB代码
content=Replace(content,"[/red]","</font>")
%>

剩下的自己发挥啦!!!

然后再凋用!!!