最近在做一个留言板，但是我做好了之后发现一个问题：在发贴的时候输入的回车和空格
，在查看帖子的时候会被忽略，而要输入<br>等HTML标记才可以实现换行，也就是说，输
入的留言是以HTML的形式直接发送出来的。但是我现在想让以发贴的时候的形式原样的输
出，用什么办法可以实现这个问题呢？请各位大虾指教。。。

content.Text = OutputText(dr("content").ToString())

Private Function OutputText(ByVal inputString As String) As String
Dim retVal As String = inputString
retVal = retVal.Replace("&", "&amp;")
retVal = retVal.Replace("""", "&quot;")
retVal = retVal.Replace("<", "&lt;")
retVal = retVal.Replace(">", "&gt;")
retVal = retVal.Replace(" ", "&nbsp;")
retVal = retVal.Replace(" ", "")
retVal = retVal.Replace(ControlChars.Tab, "")
retVal = retVal.Replace(ControlChars.Cr, "<br>")
retVal = "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" + retVal
Return retVal
End Function