asp開發中textarea常見問題

近日在作新聞的後台管理系統,在將access資料匯入到SQL SERVER2000中,便出現了好多問題,現總結如下:
使用SQL SERVER的[匯入]功能,便可將access資料轉換,但要注意原來的'自增欄位'需要修改,將相應欄位標識修改為'是'(原來的備忘欄位也會自動轉化為ntext).
由於新聞的添加,修改都是通過使用textarea,首先為了能保留輸入內容的格式,在處理添加的頁面加入
<%
Function SqlStr( data )
SqlStr = "'" & Replace( data, "'", "''" ) & "'"
End Function
Function coder(str)
Dim i
If IsNull(str) Then : coder="" : Exit Function : End If
For i = 1 to Len(str)
Select case mid(str,i,1)
Case "<" : coder = coder &"&lt;"
Case ">" : coder = coder &"&gt;"
Case "&" : coder = coder &"&amp;"
Case chr(9) : coder = coder &"&nbsp;&nbsp;"
Case VBCrLf : coder = coder &"<br>"
Case chr(32) : coder = coder &"&nbsp;"
Case chr(34) : coder = coder &"&quot;"
Case chr(39) : coder = coder &"&#39;"
Case Else : coder = coder & mid(str,i,1)
End Select
Next
End Function

content=request("content")'本文
content=replace(content,"&nbsp;"," ") '此處處理是因為修改頁面所加入空格會被轉化為&nbsp; ,在此先過濾
content=coder(content)

%>
在修改頁面
<%
rs.Open sql, conn, adOpenStatic
content=rs("本文") '此處一定要寫,倘若直接在textarea處寫
'<textarea rows="7" name="t" cols="47" ><%=rs("本文") %></textarea >“則無法顯示(我就被此處