文本换行的问题

[rehearts]

将一段文本（带有换行格式的）存入一个变量中，可读出来显示在网页中却没有了原来的换行，请问各位大狭如何解决？

[易寒]

变量=replace(变量,chr(13),"<br>")
response.write 变量

[TrueAndFalse]

同意楼上

[lubaixu]

好久没有上了
顶一下.

[孟子E章]

Replace(str,vbCrlf,"<br>")

[snower01]

看一下这段代码：
function coder(str)
if not isnull(str) then
str=replace(str, ">", ">")
str=replace(str, "<", "<")

str = replace(str, chr(32), " ")
str = replace(str, chr(9), " ")
str = replace(str, chr(34), """)
str = replace(str, chr(39), "'")
str = replace(str, chr(13), "")
str = replace(str, chr(10) & chr(10), "</P><P> ")
str = replace(str, chr(10), "<BR> ")

coder=str
end if
end function