| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1148 人关注过本帖
标题:文本框提交内容换行的问题
只看楼主 加入收藏
xiaohonghui0
Rank: 1
等 级:新手上路
威 望:1
帖 子:274
专家分:0
注 册:2006-4-10
收藏
 问题点数:0 回复次数:5 
文本框提交内容换行的问题

请问大家,怎么让提交的内容在文本框中实现换行,最好是不用编辑器.

我在百度里面找过,第一中解答是:
<%
function CHTMLEncode(fString)
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10), "<BR> ")
CHTMLEncode= fString
end function
%>
调用时候使用
<%=CHTMLEncode(rs("字段内容"))%>

第二种是:
StrVar=Replace(StrVar,chr(13),"<br/>")
StrVar=Replace(StrVar,chr(10),"<br/>")

两种都不是蛮好,例如提交的资料为:

jfkdsjfk
fsdjfkl

fjdsklfjlk

fjsdklfjksdlj
则它在文本框中就变成了:
jfkdsjfk
fsdjfkl
fjdsklfjlk
fjsdklfjksdlj
而且如果再次提交文本框(修改页面用到的),它又变成在一行,请问怎么能解决我这问题?

搜索更多相关主题的帖子: 文本 
2007-05-31 09:03
xiaohonghui0
Rank: 1
等 级:新手上路
威 望:1
帖 子:274
专家分:0
注 册:2006-4-10
收藏
得分:0 
在线等待大家的回复,谢谢!

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

难道就没人会吗?
继续等待................................................


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

网上找的另一中方法:

<%
Function HTML2Txt(HTMLString)
If IsNull(HTMLString) Then Exit Function
HTMLString = Replace(HTMLString, "&lt;", "<")
HTMLString = Replace(HTMLString, "&gt;", ">")
HTMLString = Replace(HTMLString, "&#39;", Chr(39)) '单引号
HTMLString = Replace(HTMLString, "&quot;", Chr(34)) '双引号
HTMLString = Replace(HTMLString, "&nbsp;", Chr(32)) '空格
'HTMLString = Replace(HTMLString, "", Chr(13)) '换行
HTMLString = Replace(HTMLString, "<br>", Chr(10)) '回车

If Err.Number Then
Err.Clear()
HTML2Txt = HTMLString
Exit Function
End If
HTML2Txt = HTMLString
End Function
%>

运行是提示:

Microsoft VBScript 编译器错误 错误 '800a03ea'

语法错误

/new20070415/chinacoat/detail.asp,行 357

Function HTML2Txt(HTMLString)
^
仔细看了看,好象也没什么错误


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

谁有没简单一点的编辑器,越简单越好的,我不需要插入图片,超连接,图片上传之类的,我下载了一个ewebeditor的,里面好象不能简化.


曾用asp做过公司管理系统,新闻发布系统,个人网站之类,可代做网站 有意者请联系我,电话:13714123661
2007-06-04 12:02
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-04 23:56
快速回复:文本框提交内容换行的问题
数据加载中...
 
   



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

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