【求助】textarea的问题

[复制链接]

龙行天下

电梯直达

1^#

发表于 2010-1-10 04:57:09 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

textarea在后台添加的时候，我换了行，可是在前台显示的时候是一行显示完的，怎么回事
我要的是前台显示是后台添加的格式,怎么实现附件: 只有本站会员才能下载或查看附件，请您登录或注册

收藏0

使用道具举报

阿咏

2^#

发表于 2010-1-10 04:57:13 | 只看该作者

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

在程序加上上面代码