怎么使文本框内输入的回车在显示时变成换行而不是空格

[yczhd]

各位高手,请教一个很简单的问题
你们在做网站后台时应该也有碰到过
在文本输入框输入回车存入数据库后
再用ASP调用读取时回车变成了空格

怎么样才能使输入的回车变成换行而不是空格
希望能举个例子看一下
谢谢

[Jaron]

用以下函数转换

Response.write HtmlEncode(Request("Content"))

Function HtmlEncode(fString)
If Not IsNull(fString) Then
fString = Replace(fString, ">", ">")
fString = Replace(fString, "<", "<")
fString = Replace(fString, Chr(32), " ")
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

[lovewing82]

楼上的又让我想起来tureandfalse了。。
好久没来了啊 也没见他老人家啊。。。。
记得这个代码还是他在MSN上贴给我的

[mjpclab]

........
<tr><td>
<% =replace(rs("content")," ","<br>") %>
</td></tr>
........

[mjpclab]

修正上面的

........
<tr><td>
<% =replace(rs("content"), chr(13)&chr(10) ,"<br>") %>
</td></tr>
........

[i594yangyang]

replace(str,chr(13)&chr(10)," ")

[qunluo]

Function HtmlEncode(fString)
If Not IsNull(fString) Then
fString = Replace(fString, ">", ">")
fString = Replace(fString, "<", "<")
fString = Replace(fString, Chr(32), " ")
fString = Replace(fString, Chr(34), """)
fString = Replace(fString, Chr(39), "'")
fString = Replace(fString, Chr(10) & Chr(10), "</P><P> ")
fString = Replace(fString, Chr(10), "<BR> ")
fString = Replace(str,chr(13)&chr(10)," ")
HtmlEncode = fString
End If
End Function

======>
aaaa=HtmlEncode(rs("aaa"))