如何分段？

[jlcanoe]

我做了一个很小的BBS，只是有简单的发布功能。但是我无法实现使段落分出行来；即是说，在发布时，可以用回车来换行，但是显示出来后，分出的几段都和在一起了。我用的是Access的数据库，段落用的是备注型字段。

请帮帮我，谢谢！

[iStringTheory]

txt2=Replace(txt2, chr(13), "<br>")

[jlcanoe]

为了使每段段首空几个格，在每段段首打上的空格，却不能显示。怎么解决？要用CSS吗？

[iStringTheory]

function convertHTML(str)
If IsObject(str) then
ConvertHTML=replace(str,"<","<")
ConvertHTML=replace(ConvertHTML,">",">")
ConvertHTML=replace(ConvertHTML,chr(34),""")
ConvertHTML=replace(ConvertHTML,"<br>",vbCrLf)
else
ConvertHTML=""
end if
end function

function RecoverHTML(str)
If IsObject(str) then
RecoverHTML=replace(str,"<","<")
RecoverHTML=replace(RecoverHTML,">",">")
RecoverHTML=replace(RecoverHTML,""",chr(34))
RecoverHTML=replace(RecoverHTML,vbCrLf,"<br>")
else
RecoverHTML=""
end if
end function
================================================================

CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！

★ 浏览帖子速度极快！[建议系统使用ie5.5以上]。 ★ 多种帖子实现界面。
★ 保存帖子到本地[html格式]★ 监视您关注帖子的回复更新。
★ 可以直接发贴、回复帖子★ 采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录！
★ 支持在线检测程序升级情况，可及时获得程序更新的信息。

★★ 签名 ●
可以在您的每个帖子的后面自动加上一个自己设计的签名哟。

Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe [自解压]

[fbj007]

<%
Function coder(str)
Dim result,L,i
If IsNull(str) Then : coder="" : Exit Function : End If
L=Len(str) : result=""
For i = 1 to L
select case mid(str,i,1)
case "<" : result=result+"<"
case ">" : result=result+">"
case chr(34) : result=result+""" 'This is the""
case "&" : result=result+"&"
case chr(13) : result=result+"<br>"
case chr(9) : result=result+"    "
case chr(32) : result=result+" "
case else : result=result+mid(str,i,1)
end select
Next
coder=result
End Function %>