急急急:表格输出出现问题

[ankye]

我做的新闻发布体统,输入的新闻是有格式的,比如:段落分明,段前空2格,可应表格输出是却成了一大段

应该怎么处理?

谢谢

[sy_binbin]

<%
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
%>


或者直接是在先文本编辑器，比如FckEditor、HTMLArea、eWebEditor