编程论坛 » ASP技术论坛 » 【求助】textarea的问题

zhuzhanjun 发表于 2008-6-20 10:35

【求助】textarea的问题

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

zhuzhanjun 发表于 2008-6-20 11:10

问题已经解决了，谢谢

hmhz 发表于 2008-6-20 11:16

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

zhuzhanjun 发表于 2008-6-20 15:07

<%
Function Deal(exp1)
dim exp2
exp2=Replace(exp1,"<","&lt;")
exp2=Replace(exp2,">","&gt;")
'exp2=Replace(exp2,"'","''")
exp2=Replace(exp2," ","&nbsp;")
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,"&nbsp;"," ")
exp2=Replace(exp2,"<br>",Chr(13))
exDeal=exp2
end function
%>

在程序加上上面代码

lele2007 发表于 2008-6-20 18:05

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

查看完整版本: 【求助】textarea的问题