文本内容的输出---------解决马上给分

[littleflowerfox]

我用的是Oracle数据库，我想把数据库中一个大文本型的字段内容显示出来，
我用<%rs("NR")%>输出后，发现原来的段落都没有区分开，空格也没有了，

我应该怎样写，才能让结果与原来录入是的格式一样呢--------要区分开段落，包括每一段开始的空格

[meizz]

HTML标签的转换
<%
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 chr(13) : 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
%>
<%= coder(rs("NR")) %>

[xczhouyang]

function HTMLEncode(fString)
'过滤HTML代码
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
用这个函数转化一下