新微赢技术网

标题: 【求助】textarea的问题 [打印本页]

作者: 龙行天下 时间: 2010-1-10 04:57
标题: 【求助】textarea的问题
textarea在后台添加的时候，我换了行，可是在前台显示的时候是一行显示完的，怎么回事
我要的是前台显示是后台添加的格式,怎么实现附件: 只有本站会员才能下载或查看附件，请您登录或注册

作者: 阿咏 时间: 2010-1-10 04:57
<%
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
%>

在程序加上上面代码

作者: 水中de云 时间: 2010-1-10 04:57
问题已经解决了，谢谢

作者: ┈ㄝai〾噯儿 时间: 2010-1-10 04:57
我是用别人的编程器实现的收藏一下楼上的代码，呵呵！

作者: 风忠人 时间: 2010-1-10 04:57
你怎么解决的？加<br> 了？

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)