请看代码片断：
<%
function showUBB(content) 'show UBB
str = Server.HTMLEncode(content)
str = Replace(str,vbCrLf,"<br>")
str = Replace(str," "," ")
dim objRegExp
Set objRegExp=new RegExp
objRegExp.IgnoreCase =true
objRegExp.Global=True
.........
.........
objRegExp.Pattern="(\[HTML\])(.+?)(\[\/HTML\])"
str=objRegExp.Replace(str,"<form action="""&siteroot&"/skill/debug.asp"" method=""post"" target=""_blank""><textarea id=""de_code"" name=""de_code"">$2</textarea><input type=""submit"" value=""调试代码""></form>")
showUBB=str
end function
%>
其他的UBB转换就不写了，这个有点特殊，我要把真正的代码显示在文本筐里，可是现在的代码是经过encode的，比如我如何把<br>还原回vbcrlf等等，而不影响其他需要encode的代码？
