如何保留原由的文本格式

[inspire5]

我添的是一篇文章，但是显示出来却是没有格式的东西。该怎么办？
请附代码。

[saucer]

1
<pre>
<%=YourConent%>
</pre>

2.
<%
YourConent = Replace(YourConent," ", " ")
YourConent = Replace(YourConent,chr(13) & chr(10), "<BR>")
%>
<%=YourConent%>

[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 VBCrLf : 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
%>