<%

functionth(str)

str=replace(str,"妈的","MD")

str=replace(str,"靠","KAO")

th=str

endfunction

functionencode(str)

str=replace(str,">",">")

str=replace(str,"<","<")

str=Replace(str,CHR(32),"")

str=Replace(str,CHR(13),"")

str=Replace(str,CHR(10)&CHR(10),"</P><P>")

str=Replace(str,CHR(10),"<BR>")

encode=str

endfunction

%>

<%title=request.form("title")

content=request.form("content")%>

文章标题：<%=th(title)%><hr>

文章内容：<%=encode(th(content))%>

th(str)为自定义函数，主要功能很简单：过滤字符。encode(str)也为自定义函

数，主要功能是完整地显示被传递的信息。

CHR(10)表示换行，CHR(13)表示回车，CHR(32)表示空格。

附加功能：显示UBB代码。

即ubb.asp中含有ubb()函数。

增强的cnbruce.asp

<>

<%

functionth(str)

str=replace(str,"妈的","MD")

str=replace(str,"靠","KAO")

th=str

endfunction

%>