请问：从textarea输入内容后，保存到数据库，再从数据库中取出放到网页中，怎样才能按照textarea内的格式显示呢？就像本论坛发表贴子一样

[qw2002qw]

请问：从textarea输入内容后，保存到数据库，再从数据库中取出放到网页中，怎样才能按照textarea内的格式显示呢？就像本论坛发表贴子一样。急，在线等。

[dongchuanlu]

this.L_zhuyi.Text=yourstring.Replace("\n","<br>");

[dongchuanlu]

让回车变成换行

[付长松_华为云MVP]

一种解决方法是将内容中的换行，空格等转换成<BR>, 
给你代码：
Function EText(ByVal strText As String)
Dim i As Integer
Dim strTemp As String
For i = 1 To Len(strText)
If Asc(Mid(strText, i, 1)) = 32 Then
strTemp = strTemp + " "
ElseIf Asc(Mid(strText, i, 1)) = 13 Then
strTemp = strTemp + "<br>"
Else
strTemp = strTemp + Mid(strText, i, 1)

End If
Next
EText = strTemp
End Function
Function DText(ByVal strText As String)
Dim strTmp As String
Dim Skip As Integer = 0
Dim i As Integer
For i = 1 To Len(strText)
If Mid(strText, i, 6) = " " Then
Skip = 6
strTmp = strTmp + " "
ElseIf Mid(strText, i, 4) = "<br>" Then
Skip = 4
strTmp = strTmp + Chr(13)
Else
If Skip = 0 Then strTmp = strTmp + Mid(strText, i, 1)
End If
If Skip > 0 Then Skip -= 1
Next
DText = strTmp
End Function

[付长松_华为云MVP]

还可以用<pre>...</pre>原样输出！！

[gj2008]

function HTMLEncode(fString)
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")

fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")

HTMLEncode = fString
end if
end function
用这个，动网的函数

[qw2002qw]

先谢谢各位。我试一下。