关于textarea的问题，请教·！！

我不知道怎么实现把textarea中的内容保存到数据库中！
就是我在textarea中输入内容按了回车或者tab，我要怎么处理之后存到数据库中才能显示出来的时候就是我原来的格式呀！！
请大家帮帮忙呀！！！
---------------------------------------------------------------

 1   
 2Function coder(str)   
 3Dim i   
 4If IsNull(str) Then : coder="" : Exit Function : End If   
 5For i = 1 to Len(str)   
 6Select case mid(str,i,1)   
 7Case "<" : coder = coder &"<"   
 8Case ">" : coder = coder &">"   
 9Case "&" : coder = coder &"&"   
10Case chr(9) : coder = coder &"    "   
11Case VBCrLf : coder = coder &"

``` " Case chr(32) : coder = coder &" " Case chr(34) : coder = coder &""" Case chr(39) : coder = coder &"'" Case Else : coder = coder & mid(str,i,1) End Select Next End Function

coder(Request.Form("content")) '将这个转换过的文本存入数据库即可

1\---------------------------------------------------------------   
2  
3提交表单里面包含

1在处理提交内容的ASP程序中用   
2Request.From("aaa")   
3把textarea的内容读出来   
4用SQL语句插入到数据库中就可以了.   
5  
6显示的时候用SQL语句读出,用类似

1方式显示出来即可.   
2\---------------------------------------------------------------   
3  
4我这个方法在提交表单情况下已经被许多人验证, 我现特做了同页的演示效果, 你看看

``` ``` ``` ``` ``` \---------------------------------------------------------------

前几我遇到这个问题，后来搞定了，你先写一个函数，保存为keepformat.asp文件，如下：

1   
2function keepformat(content)   
3if typename(content)="Null" then   
4keepformat=""   
5else   
6str=replace(content," ","  ")   
7keepformat=replace(str,chr(13)+chr(10),"

``` ") end if end function

1  
2提交表单和保存进数据库，不用做什么改动。在要显示数据的页面，先用下面的语句
3<!--#include file="keepformat.asp"-->
4加载上面这个函数。   
5然后，在要显示的字段前加上keepformat（）如：

``` =keepformat(rs("明天计划")) ``` ``` \---------------------------------------------------------------

1   
2acc1=replace(trim(rs("content")),vbcrlf,"

``` ") acc2=replace(acc1," "," ") response.write(" ") Response.Write(acc2)

1\---------------------------------------------------------------

1\---------------------------------------------------------------   
2

=replace(ors("ftext"),chr(13),"br")

 1  
 2\---------------------------------------------------------------   
 3  
 4function Deal(exp1) '符号的转换   
 5dim exp2   
 6exp2=exp1   
 7exp2=Replace(exp2,"&lt;","&lt;")   
 8exp2=Replace(exp2,"&gt;","&gt;")   
 9exp2=Replace(exp2,"'","''")   
10exp2=Replace(exp2,Chr(13),"

``` ") Deal=exp2 End Function

content=Deal(request.form("content")) '调用

接下来直接连接数据库就行了

关于textarea的问题，请教&#183;！！

关于textarea的问题，请教·！！