ubbcode中，如何才能实现点了相应的按扭后立刻显示效果？

用脚本实现UBB替换然后插入网页中相当于预览function ubbcode(strContent)
dim objRegExp
Set objRegExp=new RegExp
    objRegExp.IgnoreCase =true
    objRegExp.Global=True
    '换行
objRegExp.pattern="(\[br\])"
strContent=objRegExp.replace(strContent,"<br/>")
'下划线
objRegExp.Pattern="(\[u\])(.+?)(\[\/u\])"
    strContent=objRegExp.Replace(strContent,"<u>$2</u>")
'斜体
    objRegExp.Pattern="(\[I\])(.+?)(\[\/I\])"
    strContent=objRegExp.Replace(strContent,"<i>$2</i>")
    '加粗
    objRegExp.Pattern="(\[B\])(.+?)(\[\/B\])"
    strContent=objRegExp.Replace(strContent,"<b>$2</b>")
'文字字体
objRegExp.pattern="(\[face=(.[^\[]*)\])(.[^\[]*)(\[\/face\])"
strContent=objRegExp.replace(strContent,"<font face=""$2"">$3</font>")
    '居中
objRegExp.pattern="(\[align=(.[^\[]*)\])(.[^\[]*)(\[\/align\])"
strContent=objRegExp.replace(strContent,"<div align=""$2"">$3</div>")
    '上传图片
objRegExp.Pattern="\[UPLOAD=(gif|jpg|jpeg|bmp|png)\](.[^\[]*)(gif|jpg|jpeg|bmp|png)\[\/UPLOAD\]"
strContent= objRegExp.Replace(strContent,"<br/>此主题相关图片如下：<br/>&nbsp;<A HREF=""$2$1"" TARGET=_blank><IMG SRC=""$2$1"" border=0 alt=按此在新窗口浏览图片 onload=""javascript:if(this.width>screen.width-333)this.width=screen.width-333""></A>")
    '上传文件
    objRegExp.Pattern="\[UPLOAD=(.[^\[]*)\](.[^\[]*)\[\/UPLOAD\]"
    strContent= objRegExp.Replace(strContent,"<br/><a href=""$2"">点击浏览该文件</a>") '超级链接
objRegExp.pattern="(\[URL=(.[^\[]*)\])(.[^\[]*)(\[\/URL\])"
strContent=objRegExp.replace(strContent,"<a href=""$2"" target='_blank'><font color='blue'>$3</font></a>")
objRegExp.Pattern="(\[URL\])(\S+?)(\[\/URL\])"
    strContent= objRegExp.Replace(strContent,"<A HREF=""http://$2"" TARGET=_blank><font color='blue'>$2</font></A>")
'图片
'intTmpID=gRnd()
'objRegExp.pattern="(\[IMG\])(.[^\[]*)(\[\/IMG\])"
'strContent=objRegExp.replace(strContent,"<a href=""$2"" target='_blank'><img src=""$2"" alt='点击查看' border='0' vspace=4 onLoad=""javascript:if(this.clientWidth>screen.width-300) this.width=screen.width-300""></a>")
'提示
objRegExp.pattern="(\[TIP=(.[^\[]*)\])(.[^\[]*)(\[\/TIP\])"
strContent=objRegExp.replace(strContent,"<a href=# onmouseover=javascript:showtip(this,'""$2""') onmouseout='javascript:hidetip()'><font color='blue'>""$3""</font></a>")
'表情
'for i=1 to 27
'objRegExp.pattern="(\[em"&i&"\])"
'strContent=objRegExp.replace(strContent,"<img src="&GenSetting(26)&"/em"&i&".gif hspace='3'>")
'next

objRegExp.pattern="(\[em(.[^\[]*)\])"
strContent=objRegExp.replace(strContent,"<img src="&GenSetting(26)&"/em$2.gif hspace='3'>")

'电子邮件
objRegExp.pattern="(\[email=(.[^\[]*)\])(.[^\[]*)(\[\/email\])"
strContent=objRegExp.replace(strContent,"<a href=mailto:""$2"" target='_blank'><font color='green'>$3</font></a>")
objRegExp.Pattern="(\[email\])(\S+?)(\[\/email\])"
    strContent= objRegExp.Replace(strContent,"<A HREF=""mailto:$2"" TARGET=_blank><font color='green'>$2</font></A>")
'文字颜色
objRegExp.pattern="(\[color=(.[^\[]*)\])(.[^\[]*)(\[\/color\])"
strContent=objRegExp.replace(strContent,"<font color=""$2"">$3</font>")
'文字发光效果
objRegExp.pattern="\[glow=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.[^\[]*)\[\/glow\]"
strContent=objRegExp.replace(strContent,"<table width=""$1"" style=""filter:glow(color=$2, strength=$3)"">$4</table>")
'彩虹字
objRegExp.pattern="(\[rainbow\])(.[^\[]*)(\[\/rainbow\])"
strContent=objRegExp.replace(strContent,"<script language='javascript'>{rainbow(""<r>$2</r>"");}</script>")
'字符滚动
objRegExp.pattern="(\[fly\])(.[^\[]*)(\[\/fly\])"
strContent=objRegExp.replace(strContent,"<marquee behavior=""alternate"" scrollamount='6' onMouseOver='stop()' onMouseOut='start()'>$2</marquee>") set objRegExp=Nothing
    ubbCode=strContent
end function