textarea加了格式控制，但是页面显示还是不对,该怎么解决

textarea加了格式控制，但是页面显示还是不对
加了
<% s = rs("news_content")
s = Replace(s, VbCrLf, "<br>")
s =replace(s," ","&nbsp;")
Response.Write s
%>
之后
根据表单textarea输入框的宽窄导致的自动换行，读出的页面也会跟着换行。
怎么控制呢
举例
textarea里：
  abcd到这里框没了 自动换行
 efg
读出页面的td比textarea宽
但是到了
  abcd 到这里后面还有很大一块空白，就换行了
efg
怎么解决呢

------解决方案--------------------
在 标签 textarea 里面设置属性 wrap="virtual"

 

HTML code

  <textarea name="textarea" id="textarea" wrap="virtual">输入内容</textarea>