标题:请问文本框中内容提交后怎么换行啊?
只看楼主
xiaohonghui0
Rank: 1
等 级:新手上路
威 望:1
帖 子:274
专家分:0
注 册:2006-4-10
 问题点数:0 回复次数:9 
请问文本框中内容提交后怎么换行啊?
文本框中内容有换行时,提交后就到一行去了,不用编辑器,怎么能实现换行?
搜索更多相关主题的帖子: 文本框 编辑器 行时 
2007-05-30 16:47
kingsword001
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2007-5-25
得分:0 
论坛中有这方面的讨论,你可以找一下:

contents=request.Form("contents")
contents=replace(contents,chr(13)&chr(10),"<br>")

虽然我是新手,但是我仍希望能给大家带来一点点的帮助!因为,能帮助别人是一件很愉快的事情!
2007-05-30 18:10
gdk2006
Rank: 4
等 级:业余侠客
威 望:8
帖 子:928
专家分:270
注 册:2006-7-2
得分:0 

写个函数就可以的!
function html(constring)
constring=replace(constring,"<","&lt;")
constring=replace(constring,">","&gt;")
constring=replace(constring,"'","&acute;")
constring=replace(constring,CHR(13),"")
constring=replace(constring,CHR(10),"<br>")
constring=replace(constring,chr(32),"&nbsp;")
constring=replace(constring,CHR(10)&CHR(10),"</p><p>")
html=constring
end function

我常用它的,在显示的时候加上这个就行了!

<%=html(你的内容)%>


程序员的悲哀如何找女朋友?
追女解决方案百度“让她着迷”!
2007-05-31 10:36
lq7350684
Rank: 6Rank: 6
等 级:贵宾
威 望:20
帖 子:5089
专家分:98
注 册:2006-11-6
得分:0 
这代码我要了.
谢了.
2007-05-31 11:19
xiaohonghui0
Rank: 1
等 级:新手上路
威 望:1
帖 子:274
专家分:0
注 册:2006-4-10
得分:0 
但是三楼的代码对于显示后再点提交就不实用了

曾用asp做过公司管理系统,新闻发布系统,个人网站之类,可代做网站 有意者请联系我,电话:13714123661
2007-05-31 11:50
xiaohonghui0
Rank: 1
等 级:新手上路
威 望:1
帖 子:274
专家分:0
注 册:2006-4-10
得分:0 

是不是还要来个反编译?


曾用asp做过公司管理系统,新闻发布系统,个人网站之类,可代做网站 有意者请联系我,电话:13714123661
2007-05-31 11:56
xiaohonghui0
Rank: 1
等 级:新手上路
威 望:1
帖 子:274
专家分:0
注 册:2006-4-10
得分:0 
继续等待啊

曾用asp做过公司管理系统,新闻发布系统,个人网站之类,可代做网站 有意者请联系我,电话:13714123661
2007-05-31 12:28
xiaohonghui0
Rank: 1
等 级:新手上路
威 望:1
帖 子:274
专家分:0
注 册:2006-4-10
得分:0 

不会吧,没人会


曾用asp做过公司管理系统,新闻发布系统,个人网站之类,可代做网站 有意者请联系我,电话:13714123661
2007-05-31 13:46
utfqqrsf
Rank: 1
等 级:新手上路
帖 子:85
专家分:0
注 册:2005-12-28
得分:0 
这个应该是写入数据库时用的吧???
三楼的这个函数
收下了
谢谢

2007-06-02 16:38
guyer
Rank: 2
等 级:新手上路
威 望:5
帖 子:451
专家分:0
注 册:2007-1-19
得分:0 
<%
Function coder(str)
Dim result,L,i
If IsNull(str) Then : coder="" : Exit Function : End If
L=Len(str) : result=""
For i = 1 to L
select case mid(str,i,1)
case "<" : result=result+"&lt;"
case ">" : result=result+"&gt;"
case chr(34) : result=result+"&quot;"
case "&" : result=result+"&amp;"
case chr(13) : result=result+"<br>"
case chr(9) : result=result+"&nbsp; &nbsp; "
case chr(32) : result=result+"&nbsp;"
case else : result=result+mid(str,i,1)
end select
Next
coder=result
End Function
%>

http://www./
2007-06-02 16:59



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-143570-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.204112 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved