怎样才能将输入在textarea中的文字，在导入数据库后再调用时仍保持相应的格式,如换行、分段等？

怎样才能将输入在textarea中的文字，在导入数据库后再调用时仍保持相应的格式,如换行、分段等？

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

我在textarea中输入文字后存入数据库结果调用时文字全都成了一堆，原来的段落什么都没有了,不用在textarea输入html代码能不能保持文本的格式？  
---------------------------------------------------------------  
 
content=corder(content)  
---------------------------------------------------------------  
 
Function  EncodeTxt(fString)  
           fString  =  replace(fString,  ">",  ">")  
           fString  =  replace(fString,  "<",  "&lt;")  
 
           fString  =  Replace(fString,"  ",  "&nbsp;")  
           fString  =  Replace(fString,"""",  "&quot;")  
           fString  =  Replace(fString,CHR(13),  "<br>")  
           fString  =  Replace(fString,  CHR(32),  "&nbsp;")  
           EncodeTxt  =  fString  
End  Function  
 
调用时,加入时就直接存入数据库吧..然后显示时用  EncodeTxt(rs("字段值"))转换一下就行了...