asp中回车换行符CHR(10)表示换行，CHR(13)表示回车，

<% 
function th(str) 
str=replace(str,"妈的","MD") 
str=replace(str,"靠","KAO") 
th=str 
end function 

function encode(str) 
  str = replace(str, ">", "&gt;") 
  str = replace(str, "<", "&lt;") 
  str = Replace(str, CHR(32), "&nbsp;") 
  str = Replace(str, CHR(13), "") 
  str = Replace(str, CHR(10) & CHR(10), "</P><P>") 
  str = Replace(str, CHR(10), "<BR>") 
encode=str 
end function 
%>
<%title=request.form("title") 
content=request.form("content")%>
文章标题<%=th(title)%><hr> 
文章内容<%=encode(th(content))%> 

<!--#include file="https://.jb51./ubb.asp"--> 
<% 
function th(str) 
str=replace(str,"妈的","MD") 
str=replace(str,"靠","KAO") 
th=str 
end function 
%>