【求助】textarea的问题

textarea在后台添加的时候，我换了行，可是在前台显示的时候是一行显示完的，怎么回事
我要的是前台显示是后台添加的格式,怎么实现

问题已经解决了，谢谢

你怎么解决的？加<br> 了？

<%
Function Deal(exp1)
dim exp2
exp2=Replace(exp1,"<","&lt;")
exp2=Replace(exp2,">","&gt;")
'exp2=Replace(exp2,"'","''")
exp2=Replace(exp2," "," ")
exp2=Replace(exp2,Chr(13),"<br>")
Deal=exp2
End Function
Function exDeal(exp1)
dim exp2
exp2=Replace(exp1,"&lt;","<")
exp2=Replace(exp2,"&gt;",">")
'exp2=Replace(exp2,"''","'")
exp2=Replace(exp2," "," ")
exp2=Replace(exp2,"<br>",Chr(13))
exDeal=exp2
end function
%>

在程序加上上面代码

我是用别人的编程器实现的 收藏一下楼上的代码，呵呵！