Question

ASP用文本域添加文本后，如何让文本按原来的格式显示？

用文本域添加的文本在添加后，以前的段落格式全不见了，所有的文字连在了一起，请问怎么办？谢谢。
谢谢二位朋友的回复，但你们理解错了。
我正在制作网页，我现在是想做一个文本框，以后浏览者添加文章的时候可以按他复制粘贴时的格式显示……继续求助

Answer 1

<%
function htmlcode(str)
str=replace(str,chr(13),"")
str=replace(str,chr(10)&chr(10), "<br><br>")
str=replace(str,chr(10),"<br>")
htmlcode=str
end function
%>
使用时
<%=htmlcode(rs("XX"))%>
取出时把上面的程序反过来
<%
function htmlcode2(str)
str=replace(str,"",chr(13))
str=replace(str,"<br><br>",chr(10)&chr(10)）
str=replace(str,"<br>",chr(10）)
htmlcode2=str
end function
%>

Answer 2

用dreamweaver新建一个页子，添加一个文本区域，在里面输入你要的文本（加格式的），然后再看下代码不就知道了^_^

Answer 3

这样啊,就是实现粗体,字体颜色,下划线等等的效果,
你得加入JS代码,上网下个后台管理代码,看看人家新闻发布是怎么做的,你就知道了.

Answer 4

<%'写一个转换函数
function myreplace(str)
str=replace(str,chr(13),"")
str=replace(str,chr(10)&chr(10), "<br><br>")
str=replace(str,chr(10),"<br>")
myreplace=str
end function
'调用帖子内容的时候转换换行
response.write myreplace(rs("内容字段名"))%>

我的网站：http://www.51jz.org，欢迎交流！