textarea可以换行吗？

'功能：将空格与回车符等转换成html语法格式
    '参数：新闻信息内容
    '返回值：字符串中的空格与回车符被等转换成html语法格式
    Function unHtml(content)
        unHtml=content
        If content <> "" Then
            unHtml=replace(unHtml,"&","&amp;")
            unHtml=replace(unHtml,"<","&lt;")
            unHtml=replace(unHtml,">","&gt;")
            unHtml=replace(unHtml,chr(34),"&quot;")
            unHtml=replace(unHtml,chr(13),"<br>")
            unHtml=replace(unHtml,chr(32),"&nbsp;")
        End If
    End Function
在<textarea></textarea>中输入文本的时候该回车的地方敲回车，该空格的地方敲空格，以此类推。
读取新闻时用<%=unHtml(Rs("content"))%>调用！