Asp.Net中文本换行

VB.NET

Function HtmlCode(ByVal fString)
If fString <> "" Then
fString = Replace(fString, Chr(13), "")
fString = Replace(fString, Chr(10) & Chr(10), "</P><P>")
fString = Replace(fString, Chr(10), "<BR>")
HtmlCode = fString
End If
End Function

-------------------------------------

C#.NET

private String HtmlCode(string TString)
{
if (TString != null)
{
TString = TString.Replace("\r", "<br>");
TString = TString.Replace(" ", "&nbsp;");
return TString;
}
else
{
return TString="无内容";
}
}