使用textarea，怎么使数据提交的时候有段落，我现在做成的回车只编译成空格

[feike0o]

我查找了：动网先锋的ANNOUNCE.ASP的代码，不知道是不是和下面这一句有关？

<textarea class=smallarea cols=95 name=Content rows=12 wrap=VIRTUAL title=可以使用Ctrl+Enter直接提交贴子 class=FormClass onkeydown=ctlent()></textarea>


我自己使用的语句是：
<textarea rows=20 cols=80 name="NewsContent"></textarea>
把段落显示成了空格

现在的目的是使我所写的内容，按我排字的顺序显示

[meizz]

在入库之前做一个格式转化:

<%
Function coder(str)
Dim i
If IsNull(str) Then : coder="" : Exit Function : End If
For i = 1 to Len(str)
Select case mid(str,i,1)
Case "<" : coder = coder &"<"
Case ">" : coder = coder &">"
Case "&" : coder = coder &"&"
Case chr(9) : coder = coder &"    "
Case VBCrLf : coder = coder &"<br>"
Case chr(32) : coder = coder &" "
Case chr(34) : coder = coder &"""
Case chr(39) : coder = coder &"'"
Case Else : coder = coder & mid(str,i,1)
End Select
Next
End Function
%>

[cpp2017]

dim str
str = Request.form("textarea").Item
str = replace(str," "," ")
str = replace(str,chr(13) & chr(10),"<br>")

[hairtailssm]

谢谢，受用了

[aabiao]

我建议入库时保留原文，提取显示时才编码：
dim str
str = Request.form("textarea").Item
str=server.htmlencode(str) '若不编码，有些字符会扰乱的，除非你允许直接输入HTML标签
str = replace(str," "," ")
str = replace(str,chr(13) & chr(10),"<br>")