怎样使TextArea内的内容存入数据库,再读出显示在页面能保持原有格式

[wangjh741230]

我用QueryString分析整个字串 未通,哪位能解决请提供完整代码.

[wangjh741230]

得能用汉字

[lbd8848]

1.存的时候照原样存
2.显示的时候可使用
zd=rs("字段")
getvalue=""
for i=1 to len(zd)
select case mid(zd,i,1)
case chr(13)
getvalue=getvalue & "<br>"
case " "
getvalue=getvalue & " "
case else
getvalue=getvalue & mid(zd,i,1)
end select
next

[gaoqianjin]

再顶顶

[fangpeng2003]

<%
Replace(rs("字段"), vbCrLf, "<BR>")
%>

[fkphp]

<%
'----------------------转换输出----------------
function convert(str)
str=replace(str,"'","’")
str=replace(str,"""",""")
str=replace(str," "," ")
str=replace(str,"<","<")
str=replace(str," ",">")
str=replace(str,chr(13),"<br>")
convert=str
End function
%>
转换输出就可以了